Macri se Macri
Este es un sitio web satírico. No lo tomes en serio. Es una broma.
2059 72125 Compartes
DevPos(24,0);DevOut('[ESC] Salir [INS] Altas [SUPR] Borrar [ENTER] Modif.','W+/B' )
oTbro:=TBROWSEDB(11,5,20,74)
otbro:headsep:=chr(205)+chr(209)+chr(2...
otbro:colsep:= " "+chr(179)+" "
otbro:footsep:=chr(196)+chr(193)+chr(1...
otbro:addcolumn(tbcolumnnew("CLAVE",{|...
otbro:addcolumn(tbcolumnnew("CANTIDAD"...
otbro:addcolumn(tbcolumnnew("IMPORTE",...
otbro:addcolumn(tbcolumnnew("FECH. SALIDA",{||FECSAL}))
otbro:addcolumn(tbcolumnnew("FECH. CADUCIDAD",{||FECCAD}))
WHILE .t.
otbro:Refreshcurrent()
WHILE !otbro:stabilize(); END
TECLA := INKEY(0)
IF TECLA == K_ESC
SETCURSOR(2)
CLOSE DATABASES
EXIT
ELSE
DO CASE
CASE TECLA == K_ENTER
IF SAL_C()
otbro:refreshall()
END
Este es un sitio web satírico. No lo tomes en serio. Es una broma.