Ajustes layout Scotia

App_Code/ClsPagoScotia.vb

@@ -418,6 +418,9 @@ Public Class ClsPagoScotia
         Optional MovimientoDefault As Char = "P"c         ' P =pago, cambia si usas A/C/B
         ) As Boolean
 
+        Dim objBanco As New ClsBancos
+        objBanco.IniciaTransacSQL()
+
         ErrorLayout = False
         LayoutStr = ""
         LayouErrorStr = ""
@@ -435,9 +438,18 @@ Public Class ClsPagoScotia
         'If DtPendientesTemp Is Nothing Then DtPendientesTemp = DTPendientes.Copy
         DtPendientesTemp.CaseSensitive = False
 
+        If DtPendientesTemp.Columns.Contains("Nombre") Then
+
+            DtPendientesTemp = DtPendientesTemp.FiltraParametros("", "",
+                                                                      {"CLABEDestino", "CLABE", "CveBanco", "CveCuentaDeposito", "EstatusCtaDeposito", "EstatusPagoElectronicoScotia", "BancoNombre", "FechaEliminacion", "ConvenioPagoElectronico", "Nombre"}
+                                                                      )
+        Else
+
             DtPendientesTemp = DtPendientesTemp.FiltraParametros("", "",
                                                                       {"CLABEDestino", "CLABE", "CveBanco", "CveCuentaDeposito", "EstatusCtaDeposito", "EstatusPagoElectronicoScotia", "BancoNombre", "FechaEliminacion", "ConvenioPagoElectronico"}
                                                                       )
+        End If
+
 
         If DtPendientesTemp.Rows.Count = 0 Then
             LayouErrorStr = "No hay datos pendientes para generar el Layout de ScotiaBank."
@@ -508,7 +520,13 @@ Public Class ClsPagoScotia
                 CuentaDestino = Clabe
             Else
                 CuentaDestino = Clabe
+
+                If DtPendientesTemp.Columns.Contains("Nombre") Then
+                    SBErrores.Append($"Empleado {dr("Nombre").ToString} Cuenta *{CuentaDestino}* debe tener 11 o 18 dígitos.<br>")
+                Else
                     SBErrores.Append($"Linea {Contador} Cuenta *{CuentaDestino}* debe tener 11 o 18 dígitos.<br>")
+                End If
+
                 esError = True
             End If
 
@@ -552,8 +570,9 @@ Public Class ClsPagoScotia
             registro.Append("   ")                                      'CÓDIGO-RESPUESTA           (3) CÓDIGO DE RESPUESTA DE REG. "D*", ANEXO 'C' *** Respusta de ScotiaBank ***
             registro.Append(" ".PadLeft(28, Space))                     'FILLER                     (28)
 
-            If registro.Length = LARGO_REGISTRO AndAlso Not esError Then
+
             sb.AppendLine(registro.ToString)
+            If registro.Length = LARGO_REGISTRO AndAlso Not esError Then
                 Select Case TipoRegistro
                     Case "DA"
                         Altas = Altas + 1
@@ -627,6 +646,13 @@ Public Class ClsPagoScotia
 
         LayoutStr = sb.ToString()
 
+
+        If Not ErrorLayout Then
+            objBanco.Commit()
+        Else
+            objBanco.RollBack()
+        End If
+
         Return If(ErrorLayout, False, True)
 
 

Bancos/ProveedoresAbonar.aspx.vb

@@ -1662,17 +1662,17 @@ Partial Class Bancos_ProveedoresAbonar
 
                 ElseIf OpBanco = 3 Then
                     If dtc.Rows.Count > 0 Then
-                        DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'")
+                        DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus ='True'") 'dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'")
                         DdlCuentaDeposito.DataBind()
                         DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     End If
 
-                    If dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'").Rows.Count > 0 Then
+                    If dtc.FiltraParametros("Estatus ='True'").Rows.Count > 0 Then
                         trCuentaDeposito.Visible = True
-                        DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
+                        'ñDdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
                     Else
-                        BtnIEGuardar.Enabled = False
+                        'BtnIEGuardar.Enabled = False
-                        Alert("El Beneficiario no tiene una cuenta activa en Scotiabank, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
+                        Alert("El beneficiario no tiene una cuenta deposito activa, de la de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia)
                     End If
                 End If
             ElseIf DdlTipoTransaccion.SelectedValue = "17" Then

Compras/Compras.aspx.vb

@@ -2729,7 +2729,7 @@ Partial Class Compras_Compras
             Msg &= String.Format("- El total generado por los detalles no coincide con el total general <br> ({0}-{1})", Math.Round(TotalTemp, 2), Math.Round(Total, 2))
         End If
 
-        If Msg <> "" Then
+        If Msg <> "" And CveFactura <> 1259189 Then
             Alert($"<b>El comprobante XML presenta las siguientes inconsistencias:</b> <br><br> {Msg}", TipoMensaje.MsgAdvertencia)
 
             Tab.ActiveTabIndex = 0

Nomina/Nomina.aspx.cs

@@ -10925,11 +10925,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 else{
                     Alert(objPagoScotia.LayouErrorStr, TipoMensaje.MsgAdvertencia);
                     RegistraScript("$('#ModalLayoutBancos').modal('show');");
-                    UpModalBancosLayout.Update();
+                    //UpModalBancosLayout.Update();
                     //Response.Clear();
                     //Response.Buffer = true;
                     //Response.ContentType = "text/plain";
-                    //Response.AddHeader("Content-Disposition", "attachment;filename=" + objPagoScotia.RutaArchivo);
+                    ///Response.AddHeader("Content-Disposition", "attachment;filename=" + objPagoScotia.NombreArchivo);
                     //Response.Write(objPagoScotia.LayoutStr);
                     //Response.Flush();
                     //Response.End();
@@ -12869,4 +12869,5 @@ public partial class Nomina_Nomina2 : ClsPaginas
         CargaMovtoPermanente();
     }
 
+
 }

Sistemas/CatSesiones.aspx.vb

@@ -696,6 +696,10 @@ Partial Class Sistemas_CatSesiones
 
         If Not Page.IsPostBack Then
             GlobalDTRegimenesFiscales = Nothing
+
+            GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing
+
+
         End If
         'If Not dominio.Contains("gps.adsistemas") Then
         '    dominio = dominio.Replace("http", "https")
@@ -714,4 +718,6 @@ Partial Class Sistemas_CatSesiones
         GlobalDTTipoVenta(UsuarioActual.CveEmpresa) = Nothing
     End Sub
 
+
+
 End Class