FiveTech Software tech support forums

... , ; _CoLiAux->Nombre , ; str(_CoLiAux->Propiedad,4,0) , ; _CoLiAux->Domicilio , ; str(_CoLiAux->importe,12,0) ; FIELDSIZES {50,150,50,200,90} ; HEADERS "Cód.","Locatario","Cód","Domicilio","Importe" ; ID _CLV_Lbx ...

... , ; _CoLiAux->Nombre , ; str(_CoLiAux->Propiedad,4,0) , ; _CoLiAux->Domicilio , ; str(_CoLiAux->importe,12,0) ; FIELDSIZES {50,150,50,200,90} ; HEADERS "Cód.","Locatario","Cód","Domicilio","Importe" ; ID _CLV_Lbx ...

... listbox en el prg . asi lo defini REDEFINE LISTBOX oLbx FIELDS str(_CoLiAux->Locatario,4,0) , ; str(_CoLiAux->Propiedad,4,0) ; ID _CLV_Lbx ; FIELDSIZES {50,50} ; HEADERS "Loc.","Prop" ; Font oLetra ; UPDATE ; OF oDlg oLbx:aJustify = {.t.,.t.} al ejecutarlo me sale el siguiente ...

... @oPaci:Documento, @oPaci:Obrasoci; HEADERS "Código", "Apellido y Nombre", "Documento", "Obra Social" ; FIELDSIZES 60,320,110,180 ; ALIAS oPaci:cAlias ; ID 650 OF oDlg COLOR CLR_BLACK, RGB( 255, 255, 235) UPDATE oPaci:SetBrowse( oLbx, .f. ) REDEFINE GET ...

... @oPaci:Documento, @oPaci:Obrasoci; HEADERS "Código", "Apellido y Nombre", "Documento", "Obra Social" ; FIELDSIZES 60,320,110,180 ; ALIAS oPaci:cAlias ; ID 650 OF oDlg COLOR CLR_BLACK, RGB( 255, 255, 235) UPDATE oPaci:SetBrowse( oLbx, .f. ) REDEFINE GET ...

... @oPaci:Documento, @oPaci:Obrasoci; HEADERS "Código", "Apellido y Nombre", "Documento", "Obra Social" ; FIELDSIZES 60,320,110,180 ; ALIAS oPaci:cAlias ; ID 650 OF oDlg COLOR CLR_BLACK, RGB( 255, 255, 235) UPDATE oPaci:SetBrowse( oLbx, .f. ) REDEFINE GET ...

... HEADERS "Ref","Descripcion producto","Unid.","Precio","Total","Desc" ; FIELDSIZES 70,325, 80,100,100,100 ; FONT oFont1; size 690,350 PIXEL ; ON RIGHT CLICK ShowPop2( BROWSE_TAB3 , nRow, nCol ) on change ( car_mal(),ver_imag() ...

... ; COLORS CLR_WHITE,CLR_WHITE PIXEL FONT oFont @ 05,05 LISTBOX oBrw FIELDS CLI->COD,CLI->NOME ; HEADERS "Codigo","Nome" FIELDSIZES 40,60 ; ALIAS "CLI" OF oDlg SIZE 180,100 PIXEL ACTIVATE DIALOG oDlg CENTERED Return(Nil) PS: acontece o mesmo, utilizando array ...

... '),' ') ; HEADERS "G/L Code","Account Title","Description","Debit","Credit" ; FIELDSIZES 110,235,345,130,130 ; FONT oFntAE ; ID 1114 OF oDlg ; ON CHANGE (P6_Mast->(DbSeek(Trim(PadCode1(aAcc_No[ nItem ])))) ,; cName:=P6_Mast->Acc_Name ...

... "DESCRIPTION", "VISUAL", "UT", "PT", "RFID Tag", "CERT Profile" ; FIELDSIZES 200 , 300 , 608 , 100 , 100, 100, 400 , 200 ; OF oDlg ARRAY aItems AUTOCOLS FONT oFont1 Thank you,

... Asi : REDEFINE LISTBOX oLbx FIELDS M->Campo1, M->Campo2, M->Campo3 ; HEADERS "Codigo","Nombre" ,"Apellido"; FIELDSIZES 25, 90, 90 ; ON DBLCLICK MISCAMPOS( oLbx) ; ID 990 OF oDlg ..... ..... FUNCTION MISCAMPOS(oLbx) *============================= ** AQUI PODER ...

... ; FacMenu2200(wCodpry,@nWGa,@nWBs,@nWIv,@nWIt,@nWut,oWGa,oWBs,oWIv,oWIt,oWut)) ; FIELDSIZES 50,40,nWincol-565-265,50,90,85,90,90,70 ; //450 -27 SIZE 165.1,nWinRow-68+8 PIXEL OF oWndChild ; FONT oFont0

... Bus" ,"Pasajes"+CRLF+"Vendidos","Patente" ,"Chofer-1-" ,"Auxliar" ,"Chofer-2" ; FIELDSIZES 70,70,300,80,70,100,70,60,160,160,160; JUSTIFY .f.,.f.,.f.,AL_CENTER, AL_CENTER,AL_CENTER,AL_CENTER; OF oWChld y al presionar el boton refrescar ...

... HEADERS "Cod.Barra","Descripcion","Stock","Pr.venta"; JUSTIFY .f.,.F.,.T.,.T.; FIELDSIZES 140,440,55,90; ID 102 OF oDlg ON DBLCLICK (IIF(Stockk()>0,(lAceptar := .T.,oDlg:End()),Alert("Sr.Usuario no hay Stock"))) saludos

... XBROWSE oBrw[I] ID 400 ; HEADERS "Descripcion","Cantidad","Pr.Neto","Sub-Total"; JUSTIFY .F.,.F.,.F.,.F.; FIELDSIZES 590, 70, 70, 80 ; PICTURES "@!",'99,999.99','999,999,999','999,999,999' ; DATASOURCE aData[I] FOOTERS AUTOSORT; LINES CELL cols{ ...