ACCION ventas ES
Ventas = Registro
NumCaja: N(2)
FormaPago: ("EF", "TD", "TC")
NumTicket: N(6)
FVenta: Fecha
CantArt: N(6)
Importe: N(8)
FIN_Registro
Fecha = Registro
Dia: N(2)
Mes: N(2)
Año: N(4)
FIN_Registro
Cajas = Registro
NumCaja: N(2)
ArtEF: N(6)
ArtTarj N(6)
FIN_Registro
A_Ventas: Archivo de Ventas
R_Ventas: Ventas
A_Cajas: Archivo de Cajas
R_Cajas: Cajas
Procedimiento TratarRegistro ES
CantArt:= CantArt + R_Ventas.CantArt
SI R_Ventas.FormaPago = "EF"
CantArtEF:= CantArtEF + R_Ventas.CantArt
SINO
CantArtTarj:= CantArtTarj + R_Ventas.CantArt
FIN_SI
AVZ(A_Ventas, R_Ventas)
Fin_Procedimiento
Procedimiento Corte_FormaPago ES
ESC("En la caja numero ", resNumCaja, " se vendio un total de ",
CantArt, " articulos en ", resFormaPago)
resFormaPago:= R_Ventas.FormaPago
CantArt:= 0
Fin_Procedimiento
Procedimiento Corte_NumCaja ES
R_Cajas.NumCaja:= resNumCaja
R_Cajas.ArtEF:= CantArtEF
R_Cajas.ArtTarj:= CantArtTarj
GRABAR(A_Cajas, R_Cajas)
CantArtEF:= 0
CantArtTarj:= 0
resNumCaja:= R_Ventas.NumCaja
Fin_Procedimiento
CantArt: N(6)
CantArtEF: N(6)
CantArtTarj: N(6)
PROCESO
ABRIRe(A_Ventas)
ABRIRs(A_Cajas)
AVZ(A_Ventas, R_Ventas)
resNumCaja= R_Ventas.NumCaja
resFormaPago= R_Ventas-FormaPago
CantArt:= 0
CantArtEF:= 0
CantArtTarj:= 0
MIENTRAS NFDA(A_Ventas) HACER
SI R_Ventas.NumCaja = resNumCaja
SI R_Ventas.FormaPago = resFormaPago ENTONCES
TratarRegistro()
SINO
Corte_FormaPago()
FIN_SI
SINO
Corte_NumCaja()
FIN_SI
FIN_MIENTRAS