FiveTech Software tech support forums

Code: Select all

      DEFINE WINDOW aWChild[1] MDICHILD OF oWndPrinc ;
             TITLE "Listado de Recaudaciones"        ;
				 FONT oWndPrinc:oFont                    ;
				 ICON oIconReca                          ;
				 COLOR CLR_BLACK, CLR_NBLUE       

         @ -1, -1 OUTLOOK oOut ;
                SIZE 100, aWChild[1]:nHeight() ;
                FONT aWChild[1]:oFont ;
                PIXEL ;
                OF aWChild[1]

                DEFINE GROUP OF OUTLOOK oOut PROMPT "&Departamentos"

                DEFINE BITMAP OF OUTLOOK oOut ;
                       GROUP 1 RESOURCE "Recauda"    ;
                       PROMPT "Recaudación" ;
                       TOOLTIP "Recaudaciones de Unidades"

			    WITH OBJECT oBrw := TXBrowse():New( aWChild[1] )
						 :SetMySQL(@oTable)
             		:nMarqueeStyle       := MARQSTYLE_HIGHLROW
             		:nColDividerStyle    := LINESTYLE_RAISED
             		:SetColor(CLR_BLACK, RGB(255,255,235))
             		:bClrSelFocus        := {|| { CLR_WHITE, RGB(24, 116, 205) } }
	                :nFreeze             := 4
             		:nHeaderLines        := 2
             		:lColDividerComplete := .t.
					

	               WITH OBJECT :AddCol()
	               	  :bStrData      := { || FormFec('[DDD]/[MMM]/[AA]', oTable:Fecha) }
	               	  :cHeader       := "Fecha de" + CRLF + "Recaudación"
                       :nHeadStrAlign := AL_CENTER
                       :nDataStrAlign := AL_CENTER
                       :nWidth        := 80
						END

	               WITH OBJECT :AddCol()
	               	  :bStrData      := { || oTable:Recaudador }
	               	  :cHeader       := "Nombre de" + CRLF + "Recaudadora"
                       :nHeadStrAlign := AL_CENTER
                       :nDataStrAlign := AL_LEFT
                       :nWidth        := 150
						END

				 END

             @  0, 100 SPLITTER oSpl1       ;
                   VERTICAL                 ;
                   PREVIOUS CONTROLS oOut   ;
						 HINDS CONTROLS oBrw      ;
                   LEFT MARGIN 70           ;
                   RIGHT MARGIN 200         ;
                   SIZE 4, 1000 PIXEL        ;
                   OF aWChild[1]            ;
                   _3DLOOK UPDATE

				 oBrw:CreateFromCode()
				 aWChild[1]:oLeft()  := oOut
             //aWChild[1]:oRight()  := oBrw
				 aWChild[1]:oClient   := oBrw


      ACTIVATE WINDOW aWChild[1] MAXIMIZED ;
					ON RESIZE ( oSpl1:AdjRight())    ;
               VALID ((aWChild[1] := Nil, SalirC(oIni)), .T. )

Code: Select all

      DEFINE WINDOW aWChild[1] MDICHILD OF oWndPrinc ;
             TITLE "Listado de Recaudaciones"        ;
	     ICON oIconReca                          ;
	     COLOR CLR_BLACK, CLR_NBLUE

	     WITH OBJECT oBrwRec := TXBrowse():New( aWChild[1] )
						:SetMySQL(@oTable)
             		:nMarqueeStyle       := MARQSTYLE_HIGHLROW
             		:nColDividerStyle    := LINESTYLE_RAISED
             		:SetColor(CLR_BLACK, RGB(255,255,235))
             		:bClrSelFocus        := {|| { CLR_WHITE, RGB(24, 116, 205) } }
	                :nFreeze             := 4
             		:nHeaderLines        := 2
             		:lColDividerComplete := .t.
                        :nLeft               := 230  <<---- esto ****

	               WITH OBJECT :AddCol()
	               	  :bStrData      := { || FormFec('[DDD]/[MMM]/[AA]', oTable:Fecha) }
	               	  :cHeader       := "Fecha de" + CRLF + "Recaudación"
                          :nHeadStrAlign := AL_CENTER
                          :nDataStrAlign := AL_CENTER
                          :nWidth        := 80
		       END

	               WITH OBJECT :AddCol()
	               	  :bStrData      := { || oTable:Recaudador }
	               	  :cHeader       := "Nombre de" + CRLF + "Recaudadora"
                          :nHeadStrAlign := AL_CENTER
                          :nDataStrAlign := AL_LEFT
                          :nWidth        := 150
		       END
       	     END

             @  0, 225 SPLITTER oSpl       ;
                   VERTICAL _3DLOOK         ;
		   HINDS CONTROLS oBrwRec   ;
                   SIZE 4, 4 PIXEL          ;
                   OF aWChild[1] UPDATE

		   oBrwRec:CreateFromCode()
		   aWChild[1]:bResized := {|| oSpl:AdjClient(), oSpl:Adjust()  }

      ACTIVATE WINDOW aWChild[1] MAXIMIZED ;
		   ON INIT oBrwRec:SetFocus()  ;
		   VALID (SalirRec( oIni ), .T. )