diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 80ac46373..b9250d79c 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3943,12 +3943,13 @@ Namespace Modelos CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then ErrorPrepoliza = True End If + End If End If 'SI ES PAGO CON DEVOLUCION - If ObjFactura.CveTipoAmortizacionAnticipo = 4 Then + If Not ErrorPrepoliza AndAlso ObjFactura.CveTipoAmortizacionAnticipo = 4 Then If row2("CveConceptoContable").ToString().ToEntero = 277 Then importeMovimiento = row2("Importe").ToString().ToDecimal() @@ -3972,10 +3973,15 @@ Namespace Modelos End If End If + If ErrorPrepoliza Then + Exit For + End If + Next End If - If sumaAmorticaciones <> 0 Then + + If Not ErrorPrepoliza AndAlso sumaAmorticaciones <> 0 Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, sumaAmorticaciones, sumaAmorticaciones * tipoCambio, 251, Referencia, Concepto, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then