From a4c739c3e71ed59e61a8633e6ec300d8dea5a785 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 5 Oct 2020 12:31:38 -0700 Subject: [PATCH] funcionalidad, que al ser de credito, sea PPD-por definir y contado PUE-seleccione --- Ventas/Ventas.aspx.vb | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 3f30ed1db..52604cf55 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -18670,12 +18670,22 @@ Partial Class Ventas Select Case RBLPago.SelectedValue.ToEntero() Case 1 'CREDITO TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString + 'SI ES CREDITO EL METODO DE PAGO DEBE SER PPD + If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then + DdlMetodoPago33.SelectedValueExist("3") + DdlMetodoPago33.Enabled = False + End If Case 2 'CONTADO If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then DivContado.Visible = True TxtImporteContado.Text = TxtTotal.Text End If TxtFechaPago.Text = Now.ToShortDateString + 'SI ES CONTADO EL METODO DE PAGO DEBE SER PUE + If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then + DdlMetodoPago33.SelectedValueExist("1") + DdlMetodoPago33.Enabled = False + End If Case 3 ' TERMINAL DivTerminal.Visible = True TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString @@ -18683,6 +18693,7 @@ Partial Class Ventas LimpiaContado() UpContado.Update() + UPCondicionesPago.Update() End Sub Private Sub CargaCuentas()