No usar complementaria 13,83

This commit is contained in:
Oscar Irigoyen
2023-02-07 17:36:15 -07:00
parent 445b76e50b
commit 4aeca5afb6
6 changed files with 99 additions and 35 deletions

View File

@@ -951,7 +951,7 @@ Partial Class Ventas_ClientesAbonar
VentaActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
VentaActual.IdCtaContableCliente = IIf(VentaActual.CveMoneda = 1, IdCuentaCliente, IdCtaContMonedaExtranjera)
VentaActual.IdCtaContableClienteComplementaria = IdCtaContComplementaria
VentaActual.IdCtaContableClienteAnticipo = IdCtaAnticipo
'Importe de pago
Dim Pago As New VentaPago
Pago.Fecha = TxtFechaDocumento.Text.ToDate