FUNCTION varidiar()
SySRefresh()
store recno() to reg
store apunte to oapu1,oapu0
store fecha to ofec1,ofec0
store clave to ocla1,ocla0
store concepto to ocon1,ocon0
store importe to oimp1,oimp0
if lugar = "D"
store cuenta to ocud1,ocud0
store space(11) to ocuh1,ocuh0
else
store cuenta to ocuh1,ocuh0
store space(11) to ocud1,ocud0
endif
skip - 1
store apunte to oapu2
store fecha to ofec2
store clave to ocla2
store concepto to ocon2
store importe to oimp2
if lugar = "D"
store cuenta to ocud2
store space(11) to ocuh2
else
store cuenta to ocuh2
store space(11) to ocud2
endif
go reg
RETURN (NIL)
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 58 guests