FiveTech Software tech support forums

... B.nrocpg=A.nrocpg "+; "WHERE A.tipcpg='"+iTabVta+"' AND A.codart='"+cCodArt+"' AND B.tipcod='C' AND B.codigo='"+cCodCli+"' "+; "ORDER BY B.feccpg DESC LIMIT 1") IF aVerultpr!=Nil ::vGet:dFecUltVta:=aVerultpr[1] ::vGet:nPreUltVta:=aVerultpr[2] ...

Buenas tardes amigos programadores tengo el siguiente probema tengo un GET el cual valido los datos del clientes : @ 01,01 GET oCodCli VAR cCodCli UPDATE SIZE 50,12 FONT oFontD COLOR CLR_BLUE; VALID ( VALCODCLI(),VALNOMCLI() ) y tengo una barra de tareas el cual quiero ejecutar antes de que ...

Olá, com database se usa desta maneira.

<oObjetoDatabase>:OrdScope( 0, <seu_escopo_inicial> )
<oObjetoDatabase>:OrdScope( 1, <seu_escopo_final> )

por exemplo.

use cliente new
database oCli
oCli:ordScope( 0, cCodCli )
oCli:ordScope( 1, cCodCli )
oCli:Gotop()

BROWSE()

set filter to albaclie->numero=nNUMALB .and. albaclie->fecha=dFECHA .and. albaclie->cliente=cCODCLI ; go top

cfiltr= "numero = " + Alltrim( Str( nNUMALB ) ) + " .and. fecha = " + DtoC( dFECHA ) + " .and. cliente = '" + cCODCLI + "'"

... STEP 1 ::cLine := SUBSTR(::cFicheroR, (::nLine -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) ...

... := SUBSTR(::cFicheroR, (::nLine -1) *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) ...

... su TWBrowse correspondiente. 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, ...

... desde codigo?. El scroll vertical 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, ...

... esto: (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() ...

NO GET:

VALID VALIDAR( DbClientes:ARRAZFOR, lAppend, DbClientes, Etc )

na funcao:

STATIC FUNCTION VALIDAR( cCodCli, lAppend, DbCLientes, Etc )

IF GETASYNCKEY( VK_UP )
RETURN( .F. )
ENDIF

DBSEEK( cCodCli )

IF FOUND()

...
ELSE

...
ENDIF

RETURN( .T. )

... Character 3 6 NDTO Numeric 6,2 7 NTOTAL Numeric 16,3 8 NENTREGA Numeric 17,6 9 LPAGADO Logical 1 10 LCONTAB Logical 1 11 NDEPOSITO Numeric 17,6 12 CCODCLI Character 6 13 CTIME Character 5 14 NESTADO Numeric 1 15 CREFTIC Character 35 16 LREGALO Logical 1 17 CCODCAJA Character 3 18CCODALM Character ...

O ccodcli é um campo da tabela cadcli (cadastro de clientes), eu conecto ao banco de dados usando SQLRDD

Donde usas ccodcli en tu programa ?

Es una variable ó es un campo de una DBF ?

... achar um evento que ocorre quando o browse recebe o fóco. A mensagem de erro que aparece é a seguinte. "Erro BASE/1003 Variable does not exist: ccodcli from errosys,line 158" e o compilador diz que o erro está na seguinte linha "oCol:bStrData := { || &wfname }" Alguém ai já teve esse problema ...

... ORDEN_BUSQUEDA(OTBR) 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 ...