La solución, aunque no tData..
USE ZSALDO NEW
USE NEXTSALDO NEW
SELECT ZSALDO
__dbTrans( Select( 'nextsaldo' ), , { || Substr( Alltrim( ZSALDO->ZSCTA),-4) = Str(Year(mal),4) } ,,, )
CLOSE zsaldo
close nextsaldo
Amigos, este código no me funciona...
Uso tData()
Deseo copiar todo un archivo en otro con los mismos campos.
Gracias, saludos
Ruben Dario Fernandez
USE ZSALDO NEW
USE NEXTSALDO NEW
SELECT ZSALDO
__dbTrans( Select( 'nextsaldo' ), , { || Substr( Alltrim( ZSALDO->ZSCTA),-4) = Str(Year(mal),4) } ,,, )
CLOSE zsaldo
close nextsaldo
Amigos, este código no me funciona...
Uso tData()
nesald:= tData():New( Â , "NEXTSALDO" Â )
nesal:Use()
nArea:= nesald:nArea  ////=1
zs := tData():New( Â , "ZSALDO" Â )
zs:Use()
 __dbTrans( nArea )
nesald:Close()
zs:Close()Deseo copiar todo un archivo en otro con los mismos campos.
Gracias, saludos
Ruben Dario Fernandez
Dario Fernandez
FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay