FiveTech Software tech support forums

... -1) *554, 554) ::cLine = StrTran(::cLine, Chr(10), "") //Delete Tab. Append Blank REPLACE cCodCli with SUBSTR(::cLine,1,6) REPLACE cNomCli with SUBSTR(::cLine,7,100) REPLACE cNomCom with SUBSTR(::cLine,107,100) REPLACE cDirCli with SUBSTR(::cLine,207,100) REPLACE cPobCli with SUBSTR(::cLine,307,100) ...

... *554, 554) ::cLine = StrTran(::cLine, Chr(10), "") //Borrar tabulaciones. Append Blank REPLACE cCodCli with SUBSTR(::cLine,1,6) REPLACE cNomCli with SUBSTR(::cLine,7,100) REPLACE cNomCom with SUBSTR(::cLine,107,100) REPLACE cDirCli with SUBSTR(::cLine,207,100) REPLACE cPobCli with SUBSTR(::cLine,307,100) ...

... Si para redefinir el ListBox hago lo sguiente: REDEFINE LISTBOX ::oListBox FIELDS (::oDbfCli:cAlias)->cCodCli, (::oDbfCli:cAlias)->cNomCli, (::oDbfCli:cAlias)->cNomCom , (::oDbfCli:cAlias)->cDirCli, (::oDbfCli:cAlias)->cPobCli, (::oDbfCli:cAlias)->cCodProv, (::oDbfCli:cAlias)->cPTLCli, ...

... sí me aparece. El listbox lo redefino de esta forma: REDEFINE LISTBOX ::oListBox FIELDS (::oDbfCli:cAlias)->cCodCli, (::oDbfCli:cAlias)->cNomCli, (::oDbfCli:cAlias)->cNomCom , (::oDbfCli:cAlias)->cDirCli, (::oDbfCli:cAlias)->cPobCli, (::oDbfCli:cAlias)->cCodProv, (::oDbfCli:cAlias)->cPTLCli, ...

... (Aunque, si no me equivoco, creo que el problema está en el fichero buildx.bat...) Esto sería el código de la clase TFormPrincipal field cCodCli, cNomCli, cNomCom, cDirCli, cPobCli, cCodProv, cPTLCli,cTF02Cli, cFaxCli, cDniCif, cContacto Function Main() local ofrm ofrm:= TFormPrincipal():new() ...

... ACTIVATE DIALOG oDlg CENTERED CLOSE DATABASES RETURN NIL //---------------------------------------------------------// STATIC FUNCTION BuscaCli(cNomCli) LOCAL oDlg, oLbx cNomCli := TRIM(cNomCli) cli->(DBSETORDER(2)) cli->(DBSEEK(cNomCli)) DEFINE DIALOG oDlg TITLE "Catálogo de clientes" ...

... SAY cVar PROMPT oGet id 105 OF oDlg1 Y ESTA ES MI FUNCION FUNCTION Trae_Cliente(cNombre,oGet) local cClientes IF (cClientes)->(DBSEEK(aYDts)) cNomCli := (cClientes)->NOMBRE oGet:Refresh() RETURN(.T.) ELSE MsgInfo("Cliente no registrado") RETURN(.F.) ENDIF return nil

... REDEFINE GET oGet VAR cVar valid trae_cliente( cVar, oGet ) FUNCTION Trae_Cliente(cVar,oGet) local cClientes IF (cClientes)->(DBSEEK(cVar)) cNomCli := (cClientes)->NOMBRE oGet:Refresh() RETURN(.T.) ELSE MsgInfo("Cliente no registrado") RETURN(.F.) saludos ..

... oget PROMPT cNombre id 105 OF oDlg1 Y ESTA ES MI FUNCION FUNCTION Trae_Cliente(cNombre,oGet) local cClientes IF (cClientes)->(DBSEEK(aYDts)) cNomCli := (cClientes)->NOMBRE oGet:Refresh() RETURN(.T.) ELSE MsgInfo("Cliente no registrado") RETURN(.F.) ENDIF return nil

... DEFINE FONT OFONT NAME 'ARIAL' SIZE 0, -10 DEFINE DIALOG ODLG RESOURCE "SELEC_CLI" REDEFINE LISTBOX Otbr FIELDS CLIENTES->CCODCLI, CLIENTES->CNOMCLI, CLIENTES->CPOBCLI, CLIENTES->CTFO1CLI, CLIENTES->CTFO2CLI; HEADERS "CODIGO", "NOMBRE","POBLACION","TELEFONO 1", "TELEFONO 2"; COLSIZES ...

... DEFINE FONT OFONT NAME 'ARIAL' SIZE 0, -10 DEFINE DIALOG ODLG RESOURCE "SELEC_CLI" REDEFINE LISTBOX Otbr FIELDS CLIENTES->CCODCLI, CLIENTES->CNOMCLI, CLIENTES->CPOBCLI, CLIENTES->CTFO1CLI, CLIENTES->CTFO2CLI; HEADERS "CODIGO", "NOMBRE","POBLACION","TELEFONO 1", "TELEFONO 2"; COLSIZES ...