From c620155a0a0a2935b92277d501274934f1d6df2f Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 May 2022 14:16:24 -0700 Subject: [PATCH] -- mejora en ME, en aplicar anticipos --- Contabilidad/DiarioPagos.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Contabilidad/DiarioPagos.aspx.vb b/Contabilidad/DiarioPagos.aspx.vb index 58492f5e6..08f6e4059 100644 --- a/Contabilidad/DiarioPagos.aspx.vb +++ b/Contabilidad/DiarioPagos.aspx.vb @@ -1017,9 +1017,8 @@ Partial Class Contabilidad_DiarioPagos If CargoAnticipo > 0 AndAlso TotalAnticipos = 0 Then ' cuando el pago no cubre el 100% - If Not Conta.AddMovimiento(IDPoliza, IdCuentaAnticipo, False, CargoAnticipo, gvrc.FCHiddenField("HdnSerieFolio").Value, gvrc.FCHiddenField("HdnSerieFolio").Value, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveProveedor").Value.ContaReferencia(TipoContaReferencia.Proveedor), If(MonExt, CargoProveedor, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For - Dim TmpTotal As Decimal + Dim TmpTotalME As Decimal = CargoAnticipo If CveMoneda = 2 Then 'registro a la cuenta complementaria del proveedor @@ -1028,12 +1027,13 @@ Partial Class Contabilidad_DiarioPagos Else CargoAnticipo = Math.Round(CargoAnticipo * TipoCambioCompra, 2) End If - - 'complementaria - If TmpTotal > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, gvr.DataKey("IdCtaContComplementaria").ToEntero, TipoMovto, TmpTotal, gvrc.FCHiddenField("HdnSerieFolio").Value, gvrc.FCHiddenField("HdnSerieFolio").Value, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveProveedor").Value.ContaReferencia(TipoContaReferencia.Proveedor), If(MonExt, gvrc.FCHiddenField("HdnTotal").Value.ToDouble, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For - End If + If Not Conta.AddMovimiento(IDPoliza, IdCuentaAnticipo, False, CargoAnticipo, gvrc.FCHiddenField("HdnSerieFolio").Value, gvrc.FCHiddenField("HdnSerieFolio").Value, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveProveedor").Value.ContaReferencia(TipoContaReferencia.Proveedor), If(MonExt, TmpTotalME, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For + + 'complementaria + If TmpTotal > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, gvr.DataKey("IdCtaContComplementaria").ToEntero, TipoMovto, TmpTotal, gvrc.FCHiddenField("HdnSerieFolio").Value, gvrc.FCHiddenField("HdnSerieFolio").Value, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveProveedor").Value.ContaReferencia(TipoContaReferencia.Proveedor), If(MonExt, gvrc.FCHiddenField("HdnTotal").Value.ToDouble, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For + End If