Grupo Diaz 2024.05.31

Bancos/PopIEVentas.aspx.vb

@@ -1110,6 +1110,18 @@ Partial Class Bancos_PopIEVentas
 #Region "G U A R D A R"
     Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.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
@@ -1248,7 +1260,9 @@ Partial Class Bancos_PopIEVentas
 
                         Select Case RBLContado.SelectedValue
                             Case "1" ' Banco
-                                CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCorte:=CveCorte)
+                                CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "",
+                                                           True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito,
+                                                           Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCorte:=CveCorte, FechaEmision:=FechaEmision)
                                 If CveIE > 0 Then
 
                                     Pago.ImportePago = ImportePagado
@@ -1523,4 +1537,11 @@ Partial Class Bancos_PopIEVentas
     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