Validaciones, Complementos Solo PPD

Bancos/PopIEVentas.aspx.vb

@@ -5,8 +5,8 @@ Imports System.Data
 Imports Extensiones
 
 Partial Class Bancos_PopIEVentas
-    Inherits ClsPaginas
+    Inherits ClsPaginas
-
+
 #Region "Propiedades"
     Private Property DtDeudores As DataTable
         Get
@@ -520,9 +520,9 @@ Partial Class Bancos_PopIEVentas
         Set(value As Date)
             ViewState("Fecha") = value
         End Set
-    End Property
+    End Property
 #End Region
-
+
     Private Sub Bancos_PopIEVentas_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not IsPostBack Then
@@ -618,8 +618,8 @@ Partial Class Bancos_PopIEVentas
                 TxtTCDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4)
             End If
         End If
-    End Sub
+    End Sub
-
+
 #Region "C A M B I A R  P A N E L"
     Private Sub RBLContado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLContado.SelectedIndexChanged
         Select Case RBLContado.SelectedValue
@@ -670,9 +670,9 @@ Partial Class Bancos_PopIEVentas
         End Select
 
         UpGuardar.Update()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "C A R G A R  I N F O R M A C I O N"
     Private Sub CargaVenta(pCveVenta As Integer)
         Dim ObjVenta As New ClsVentas()
@@ -1005,9 +1005,9 @@ Partial Class Bancos_PopIEVentas
         End If
 
         UpDeudores.Update()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "DDL'S CHANGED"
     Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
         Dim valor As Integer = DirectCast(sender, DropDownList).SelectedValue.ToEntero
@@ -1097,8 +1097,8 @@ Partial Class Bancos_PopIEVentas
 
     Private Sub DdlDeudor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlDeudor.SelectedIndexChanged
         CambieDeudor()
-    End Sub
+    End Sub
-
+
 #Region " CUENTAS DEPOSITOS"
     Private Sub CargaCuentasDepositos()
         DdlCuentaDeposito.Items.Clear()
@@ -1166,10 +1166,10 @@ Partial Class Bancos_PopIEVentas
         End If
         Dep.Dispose()
         UpCuentaDeposito.Update()
-    End Sub
+    End Sub
 #End Region
 #End Region
-
+
 #Region "GV ROW DATA BOUND"
     Private Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvIngresos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -1218,12 +1218,12 @@ Partial Class Bancos_PopIEVentas
 
             Dim rv As RangeValidator = CType(e.Row.FindControl("RVSaldoDeudor"), RangeValidator)
         End If
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "CHK TIPO CAMBIO"
-
+
 #Region "PAGAR CON PESOS"
     Protected Sub ChkPagarPesos_CheckedChanged(sender As Object, e As EventArgs)
         If ChkPagarPesos.Checked Then
@@ -1284,9 +1284,9 @@ Partial Class Bancos_PopIEVentas
         Else
             args.IsValid = False
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "PAGAR CON DOLARES"
     Protected Sub ChkPagarDolares_CheckedChanged(sender As Object, e As EventArgs)
         If ChkPagarDolares.Checked Then
@@ -1345,9 +1345,9 @@ Partial Class Bancos_PopIEVentas
         Else
             args.IsValid = False
         End If
-    End Sub
+    End Sub
 #End Region
-
+
     Protected Sub BtnCambiaTipoMoneda_Click(sender As Object, e As EventArgs)
         CambiaTipoMoneda()
     End Sub
@@ -1377,6 +1377,9 @@ 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 FechaFactura As Date = FechaVenta
         Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate
 
@@ -3588,9 +3591,9 @@ Partial Class Bancos_PopIEVentas
 
         UpDatos.Update()
         UpGuardar.Update()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  COMPLEMENTOS PAGO  "
     Private Function EmitirComplementoPago(CveIE As Integer, CveVentas As List(Of Integer), Series As List(Of String)) As String
         If Not ChkComplementoPago.Checked Then
@@ -3601,6 +3604,16 @@ Partial Class Bancos_PopIEVentas
 
         'For i = 0 To CveVentas.Count - 1
         Dim ObjBancos As New ClsBancos
+
+        If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 2, UsuarioActual.CveEmpresa, -1) Then
+            If Not ObjBancos.DtResultados.Rows.Count > 0 Then
+                ObjBancos.Dispose()
+                Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)
+                Return ""
+            End If
+        End If
+
+
         ObjBancos.IniciaTransacSQL()
 
         If ObjBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, CveCliente) Then