--valida error en modelos
This commit is contained in:
@@ -3943,12 +3943,13 @@ Namespace Modelos
|
|||||||
CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then
|
CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then
|
||||||
ErrorPrepoliza = True
|
ErrorPrepoliza = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'SI ES PAGO CON DEVOLUCION
|
'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
|
If row2("CveConceptoContable").ToString().ToEntero = 277 Then
|
||||||
|
|
||||||
importeMovimiento = row2("Importe").ToString().ToDecimal()
|
importeMovimiento = row2("Importe").ToString().ToDecimal()
|
||||||
@@ -3972,10 +3973,15 @@ Namespace Modelos
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
If ErrorPrepoliza Then
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
Next
|
Next
|
||||||
End If
|
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,
|
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),
|
CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento),
|
||||||
CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then
|
CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=Contabilizable) Then
|
||||||
|
|||||||
Reference in New Issue
Block a user