This commit is contained in:
2023-02-08 08:33:55 -07:00
8 changed files with 3991 additions and 3835 deletions

View File

@@ -971,7 +971,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