Grupos y Clacificacaiones Comprobaciones

2020-05-25 16:56:30 -07:00
parent bcd5b0102c
commit 0277953d35
9 changed files with 323 additions and 146 deletions
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -776,9 +776,30 @@ Partial Class Compras_Proveedores
    End Function

    Private Sub CargaCombos()
+
        CargaResponsable()
        CargaClasificacionProveedor()
        CargaUsuarioEvaluacionProveedor()
+        CargaBancosSAT()
+
+    End Sub
+
+
+    Private Sub CargaBancosSAT()
+
+        Dim ObjBancos As New ClsBancos
+
+        If ObjBancos.GetBancosSAT Then
+            DdlSatBanco.DataSource = ObjBancos.DtResultados
+        End If
+
+        ObjBancos.Dispose()
+
+        DdlSatBanco.DataBind()
+        DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+
+
    End Sub

    Private Function CargaDatos() As Boolean
@@ -1640,7 +1661,9 @@ Partial Class Compras_Proveedores
                ''Agregar Cuentas Bancarias
                If TempDTCuentasBancos.Rows.Count > 0 Then
                    For Each row As DataRow In TempDTCuentasBancos.Rows
-                        If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, CveProveedor:=NuevoCveProveedor, Correo:=row("Correo").ToString, BBVAAlias:=row("BBVAAlias").ToString) Then
+                        If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero,
+                                                                      CveProveedor:=NuevoCveProveedor, Correo:=row("Correo").ToString, BBVAAlias:=row("BBVAAlias").ToString,
+                                                                      EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString), EstatusPagoElectronicoGrupos:=Boolean.Parse(row("EstatusPagoElectronicoGrupos").ToString), CveSATBanco:=row("CveSATBanco").ToString.ToEntero) Then
                            ErrorBancos = True
                        End If
                    Next
@@ -3036,6 +3059,7 @@ Partial Class Compras_Proveedores
        CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)

        RecargaGlobalCuentasBancarias()
+
    End Sub
    Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)

@@ -3045,19 +3069,6 @@ Partial Class Compras_Proveedores
            EsBancomer = True
        End If

-        ''COMENTADO PARA PERMITIR ENTRADA DE UNA CUENTA A PROVEEDOR, 22 DE SEPTIEMBRE, ISRAEL PIÑA
-        'If EsBancomer AndAlso (TxtCLABE.Text.Length = 18 AndAlso Not TxtCLABE.Text.Substring(0, 3) = "012") Then
-        '    Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
-
-        ''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE
-        'If (TxtCLABE.Text.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And TxtConvenioCIE.Text.Trim.Length <> 6 And TxtCLABE.Text.Trim.Length <> 18) Then
-        '    Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
-
-
        'RESTRICCIONES GENERALES

        'QUE TENGA ALGUN DATO DE TIPO DE CUENTA
@@ -3111,15 +3122,19 @@ Partial Class Compras_Proveedores
        Dim Estatus As Boolean
        If ChkEstatus.Checked = True Then Estatus = True Else Estatus = False

-        AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferencia.Text.Trim, TxtRefCrediProveedor.Text.Trim, DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text)
+        AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferencia.Text.Trim, TxtRefCrediProveedor.Text.Trim,
+                           DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text, ChkPagoElectronico.Checked, ChkPagoElectronicoGrupos.Checked, DdlSatBanco.SelectedValue.ToEntero)
    End Sub
-    Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String)
+
+    Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String,
+                                   CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer)
        Dim ObjCuentasBancos As New ClsGenerales
        If Modalidad = "A" Then

            If CveProveedor > 0 Then

-                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor, Correo:=Correo, BBVAAlias:=BBVAAlias) Then
+                If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor,
+                                                        Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco) Then
                    DTCuentasBancos.Clear()
                    DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
                    Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
@@ -3143,10 +3158,14 @@ Partial Class Compras_Proveedores
                Row("RefCrediProveedor") = RefCrediProveedor
                Row("CveMoneda") = CveMoneda
                Row("Moneda") = Moneda
-                Row("EstatusPagoElectronico") = 0
+                Row("EstatusPagoElectronico") = EstatusPagoElectronico
+                Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
                Row("Estatus") = "True"
                Row("Correo") = Correo
+                Row("CveSATBanco") = CveSATBanco
+
                TempDTCuentasBancos.Rows.Add(Row)
+
                Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))

@@ -3157,7 +3176,8 @@ Partial Class Compras_Proveedores

            If CveProveedor > 0 Then

-                If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias) Then
+                If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor,
+                                                           False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco) Then
                    DTCuentasBancos.Clear()
                    DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor)))
                    Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
@@ -3181,8 +3201,12 @@ Partial Class Compras_Proveedores
                Row("RefCrediProveedor") = RefCrediProveedor
                Row("CveMoneda") = CveMoneda
                Row("Moneda") = Moneda
+                Row("EstatusPagoElectronico") = EstatusPagoElectronico
+                Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos
                Row("Estatus") = Estatus
                Row("Correo") = Correo
+                Row("CveSATBanco") = CveSATBanco
+
                TempDTCuentasBancos.AcceptChanges()
                Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
@@ -4673,6 +4697,13 @@ Partial Class Compras_Proveedores
        TxtBBVAAlias.Text = ""
        ChkEstatus.Checked = True
        divestatus.Visible = False
+
+        ChkPagoElectronico.Checked = False
+        ChkPagoElectronicoGrupos.Checked = False
+        DdlSatBanco.SelectedValueExist("-1")
+
+        DVDdlSatBanco.Visible = False
+
        UpAddBancos.Update()
        RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
    End Sub
@@ -4697,6 +4728,15 @@ Partial Class Compras_Proveedores
        ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
        divestatus.Visible = True
        UpAddBancos.Update()
+
+        ChkPagoElectronico.Checked = Boolean.Parse(GvRow.DataKey("EstatusPagoElectronico").ToString)
+        ChkPagoElectronicoGrupos.Checked = Boolean.Parse(GvRow.DataKey("EstatusPagoElectronicoGrupos").ToString)
+        DdlSatBanco.SelectedValueExist(GvRow.DataKey("CveSATBanco"))
+
+        If ChkPagoElectronicoGrupos.Checked Then
+            DVDdlSatBanco.Visible = True
+        End If
+
        RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
    End Sub

@@ -6153,6 +6193,24 @@ Partial Class Compras_Proveedores
 #End Region


+    Protected Sub ChkPagoElectronicoGrupos_CheckedChanged(sender As Object, e As EventArgs)
+
+        If ChkPagoElectronicoGrupos.Checked Then
+            DVDdlSatBanco.Visible = True
+        Else
+            DVDdlSatBanco.Visible = False
+        End If
+
+        UpAddBancos.Update()
+    End Sub
+
+    Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs)
+
+        If ChkPagoElectronico.Checked Then
+            Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la platoforma", TipoMensaje.MsgAdvertencia)
+        End If
+
+    End Sub
 End Class