Grupo Diaz 2024.05.31

Ventas/ClientesAbonar.aspx.vb

@@ -615,6 +615,19 @@ Partial Class Ventas_ClientesAbonar
 
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
 
+
+        Dim FechaEmision As Date = MinFecha
+
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            FechaEmision = TxtFechaEmision.Text.ToDate
+
+            If FechaEmision <= MinFecha Then
+                Alert("Fecha de Emisión no valida", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+        End If
+
         If ChkComplementoPago.Checked Then
             Dim objGral As New ClsGralFolios
             Dim SalirDeMetodo As Boolean = False
@@ -800,7 +813,7 @@ Partial Class Ventas_ClientesAbonar
                 CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal,
                                            GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio,
                                            TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito,
-                                           CveProveedorIntermediario:=CveProvIntermediario, ImporteDeduccionesPago:=TxtImporteDeduccionesPago.Text.ToDecimal)
+                                           CveProveedorIntermediario:=CveProvIntermediario, ImporteDeduccionesPago:=TxtImporteDeduccionesPago.Text.ToDecimal, FechaEmision:=FechaEmision)
             Else
                 If RblTipoPago.SelectedValue.Contiene("3") Then 'ixc
                     CveIE = DdlIngreso.SelectedValue.ToEntero
@@ -2844,4 +2857,14 @@ Partial Class Ventas_ClientesAbonar
         End If
 
     End Sub
+
+    Protected Sub ChkComplementoPago_CheckedChanged(sender As Object, e As EventArgs)
+
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            DvFechaEmision.Visible = ChkComplementoPago.Checked
+            UpGuardar.Update()
+        End If
+
+
+    End Sub
 End Class