AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Pago electronico Layout Bajio, Diario de pagos envio de pago en pesos facturas en dolares, envio correo cliente campo CodigoCliene

Browse Source
This commit is contained in:
Oscar Irigoyen
2025-06-12 08:37:15 -07:00
parent e2c0435550
commit c5e0804fc6
12 changed files with 676 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Bancos/Devoluciones.aspx.cs
View File

@@ -471,7 +471,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
if (gvr.FCTextBox("TxtIVA").Text.ToDecimal() > 0)
{
//INGxC
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveConceptoContableDevolucion, Ref, Conc, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), CveIEDevolucion: CveIE))
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveConceptoContableDevolucion, Ref, Conc, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero()))
{
MsgError = "No se pudo insertar concepto de devolución";
}
@@ -488,7 +488,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
else
{
//INGxC
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveConceptoContableDevolucion, Ref, Conc, CveIE: CveIE, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero()))
if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoDevolucion, gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), gvr.FCTextBox("TxtAbonar").Text.ToDecimal(), CveConceptoContableDevolucion, Ref, Conc, CveIE: gvr.DataKey("CveIE").ToEntero(), CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: DdlCliente.SelectedValue.ToEntero() ))
{
MsgError = "No se pudo insertar concepto de bancos";
}

21
Bancos/PagoElectronicoGrupos.aspx
View File

@@ -33,7 +33,10 @@
<div class="titlefiltros caption ">
<ul class="list-inline">
<li>Cuenta:
<asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Width="350px"></asp:DropDownList>
<asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" CssClass="form-control input-sm select2me" Width="350px"
AutoPostBack="true"
OnSelectedIndexChanged="DdlCuenta_SelectedIndexChanged"
></asp:DropDownList>
</li>
<li>Tipo:
<asp:DropDownList ID="DdlTipoGeneracion" runat="server" CssClass="form-control input-sm select2me" Width="350px">
@@ -110,12 +113,22 @@
<td>
<asp:Label runat="server" ID="LbNumeroInterbancarias" Width="80px"></asp:Label></td>
</tr>
<tr>
<tr runat="server" id="TrNumeroBancomer" visible="false">
<td>Bancomer:</td>
<td>
<asp:Label runat="server" ID="LbNumeroBancomer" Width="80px"></asp:Label></td>
</tr>
<tr>
<tr runat="server" id="TrNumeroBajio" visible="false">
<td>Bajio:</td>
<td>
<asp:Label runat="server" ID="LbNumeroBajio" Width="80px"></asp:Label></td>
</tr>
<tr runat="server" id="TrNumeroScotia" visible="false">
<td>Scotia:</td>
<td>
<asp:Label runat="server" ID="LbNumeroScotia" Width="80px"></asp:Label></td>
</tr>
<tr >
<td colspan="2" align="center">
<asp:Button runat="server" ID="BtnGenerarAlta" Text="Generar Alta" OnClick="BtnAltas_Click" class="btn btn-primary" />
</td>
@@ -852,7 +865,7 @@
</div>
<div class="col-md-12" runat="server" id="DVDescargaCuentas1" visible=" false" >
<p> Cuentas Bancomer <asp:LinkButton runat="server" ID="LnkDescargaCuentas1" OnClick="LnkDescargaCuentas1_Click" CssClass="Texto"></asp:LinkButton> </p>
<p><asp:Label runat="server" ID="LblCuentas" Text="Cuentas Bancomer"></asp:Label> <asp:LinkButton runat="server" ID="LnkDescargaCuentas1" OnClick="LnkDescargaCuentas1_Click" CssClass="Texto"></asp:LinkButton> </p>
</div>
<div class="col-md-12" runat="server" id="DVDescargaCuentas2" visible=" false">

