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()
- Code: Select all Expand view
- 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