Code: Select all
REDEFINE GET oGetCodigo VAR cCodigoP ID 10 OF oDlg ;
Valid If( Cuentas->( dBSeek( Left( cCodigoP, Len( Cuentas->CodigoP ) ) ) ), ( cNomCuenta:= Cuentas->Empresa, .T. ), .F. )
Code: Select all
MAKE Version 5.0 Copyright (c) 1987, 1997 Borland International
c:\harbour\bin\harbour.exe -i.;c:\fwh\include;c:\harbour\include -p -n -m -q -es2 -gc0 .\Cartera.prg -oobj\Cartera.hrb
Harbour Compiler Alpha build 43.0 (Flex)
Copyright 1999-2004, http://www.harbour-project.org/
.\Cartera.prg(1033) Warning W0027 Meaningless use of expression: 'Logical'
Saludos