Problema al cancelar un registro
Publicado por deysi (15 intervenciones) el 08/12/2007 01:02:37
Tengo una factura que deseo cancelar pero esta tiene varias 2 partidas pero a la vez cada la primer partida tiene otros cuatro partidas y la segunda tiene tres partidas.
al cancelar solo me cancela
las dos prrimeras partidas y las tres ultimas
Factura Partida Detalle partida
0001 cancelada 1 cancelada 1 pero estas no me las cancela
2
3
4
2 cancelada 1 cancelada
2 cancelada
3 cancelada
GET(Queue:2,Choice(?Browse:2)) ! Facturas
FAC:Id_Factura = FAC:Id_Factura
SET(Facturas,FAC:PKIdFactura)
NEXT(Facturas)
FAC:StatusFactura ='Cancelado'
PUT(Facturas)
!*****************DETALLE FACTURA*********************************************************
LOOP I# = 1 TO FAC:CantPartidas BY 1 ! Tiene dos partidas
OPEN(DetaFac)
DETF:Id_Factura = FAC:Id_Factura
DETF:PartidaFact = I#
SET(DETF:PKIdDetalleFactura,DETF:SKPartidaFact,DETF:PartidaFact)
NEXT(DetaFac)
DETF:StatusDetFactura = 'Cancelado'
PUT(DetaFac)
END
!*******************DETALLE FACTURA 2*********************************************************
LOOP I# = 1 TO DETF:CantidadPartidas BY 1
OPEN(DetaFac2)
DET2:Id_Factura = FAC:Id_Factura
DET2:PartidaFact = DETF:PartidaFact
DET2:ExtPartida = I#
SET(DET2:PKDetalle2,DET2:SKPartidaFact,DET2:ExtPartida)
NEXT(DetaFac2)
DET2:SatusDeta2 ='Cancelado'
PUT(DetaFac2)
END
al cancelar solo me cancela
las dos prrimeras partidas y las tres ultimas
Factura Partida Detalle partida
0001 cancelada 1 cancelada 1 pero estas no me las cancela
2
3
4
2 cancelada 1 cancelada
2 cancelada
3 cancelada
GET(Queue:2,Choice(?Browse:2)) ! Facturas
FAC:Id_Factura = FAC:Id_Factura
SET(Facturas,FAC:PKIdFactura)
NEXT(Facturas)
FAC:StatusFactura ='Cancelado'
PUT(Facturas)
!*****************DETALLE FACTURA*********************************************************
LOOP I# = 1 TO FAC:CantPartidas BY 1 ! Tiene dos partidas
OPEN(DetaFac)
DETF:Id_Factura = FAC:Id_Factura
DETF:PartidaFact = I#
SET(DETF:PKIdDetalleFactura,DETF:SKPartidaFact,DETF:PartidaFact)
NEXT(DetaFac)
DETF:StatusDetFactura = 'Cancelado'
PUT(DetaFac)
END
!*******************DETALLE FACTURA 2*********************************************************
LOOP I# = 1 TO DETF:CantidadPartidas BY 1
OPEN(DetaFac2)
DET2:Id_Factura = FAC:Id_Factura
DET2:PartidaFact = DETF:PartidaFact
DET2:ExtPartida = I#
SET(DET2:PKDetalle2,DET2:SKPartidaFact,DET2:ExtPartida)
NEXT(DetaFac2)
DET2:SatusDeta2 ='Cancelado'
PUT(DetaFac2)
END
Valora esta pregunta
0