685
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -4,8 +4,10 @@ Option Strict On
Imports System.Data
Imports System.Globalization
Imports System.IO
Imports CFDI_GenCodigo
Imports Extensiones
Imports Ionic.Zip
Imports iText.Barcodes.Dmcode
Imports Microsoft.Reporting.WebForms
Partial Class Bancos_PagoElectronicoGrupos
@@ -283,6 +285,28 @@ Partial Class Bancos_PagoElectronicoGrupos
End Property
ReadOnly Property OpBancos As Integer
Get
Dim OpBanco As Integer = -1
If (DdlCuenta.SelectedItem.Text.ToUpper.Contains("BANCOMER") OrElse DdlCuenta.SelectedItem.Text.ToUpper.Contains("BBVA")) Then
OpBanco = 1
End If
If DdlCuenta.SelectedItem.Text.ToUpper.Contains("BAJIO") Then
OpBanco = 2
End If
If DdlCuenta.SelectedItem.Text.ToUpper.Contains("SCOTIA") Then
OpBanco = 3
End If
Return OpBanco
End Get
End Property
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -302,7 +326,7 @@ Partial Class Bancos_PagoElectronicoGrupos
txtFechaF.Text = NowADS().ToShortDateString
CargaCuentas()
CargaProveedores()
'CargaProveedores()
InicializaDatosGenerales()
End If
@@ -385,38 +409,146 @@ Partial Class Bancos_PagoElectronicoGrupos
Dim Altas As Integer = 0
Dim Interbancarias As Integer = 0
Dim Bancomer As Integer = 0
Dim Bajio As Integer = 0
Dim Scotia As Integer = 0
Dim Movimientos As Integer = 0
Dim Importe As Decimal = 0
For Each dr As DataRow In DTPendientes.Rows
TrNumeroBancomer.Visible = False
TrNumeroBajio.Visible = False
TrNumeroScotia.Visible = False
'--- Asume que existen contadores: Altas, Movimientos, Importe, Bancomer,
' Bajio, Scotia, Interbancarias declarados y con valor inicial 0.
For Each dr As DataRow In DTPendientes.Rows
' 1. Filtrar filas cuya cuenta‑depósito no está activa
If dr("EstatusCtaDeposito").ToString <> "True" Then Continue For
Dim tieneCuenta As Boolean = dr("CveCuentaDeposito").ToString <> ""
Dim altaCuenta As Boolean = dr("AltaCuenta").ToString = "1"
' 2. ALTA de cuentas NO habilitadas todavía
If tieneCuenta AndAlso altaCuenta Then
'–– Determina si la cuenta ya está **habilitada** para el banco elegido en la pantalla ––'
Dim habilitada As Boolean
Select Case True
Case DdlCuenta.SelectedItem.Text.ToUpper.Contains("BANCOMER") _
OrElse DdlCuenta.SelectedItem.Text.ToUpper.Contains("BBVA")
habilitada = (dr("EstatusPagoElectronicoGrupos").ToString = "True")
Case DdlCuenta.SelectedItem.Text.ToUpper.Contains("BAJIO")
habilitada = (dr("EstatusPagoElectronicoGruposBajio").ToString = "True")
Case DdlCuenta.SelectedItem.Text.ToUpper.Contains("SCOTIA")
habilitada = (dr("EstatusPagoElectronicoGruposScotia").ToString = "True")
Case Else
habilitada = False 'Otros bancos → sin bandera propia
End Select
If Not habilitada Then
Altas += 1 '‑‑‑ cuenta el alta sólo una vez
'‑‑‑ Clasificación por banco real del beneficiario –‑‑'
Select Case True
Case dr("BancoNombre").ToString.ToUpper.Contains("BANCOMER") _
OrElse dr("BancoNombre").ToString.ToUpper.Contains("BBVA")
Bancomer += 1
Case dr("BancoNombre").ToString.ToUpper.Contains("BAJIO")
Bajio += 1
Case dr("BancoNombre").ToString.ToUpper.Contains("SCOTIA")
Scotia += 1
Case Else
Interbancarias += 1
End Select
End If
' 3. MOVIMIENTOS de cuentas ya existentes
ElseIf dr("CveCuentaDeposito").ToString.ToEntero > 0 Then
Movimientos += 1
Importe += dr("Abonado").ToString.ToDecimal
End If
Next
'For Each dr As DataRow In DTPendientes.Rows
If dr("EstatusCtaDeposito").ToString <> "True" Then
Continue For
End If
' If dr("EstatusCtaDeposito").ToString <> "True" Then
' Continue For
' End If
If dr("CveCuentaDeposito").ToString <> "" And dr("EstatusPagoElectronicoGrupos").ToString <> "True" And dr("AltaCuenta").ToString = "1" Then
Altas += 1
If dr("BancoNombre").ToString.ToUpper.Contains("BANCOMER") OrElse dr("BancoNombre").ToString.ToUpper.Contains("BBVA") Then
Bancomer += 1
Else
Interbancarias += 1
End If
' If dr("CveCuentaDeposito").ToString <> "" And dr("AltaCuenta").ToString = "1" Then
ElseIf dr("CveCuentaDeposito").ToString.ToEntero > 0 Then
Movimientos += 1
Importe += dr("Abonado").ToString.ToDecimal
End If
Next
' If DdlCuenta.SelectedItem.Text.ToUpper.Contains("BANCOMER") OrElse DdlCuenta.SelectedItem.Text.ToUpper.Contains("BBVA") Then
' If dr("EstatusPagoElectronicoGrupos").ToString <> "True" Then
' If dr("BancoNombre").ToString.ToUpper.Contains("BANCOMER") OrElse dr("BancoNombre").ToString.ToUpper.Contains("BBVA") Then
' Bancomer += 1
' Else
' Interbancarias += 1
' End If
' Altas += 1
' End If
' End If
' If DdlCuenta.SelectedItem.Text.ToUpper.Contains("BAJIO") Then
' If dr("EstatusPagoElectronicoGruposBajio").ToString <> "True" Then
' If dr("BancoNombre").ToString.ToUpper.Contains("BAJIO") Then
' Bajio += 1
' Else
' Interbancarias += 1
' End If
' Altas += 1
' End If
' End If
' If DdlCuenta.SelectedItem.Text.ToUpper.Contains("SCOTIA") Then
' If dr("EstatusPagoElectronicoGruposScotia").ToString <> "True" Then
' If dr("BancoNombre").ToString.ToUpper.Contains("SCOTIA") Then
' Scotia += 1
' Else
' Interbancarias += 1
' End If
' Altas += 1
' End If
' End If
' ElseIf dr("CveCuentaDeposito").ToString.ToEntero > 0 Then
' Movimientos += 1
' Importe += dr("Abonado").ToString.ToDecimal
' End If
'Next
LnkNumeroAltas.Text = Altas.ToString
LbNumeroInterbancarias.Text = Interbancarias.ToString
LbNumeroBancomer.Text = Bancomer.ToString
LbNumeroBajio.Text = Bajio.ToString
LbNumeroScotia.Text = Scotia.ToString
LbNumeroMovimientos.Text = Movimientos.ToString
LbImporteMovimientos.Text = Importe.ToString.FormatoNumero
UpComandosGeneracion.Update()
If DdlCuenta.SelectedItem.Text.ToUpper.Contains("BANCOMER") OrElse DdlCuenta.SelectedItem.Text.ToUpper.Contains("BBVA") Then
TrNumeroBancomer.Visible = True
End If
If DdlCuenta.SelectedItem.Text.ToUpper.Contains("BAJIO") Then
TrNumeroBajio.Visible = True
End If
If DdlCuenta.SelectedItem.Text.ToUpper.Contains("SCOTIA") Then
TrNumeroScotia.Visible = True
End If
UpComandosGeneracion.Update()
End Sub
#End Region
@@ -544,15 +676,29 @@ Partial Class Bancos_PagoElectronicoGrupos
'Colorea GV
If e.Row.DBCampo("RazonSocial").ToString = "" Then
e.Row.BackColor = Drawing.Color.WhiteSmoke
Else
If e.Row.DBCampo("EstatusPagoElectronicoGrupos").ToString <> "True" Then
Else
Dim CuentaDepositoSinAlta As Boolean = False
If (DdlCuenta.SelectedItem.Text.ToUpper.Contains("BANCOMER") OrElse DdlCuenta.SelectedItem.Text.ToUpper.Contains("BBVA")) AndAlso e.Row.DBCampo("EstatusPagoElectronicoGrupos").ToString <> "True" Then
CuentaDepositoSinAlta = True
End If
If DdlCuenta.SelectedItem.Text.ToUpper.Contains("BAJIO") AndAlso e.Row.DBCampo("EstatusPagoElectronicoGruposBajio").ToString <> "True" Then
CuentaDepositoSinAlta = True
End If
If DdlCuenta.SelectedItem.Text.ToUpper.Contains("SCOTIA") AndAlso e.Row.DBCampo("EstatusPagoElectronicoGruposScotia").ToString <> "True" Then
CuentaDepositoSinAlta = True
End If
If CuentaDepositoSinAlta Then
'e.Row.BackColor = Drawing.Color.LightSalmon
e.Row.ToolTip = "Cuenta Deposito aun sin dar de Alta."
LnkAyuda.Attributes.Add("data-content", "Cuenta Deposito aún sin dar de Alta.")
LnkAyuda.Visible = True
End If
If e.Row.DBCampo("CveProveedor").ToString.ToEntero > 0 Then
@@ -688,10 +834,15 @@ Partial Class Bancos_PagoElectronicoGrupos
Private Sub RecargaDatos()
CargaDatos()
TipoMasiva = 1
DdlTipoCargaMasiva.SelectedValueExist("1")
CargaProveedores()
DdlTipoCargaMasiva.SelectedValueExist("1")
CargaProveedores(OpBancos)
End Sub
#End Region
@@ -707,9 +858,17 @@ Partial Class Bancos_PagoElectronicoGrupos
If Not DdlCuenta.SelectedValue.ToEntero > 0 Then
Alert("Primero debe seleccionar una Cuenta", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
AltaProveedores()
End If
If OpBancos = 1 Then
AltaProveedores()
ElseIf OpBancos = 2 Then
AltaProveedoresBajio()
ElseIf OpBancos = 3 Then
'AltaProveedoresScotia()
End If
End Sub
Private Sub AltaProveedores(Optional DtCuentasPendientesTemp As DataTable = Nothing)
@@ -960,6 +1119,7 @@ Partial Class Bancos_PagoElectronicoGrupos
If NombreArchivoBancomer.Length > 0 Or NombreArchivoInterbancario.Length > 0 Or NombreArchivoCIE.Length > 0 Then
LblCuentas.Text = "Cuentas Bancomer"
LnkDescargaCuentas1.Text = NombreArchivoBancomer
LnkDescargaCuentas2.Text = NombreArchivoInterbancario
LnkDescargaCuentas3.Text = NombreArchivoCIE
@@ -974,6 +1134,217 @@ Partial Class Bancos_PagoElectronicoGrupos
End Sub
'---------------------------------------------------------------------------------
' Banco: BAJÍO – Alta de Proveedores y Cuentas (layout 541 espacios)
' Notas:
' • Header: 01 + Nº archivo(7) + fecha(yyyyMMdd) + divisa("001") = 20 bytes
' • Detalle: 02 + consecutivo(7) + "0140" + [banco(3)+tipo(2)+cta(20)] + alias(15) +
' nombre(40) + RFC(13) + correo(55) + importeMax(15) + tiempoUso(20) +
' periodoImp(40) + usuarios(100) + moneda(3) + tipoRel(2) + otroRel(60) +
' filler(140) = 541 bytes
' • Pie: 09 + totalLíneas(7) + totalReg(7) + "00000000" + "0000000000" = 34 bytes
'---------------------------------------------------------------------------------
Private Sub AltaProveedoresBajio(Optional ByVal DtCuentasPendientesTemp As DataTable = Nothing)
'------------------- Inicialización de variables y filtros ----------------
NombreArchivo = ""
DVDescargaCuentas1.Visible = False 're uso los mismos controles que Bancomer
DVDescargaCuentas2.Visible = False
DVDescargaCuentas3.Visible = False
Dim RegistrosAltaBajio As New StringBuilder
Dim SBErrores As New StringBuilder
Dim CeroRelleno As Char = "0"c
Dim EspacioRelleno As Char = ChrW(32)
If DtCuentasPendientesTemp Is Nothing Then DtCuentasPendientesTemp = DTPendientes.Copy
DtCuentasPendientesTemp.CaseSensitive = False
'Sólo tomamos cuentas cuyo estatus aún no está confirmado
Dim DtCuentasPendientes As DataTable =
DtCuentasPendientesTemp.FiltraParametros(
"(EstatusPagoElectronicoGruposBajio IS NULL OR EstatusPagoElectronicoGruposBajio = 0)",
"",
{"BancoNombre", "CveBanco", "CLABEDestino", "Cuenta", "Abreviatura",
"RazonSocial", "RFC", "BBVAAlias"})
If DtCuentasPendientes.Rows.Count = 0 Then
Alert("No hay cuentas pendientes de alta para Bajío.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
'------------------- Constantes de layout ----------------
Const CABECERA_LEN As Integer = 20
Const DETALLE_LEN As Integer = 541
Const PIE_LEN As Integer = 16
Const DIVISA_MXN As String = "001"
'Const FILLER_8CEROS As String = "00000000"
Const FILLER_140ESP As String = " " '140 espacios
Const CONST_0140 As String = "0140"
Dim NumeroArchivo As Integer = 1 '→ ajústalo si manejas consecutivo diario
Dim FechaArchivo As Date = NowADS().Date
'------------------- CABECERA (20 espacios) ----------------
Dim Header As String = $"01{NumeroArchivo:D7}{FechaArchivo:yyyyMMdd}{DIVISA_MXN}"
If Header.Length <> CABECERA_LEN Then
Alert($"Header inválido. Esperado: {CABECERA_LEN} bytes, real: {Header.Length}.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
RegistrosAltaBajio.Append(Header & vbCrLf)
'------------------- DETALLES (541 espacios) ----------------
Dim ConsecArchivo As Integer = 2 'Ya contamos el header
For Each dRow As DataRow In DtCuentasPendientes.Rows
Dim SBTmp As New StringBuilder
Dim SBErrLinea As New StringBuilder
Dim ErrorLinea As Boolean = False
SBErrLinea.Append($"[{dRow("RazonSocial")}] ")
'---- Banco (3) + TipoCuenta (2) + Cuenta/CLABE (≤20) ---------------
Dim CveBanco As String = dRow("CveBanco").ToString.Trim.PadLeft(3, CeroRelleno)
If CveBanco.Length <> 3 OrElse Not IsNumeric(CveBanco) Then
SBErrLinea.Append("Banco inválido. ")
ErrorLinea = True
End If
Dim Cuenta As String = New String(
dRow("CLABEDestino").ToString _
.Where(AddressOf Char.IsDigit).ToArray()) 'sólo dígitos
If Cuenta.Length = 18 Then
Cuenta = Cuenta.PadLeft(20, CeroRelleno)
SBTmp.Append("40") 'tipo cuenta
ElseIf Cuenta.Length = 11 Or Cuenta.Length = 12 Then
Cuenta = Cuenta.PadLeft(20, CeroRelleno)
SBTmp.Append("01") 'tipo cuenta
Else
SBErrLinea.Append("Cuenta/CLABE debe tener 11-12-18 dígitos. ")
ErrorLinea = True
Cuenta = Cuenta.PadLeft(20, CeroRelleno)
SBTmp.Append("00")
End If
'---- AliasProveedor (15) + Nombre (40) --------------------------------------
Dim AliasProveedor As String = LimpiarBajio(If(dRow("BBVAAlias").ToString.Trim.Length > 0, dRow("BBVAAlias").ToString, dRow("RazonSocial").ToString).ToString, 15)
Dim Nombre As String = LimpiarBajio(dRow("RazonSocial").ToString, 40)
'---- RFC (13) + Correo (55) ----------------------------------------
Dim Rfc As String = LimpiarBajio(dRow("RFC").ToString, 13, True)
'Dim Correo As String = LimpiarBajio(dRow("CorreoElectronico").ToString, 55, True)
Dim Correo As String = LimpiarBajio("", 55, True)
'---- Campos opcionales en blanco / ceros ---------------------------
Const IMPORTE_MAX As String = "000000000000000"
Const TIEMPO_USO As String = " " '20 esp
Const PERIODO_IMP As String = " " '40 esp
Const USUARIOS As String = " " '94 esp
Const MONEDA As String = " "
Const TIPO_REL As String = " "
Const OTRO_REL As String = " "
'---- Armar línea detalle -------------------------------------------
If Not ErrorLinea Then
With SBTmp
.Insert(0, "02") 'tipo registro
.Insert(2, ConsecArchivo.ToString("D7")) 'consecutivo archivo
.Insert(9, CONST_0140) 'constante 0140
.Insert(13, CveBanco) 'banco (3)
'En 16 ya está tipo (2) y cuenta (20) que añadimos antes
.Append(Cuenta) '20
.Append(AliasProveedor.PadRight(15, EspacioRelleno))
.Append(Nombre.PadRight(40, EspacioRelleno))
.Append(Rfc.PadRight(13, EspacioRelleno))
.Append(Correo.PadRight(55, EspacioRelleno))
.Append(IMPORTE_MAX)
.Append(TIEMPO_USO)
.Append(PERIODO_IMP)
.Append(USUARIOS)
.Append(MONEDA)
.Append(TIPO_REL)
.Append(OTRO_REL)
.Append(FILLER_140ESP)
End With
If SBTmp.Length <> DETALLE_LEN Then
SBErrLinea.Append($"Longitud {SBTmp.Length}/541 incorrecta. ")
ErrorLinea = True
End If
End If
'---- Añadir al archivo o a la lista de errores ----------------------
If ErrorLinea Then
RegistrosAltaBajio.Append(SBTmp.ToString & vbCrLf)
SBErrLinea.Append("<br>")
SBErrores.AppendLine(SBErrLinea.ToString)
Else
RegistrosAltaBajio.Append(SBTmp.ToString & vbCrLf)
'Aquí puedes marcar la cuenta como “AltaGenerada” en BD si lo deseas
ConsecArchivo += 1
End If
Next
'------------------- PIE (16 ) ----------------
Dim TotalLineas As Integer = ConsecArchivo 'header + detalles + pie aún no añadido
Dim TotalRegistros As Integer = TotalLineas - 2
Dim Pie As String = $"09{TotalLineas:D7}{TotalRegistros:D7}"
If Pie.Length <> PIE_LEN Then
Alert($"Pie inválido ({Pie.Length} bytes).", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
RegistrosAltaBajio.Append(Pie)
'------------------- Crear archivo y mostrar descargas ------------------
TextoCompleto = RegistrosAltaBajio.ToString
If RegistrosAltaBajio.Length = 0 Then
Alert("No se generó ningún registro válido para Bajío.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim NombreArchivoEnviado As String = $"altacuentasbajio_{FechaArchivo:ddMMyyyy}_{NumeroArchivo:D3}.txt"
If CreaArchivo(2, True, NombreArchivoEnviado) Then
DVDescargaPagos.Visible = False
DVDescargaReporte.Visible = False
LblCuentas.Text = "Cuentas Bajio"
NombreArchivoBancomer = "" 'No usamos estos para Bajío
NombreArchivoInterbancario = ""
NombreArchivoCIE = ""
NombreArchivo = NombreArchivoEnviado
DVDescargaCuentas1.Visible = True
LnkDescargaCuentas1.Text = NombreArchivo
RegistraScript("$('#ModalDescarga').modal({ backdrop: 'static', keyboard: false});")
UpModalDescarga.Update()
End If
If SBErrores.Length > 0 Then
Alert(SBErrores.ToString, TipoMensaje.MsgAdvertencia)
End If
CargaDatos()
End Sub
Private Function LimpiarBajio(ByVal texto As String,
ByVal maxLen As Integer,
Optional ByVal permitirVacio As Boolean = False) As String
Dim _rxProhibidos As New Regex("[\$\,\./\-ñÑÁÉÍÓÚÜáéíóúü]", RegexOptions.Compiled)
texto = If(texto, "").Trim()
If Not permitirVacio AndAlso texto.Length = 0 Then Return ""
texto = New String(texto.Normalize(NormalizationForm.FormD) _
.Where(Function(ch) CharUnicodeInfo.GetUnicodeCategory(ch) <> UnicodeCategory.NonSpacingMark) _
.ToArray()) _
.Normalize(NormalizationForm.FormC)
texto = _rxProhibidos.Replace(texto, "")
If texto.Length > maxLen Then texto = texto.Substring(0, maxLen)
Return texto
End Function
@@ -1177,7 +1548,7 @@ Partial Class Bancos_PagoElectronicoGrupos
If DTPendientes.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND EstatusCtaDeposito = 'True'") IsNot Nothing Then
Dim CuentaCargo As String = "0382755740201"
Dim CuentaCargo As String = "382755740201"
If DdlCuenta.SelectedItem.Text.Contains("BAJIO") Then
@@ -1185,7 +1556,9 @@ Partial Class Bancos_PagoElectronicoGrupos
numeroArchivo:=1,
fechaCargo:=NowADS,
cuentaCargo:=CuentaCargo,
DTPendientes.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND EstatusCtaDeposito > 0"))
DTDatos:=DTPendientes.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND EstatusCtaDeposito > 0"),
InsertaEnDB:=False
)
ElseIf DdlCuenta.SelectedItem.Text.Contains("Scotiabank") Then
@@ -1210,30 +1583,35 @@ Partial Class Bancos_PagoElectronicoGrupos
Public Sub GeneraPagoBajio(numeroArchivo As Integer,
fechaCargo As Date,
cuentaCargo As String,
DTDatos As DataTable)
DTDatos As DataTable,
InsertaEnDB As Boolean)
Dim ErrorLayout As Boolean = False
Dim HEADER_LEN As Integer = 20
Dim CABECERA_LEN As Integer = 20
Dim DETALLE_LEN As Integer = 384
Dim TRAILER_LEN As Integer = 34
Dim PIE_LEN As Integer = 34
' --- columnas fijas del header / trailer ---
' --- columnas fijas del header / Pie ---
Dim DIVISA_MXN As String = "001"
'Dim FILLER_7CEROS As String = "0000000"
Dim FILLER_8CEROS As String = "00000000"
Dim FILLER_4CEROS As String = "0000"
Dim FILLER_9CEROS As String = "000000000"
'Dim FILLER_4CEROS As String = "0000"
Dim CONST_0140 As String = "0140" '/** Pregunta */: tu banco usa siempre 0140?
Dim _mediosValidos As HashSet(Of String) = New HashSet(Of String)({"BCO", "TEF", "SPE", "SPD"})
Dim _tiposCuentaValidos As HashSet(Of String) = New HashSet(Of String)({"40", "1", "3"})
' --------------------------- Header (20 bytes) ---------------------------
Dim header As String = $"01{numeroArchivo:D7}{fechaCargo:yyyyMMdd}{DIVISA_MXN}"
If header.Length <> HEADER_LEN Then
Alert($"Header debe medir {HEADER_LEN} bytes, mide {header.Length}.", TipoMensaje.MsgAdvertencia)
If header.Length <> CABECERA_LEN Then
Alert($"Header debe medir {CABECERA_LEN} bytes, mide {header.Length}.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
' --------------------------- Detalles (384 bytes) ------------------------
Dim detalles As New List(Of String)(DTDatos.Rows.Count)
Dim consecArchivo As Integer = 2 'el #1 lo ocupa el header
Dim consecPago As Integer = 1
@@ -1250,6 +1628,7 @@ Partial Class Bancos_PagoElectronicoGrupos
Dim TipoCuentaDestino As String = ""
Dim Importe As Decimal = DRow("Importe").ToString.ToDecimal
Dim IVA As Decimal = 0D
Dim CveBanco As String = DRow("CveBanco").ToString.Trim 'CveBanco es el código SAT del banco tres dígitos
If nCaracteresClabeCuenta <> 18 Then
If nCaracteresClabeCuenta <> 12 Then
@@ -1265,9 +1644,9 @@ Partial Class Bancos_PagoElectronicoGrupos
End If
' ----------- Validaciones de negocio --------------------------------
DRow("RazonSocial") = LimpiarDatosBajio(DRow("RazonSocial").ToString, 15, "Alias")
DRow("RazonSocial") = LimpiarDatosBajio(DRow("RazonSocial").ToString, 250, "Descripción")
' ----------- Validaciones --------------------------------
DRow("RazonSocial") = LimpiarDatosBajio(DRow("RazonSocial").ToString, 15, "AliasProveedor")
DRow("Observaciones") = LimpiarDatosBajio(DRow("Observaciones").ToString, 250, "Descripción")
If Not _tiposCuentaValidos.Contains(TipoCuentaDestino) Then
Alert($"TipoCuentaDestino inválido: {TipoCuentaDestino}", TipoMensaje.MsgAdvertencia)
@@ -1294,6 +1673,16 @@ Partial Class Bancos_PagoElectronicoGrupos
Exit Sub
End If
If cuentaCargo.Length <> 12 Then
Alert($"Cuenta de cargo debe tener 12 caracteres, tiene {cuentaCargo.Length}.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If CveBanco.Length <> 3 Then
Alert($"Clabe SAT de cuenta deposito no valida, cuenta: {ClabeOCuenta}, valor SAT:{CveBanco}.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
'If DRow.IVA < 0D Then
' Alert("IVA no puede ser negativo.", TipoMensaje.MsgAdvertencia)
' Exit Sub
@@ -1302,47 +1691,138 @@ Partial Class Bancos_PagoElectronicoGrupos
' ----------- Construcción de la línea --------------------------------
Dim sb As New StringBuilder(DETALLE_LEN)
sb.Append("02") 'tipo registro
sb.Append(consecArchivo.ToString("D7")) 'consec archivo
sb.Append("01") 'tipo cta origen fijo
sb.Append(FILLER_8CEROS) 'filler
sb.Append(cuentaCargo.PadLeft(12, "0"c)) 'cta cargo
sb.Append(CONST_0140) 'constante 0140
sb.Append(ClabeOCuenta.PadLeft(3, "0"c))
sb.Append("00") '5 dígitos banco destino
sb.Append(consecPago.ToString("D10")) 'consec pago
sb.Append("000" & fechaCargo.ToString("yyyyMMdd")) 'prefijo 000 + fecha
sb.Append("02") 'tipo registro
sb.Append(consecArchivo.ToString("D7")) 'consec archivo
sb.Append("01") 'tipo cta origen fijo
sb.Append(FILLER_8CEROS) 'filler
sb.Append(cuentaCargo.PadLeft(12, "0"c)) 'cta cargo
sb.Append(CONST_0140) 'constante 0140?
sb.Append(CveBanco.Substring(0, 3).PadLeft(3, "0"c)) 'codigo de banco SAT
sb.Append(consecPago.ToString.PadLeft(10, "0"c)) 'consec pago
sb.Append("00000" & fechaCargo.ToString("yyyyMMdd")) 'prefijo 000 + fecha
sb.Append(MedioPago) 'BCO/TEF/SPE/SPD
sb.Append(TipoCuentaDestino.PadLeft(2, "0"c)) 'tipo cta destino
sb.Append(FILLER_4CEROS) 'filler
sb.Append(DRow("RazonSocial").ToString.PadRight(15)) 'alias (15)
'sb.Append(FILLER_4CEROS) 'filler
sb.Append(ClabeOCuenta.PadLeft(20, "0"c))
sb.Append(FILLER_9CEROS)
'sb.Append(DRow("RazonSocial").ToString.PadRight(15))
sb.Append(LimpiarBajio(If(DRow("BBVAAlias").ToString.Trim.Length > 0, DRow("BBVAAlias").ToString, DRow("RazonSocial").ToString).ToString, 15)) 'alias (15)
sb.Append(CLng(IVA).ToString("D15")) 'IVA ×100
sb.Append(DRow("RazonSocial").ToString.PadRight(250)) 'descripción (250)
sb.Append(DRow("Observaciones").ToString.PadRight(250)) 'descripción (250)
sb.Append(If(String.IsNullOrEmpty(ReferenciaSPEI),
New String("0"c, 7),
ReferenciaSPEI)) 'referencia SPEI
ReferenciaSPEI)) 'referencia SPEI
sb.Append(If(String.IsNullOrEmpty(ClasificacionSPID),
"00",
ClasificacionSPID.PadLeft(2, "0"c))) 'clasif SPID
sb.Append(New String(" "c, 25)) 'filler final
ClasificacionSPID.PadLeft(2, "0"c))) 'clasif SPID
sb.Append(New String(" "c, 25)) 'filler final
If sb.Length <> DETALLE_LEN Then
Throw New InvalidOperationException($"Detalle #{consecPago} mide {sb.Length} bytes, debería {DETALLE_LEN}.")
End If
detalles.Add(sb.ToString())
detalles.Add($"{sb.ToString()}{vbCrLf}")
consecArchivo += 1
consecPago += 1
totalCentavos += CLng(Importe * 100)
Next
' --------------------------- Trailer (34 bytes) -------------------------
Dim totalLineas As Integer = 1 + DTDatos.Rows.Count + 1 'header + detalles + trailer
Dim trailer As String = $"09{totalLineas:D7}{DTDatos.Rows.Count:D7}{FILLER_8CEROS}{totalCentavos:D10}"
If trailer.Length <> TRAILER_LEN Then Throw New InvalidOperationException($"Trailer debe medir {TRAILER_LEN} bytes, mide {trailer.Length}.")
' --------------------------- Resultado ----------------------------------
'Return {header}.Concat(detalles).Concat({trailer})
Dim totalLineas As Integer = 1 + DTDatos.Rows.Count + 1 'header + detalles + Pie
Dim Pie As String = $"09{totalLineas:D7}{DTDatos.Rows.Count:D7}{FILLER_8CEROS}{totalCentavos:D10}"
If Pie.Length <> PIE_LEN Then
Alert($"Pie debe medir {PIE_LEN} bytes, mide {Pie.Length}.", TipoMensaje.MsgAdvertencia)
ErrorLayout = True
End If
Dim NombreArchivo As String = $"pagos_{NowADS.ToString("ddMMyyyy")}_001.txt"
'"pagos_03062025_001.txt"
If InsertaEnDB Then
Dim ObjBancos As New ClsBancos
ObjBancos.IniciaTransacSQL()
Dim CveLayoutEnvio As Integer = ObjBancos.AddLayoutEnvios(NombreArchivo, NowADS(), CveCuenta, PorGrupos:=True)
If CveLayoutEnvio > 0 Then
For Each dr As DataRow In DTDatos.Rows
If dr("CveProveedor").ToString <> "" Or dr("CvePersonal").ToString <> "" Then
If Not ObjBancos.AddLayoutEnviosDetalle(CveLayoutEnvio, dr("CveIE").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero, 1, "Observaciones") Then
ErrorLayout = True
Exit For
End If
End If
Next
Else
ErrorLayout = True
End If
If ErrorLayout Then
ObjBancos.RollBack()
ObjBancos.Dispose()
Else
ObjBancos.Commit()
ObjBancos.Dispose()
End If
End If
Dim path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo)
Dim pathDirectorio As String = String.Format("{0}Layout\", UsuarioActual.Empresa.Ruta)
If File.Exists(path) Then
File.Delete(path)
End If
If Not Directory.Exists(pathDirectorio) Then
Directory.CreateDirectory(pathDirectorio)
End If
Dim Texto As String = $"{header}{vbCrLf}{String.Join(vbCrLf, detalles)}{Pie}"
Dim fs As FileStream = File.Create(path)
Dim info As Byte() = New UTF8Encoding(True).GetBytes(Texto)
fs.Write(info, 0, info.Length)
fs.Close()
If ErrorLayout = False And consecPago > 0 Then
Dim Mensaje As New StringBuilder
Mensaje.Append("Descarga Layout<br>")
'If NombreArchivo.Length > 0 Then
' NombreArchivoPago = NombreArchivoEnviado
'End If
'If NombreArchivoPago.Trim.Length > 0 Then
' Mensaje.Append($"Pagos Descarga <a class='Texto' href='../Empresas/{UsuarioActual.CveEmpresa}/Layout/{NombreArchivoPago}' download> {NombreArchivoPago}<a> <br><br>")
'End If
If NombreArchivo.Length > 0 Then
DVDescargaPagos.Visible = True
DVDescargaCuentas1.Visible = False
DVDescargaCuentas2.Visible = False
DVDescargaCuentas3.Visible = False
DVDescargaReporte.Visible = True
DT_PagosReporte = DTDatos.Copy
LnkDescarga.Text = NombreArchivo
RegistraScript("$('#ModalDescarga').modal({ backdrop: 'static', keyboard: false});")
UpModalDescarga.Update()
End If
CargaDatos()
End If
End Sub
Private Function LimpiarDatosBajio(texto As String, maxLen As Integer, campo As String) As String
@@ -1350,7 +1830,7 @@ Partial Class Bancos_PagoElectronicoGrupos
Dim _rxProhibidos As Regex = New Regex("[\$\,\./\-ñÑÁÉÍÓÚÜáéíóúü]", RegexOptions.Compiled)
If String.IsNullOrWhiteSpace(texto) Then
Throw New ArgumentException($"{campo} es obligatorio.")
Alert($"{campo} es obligatorio.", TipoMensaje.MsgAdvertencia)
End If
' Normalizar y quitar diacríticos
@@ -1363,9 +1843,16 @@ Partial Class Bancos_PagoElectronicoGrupos
s = _rxProhibidos.Replace(s, "")
If s.Length > maxLen Then
Throw New ArgumentException($"{campo} ({s}) excede {maxLen} caracteres.")
If campo = "AliasProveedor" Or campo = "Descripción" Then
s = s.Substring(0, maxLen)
Else
Alert($"{campo} ({s}) excede {maxLen} caracteres.", TipoMensaje.MsgAdvertencia)
End If
End If
Return s
End Function
Private Sub GeneraPagoScotiabank(dataTable As DataTable)
@@ -1621,31 +2108,22 @@ Partial Class Bancos_PagoElectronicoGrupos
End If
If ErrorLayout = False And RegistrosPago.Length > 0 Then
Dim Mensaje As New StringBuilder
Mensaje.Append("Descarga Layout<br>")
If NombreArchivoEnviado.Length > 0 Then
NombreArchivoPago = NombreArchivoEnviado
End If
'If NombreArchivoPago.Trim.Length > 0 Then
' Mensaje.Append($"Pagos Descarga <a class='Texto' href='../Empresas/{UsuarioActual.CveEmpresa}/Layout/{NombreArchivoPago}' download> {NombreArchivoPago}<a> <br><br>")
'End If
If NombreArchivoPago.Length > 0 Then
DVDescargaPagos.Visible = True
DVDescargaCuentas1.Visible = False
DVDescargaCuentas2.Visible = False
@@ -2239,7 +2717,7 @@ Partial Class Bancos_PagoElectronicoGrupos
If DdlTipoCargaMasiva.SelectedValue.ToEntero = 1 Then
TipoMasiva = 1
GvProveedores.Columns(0).HeaderText = "Proveedor"
CargaProveedores()
CargaProveedores(OpBancos)
BtnGenerarProveedores.Text = "Generar Layout Alta Proveedores"
Else
TipoMasiva = 2
@@ -2255,17 +2733,28 @@ Partial Class Bancos_PagoElectronicoGrupos
Exit Sub
End If
If TipoMasiva = 1 Then
AltaProveedores(DTProveedores)
If TipoMasiva = 1 Then
If OpBancos = 1 Then
AltaProveedores(DTProveedores)
ElseIf OpBancos = 2 Then
AltaProveedoresBajio(DTProveedores)
ElseIf OpBancos = 3 Then
'AltaProveedoresScotia(DTProveedores)
End If
Else
AltaFyE()
End If
End Sub
Private Sub CargaProveedores()
Private Sub CargaProveedores(OpBanco As Integer)
Dim ObjBancos As New ClsBancos
If ObjBancos.GetLayoutProveedores(DdlCuenta.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, PorGrupos:=True) Then
If ObjBancos.GetLayoutProveedores(DdlCuenta.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, PorGrupos:=True, OpBanco:=OpBanco) Then
DTProveedores = ObjBancos.DtResultados.FiltraParametros("LEN(RFC) IN (12,13)")
Else
DTProveedores = New DataTable
@@ -2925,13 +3414,21 @@ Partial Class Bancos_PagoElectronicoGrupos
Protected Sub LnkDescargaCuentas1_Click(sender As Object, e As EventArgs)
Dim FileName As String = NombreArchivoBancomer
Dim FilePath As String = $"{UsuarioActual.Empresa.Ruta}Layout\{NombreArchivoBancomer}"
If DdlCuenta.SelectedItem.Text.ToUpper.Contains("BAJIO") Or DdlCuenta.SelectedItem.Text.ToUpper.Contains("SCOTIA") Then
FileName = LnkDescargaCuentas1.Text
FilePath = $"{UsuarioActual.Empresa.Ruta}Layout\{LnkDescargaCuentas1.Text}"
End If
Response.Clear()
Response.ContentType = "application/octet-stream"
Response.AddHeader("Content-Disposition", "attachment; filename=" & FileName)
Response.TransmitFile(FilePath)
Response.End()
End Sub
Protected Sub LnkDescargaCuentas2_Click(sender As Object, e As EventArgs)
Dim FileName As String = NombreArchivoInterbancario
@@ -3057,4 +3554,28 @@ Partial Class Bancos_PagoElectronicoGrupos
Alert("Correos ya enviados.")
End Sub
Protected Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlTipoCargaMasiva.Items(1).Enabled = False
DdlTipoCargaMasiva.SelectedValueExist(-1)
DdlTipoGeneracion.Items(2).Enabled = False
DdlTipoGeneracion.Items(3).Enabled = False
DdlTipoGeneracion.SelectedValueExist(-1)
If OpBancos = 1 Then
DdlTipoGeneracion.Items(2).Enabled = True
DdlTipoGeneracion.Items(3).Enabled = True
DdlTipoCargaMasiva.Items(1).Enabled = True
ElseIf OpBancos = 2 Then
'
ElseIf OpBancos = 3 Then
'
End If
UpFiltroCargaMasiva.Update()
UpFiltros.Update()
End Sub
End Class

4
Bancos/RepComplementoPago.aspx.vb
View File

@@ -238,6 +238,10 @@ Partial Class Bancos_RepComplementoPago
e.Row.FCLabel("LblImp").Text = e.Row.DBCampo("VentasTotalPagado").FormatoNumero
e.Row.FCLabel("LblImp").ToolTip = String.Format("Importe Pagado:{0} ", e.Row.DBCampo("Importe").FormatoNumero) ' VentasTotalPagado
Dim importe As Decimal = e.Row.DBCampo("Importe").ToDecimal.RoundAD
Dim ventasTotalPagado As Decimal = e.Row.DBCampo("VentasTotalPagado").ToDecimal.RoundAD
If e.Row.DBCampo("Importe").ToDecimal.RoundAD <> e.Row.DBCampo("VentasTotalPagado").ToDecimal.RoundAD Then
e.Row.FCLabel("LblImp").ForeColor = Drawing.Color.Red
e.Row.FCLabel("LblImp").ToolTip = String.Format("Importe Pagado:{0} Importe Pagado PUE: {1}, Ot. Ingresos {2}", e.Row.DBCampo("Importe").FormatoNumero, e.Row.DBCampo("PagadoPUE").FormatoNumero, e.Row.DBCampo("PagadoOtIngresos").FormatoNumero) ' VentasTotalPagado