dFacturas subir facturas fix no reemplazar pdf si ya existe
This commit is contained in:
Oscar Irigoyen
@@ -2690,6 +2690,7 @@ Partial Class AF_AF
|
||||
|
||||
|
||||
Try
|
||||
'Dim Para As String = "roberto.hernandez@exploracionesmineras.com"
|
||||
Dim Para As String = "oscar.irigoyen@adssistemas.mx"
|
||||
Dim Asunto As String = $"Registro de {If(Opcion = 1, "Alta de Activo Fijo", "Baja de ActivoFijo")}"
|
||||
Dim Body As String = ""
|
||||
@@ -2717,7 +2718,7 @@ Partial Class AF_AF
|
||||
strBody.Append("<body>")
|
||||
strBody.Append($"<h2>{If(Opcion = 1, "Alta de Activo Fijo", "Baja de Activo Fijo")}</h2>")
|
||||
strBody.Append("<table>")
|
||||
strBody.Append("<tr><th>Campo</th><th>Valor</th></tr>")
|
||||
'strBody.Append("<tr><th>Campo</th><th>Valor</th></tr>")
|
||||
strBody.Append($"<tr><td>Código</td><td>{Codigo}</td></tr>")
|
||||
strBody.Append($"<tr><td>Descripción</td><td>{Descripcion}</td></tr>")
|
||||
strBody.Append($"<tr><td>Proyecto</td><td>{Proyecto}</td></tr>")
|
||||
|
||||
@@ -2,8 +2,9 @@
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports Extensiones
|
||||
Imports Ionic.Zip
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
@@ -1169,9 +1170,31 @@ Partial Class Bancos_PagoElectronicoGrupos
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
'GlobalDTBancosCuentas.FiltraParametros($"CveCuentaDeposito = {DdlCuenta.SelectedValue} AND EstatusCtaDeposito = 'True'")
|
||||
|
||||
|
||||
|
||||
If DTPendientes.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND EstatusCtaDeposito = 'True'") IsNot Nothing Then
|
||||
|
||||
GeneraPago(DTPendientes.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND EstatusCtaDeposito > 0"))
|
||||
Dim CuentaCargo As String = "0382755740201"
|
||||
|
||||
If DdlCuenta.SelectedItem.Text.Contains("BAJIO") Then
|
||||
|
||||
GeneraPagoBajio(
|
||||
numeroArchivo:=1,
|
||||
fechaCargo:=NowADS,
|
||||
cuentaCargo:=CuentaCargo,
|
||||
DTPendientes.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND EstatusCtaDeposito > 0"))
|
||||
|
||||
|
||||
ElseIf DdlCuenta.SelectedItem.Text.Contains("Scotiabank") Then
|
||||
GeneraPagoScotiabank(DTPendientes.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND EstatusCtaDeposito > 0"))
|
||||
Else
|
||||
GeneraPago(DTPendientes.FiltraParametros("EstatusPagoElectronicoGrupos = 'True' AND EstatusCtaDeposito > 0"))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Else
|
||||
|
||||
@@ -1180,6 +1203,175 @@ Partial Class Bancos_PagoElectronicoGrupos
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Private Sub GeneraPagoBajio(dataTable As DataTable)
|
||||
' 'Throw New NotImplementedException()
|
||||
'End Sub
|
||||
|
||||
Public Sub GeneraPagoBajio(numeroArchivo As Integer,
|
||||
fechaCargo As Date,
|
||||
cuentaCargo As String,
|
||||
DTDatos As DataTable)
|
||||
|
||||
|
||||
Dim HEADER_LEN As Integer = 20
|
||||
Dim DETALLE_LEN As Integer = 384
|
||||
Dim TRAILER_LEN As Integer = 34
|
||||
|
||||
' --- columnas fijas del header / trailer ---
|
||||
Dim DIVISA_MXN As String = "001"
|
||||
Dim FILLER_8CEROS As String = "00000000"
|
||||
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)
|
||||
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
|
||||
Dim totalCentavos As Long = 0
|
||||
Dim MedioPago As String = "TEF"
|
||||
Dim ReferenciaSPEI As String = ""
|
||||
Dim ClasificacionSPID As String = ""
|
||||
|
||||
|
||||
For Each DRow As DataRow In DTDatos.Rows
|
||||
|
||||
Dim ClabeOCuenta As String = DRow("CLABEDestino").ToString.Trim
|
||||
Dim nCaracteresClabeCuenta As Integer = ClabeOCuenta.Length
|
||||
Dim TipoCuentaDestino As String = ""
|
||||
Dim Importe As Decimal = DRow("Importe").ToString.ToDecimal
|
||||
Dim IVA As Decimal = 0D
|
||||
|
||||
If nCaracteresClabeCuenta <> 18 Then
|
||||
If nCaracteresClabeCuenta <> 12 Then
|
||||
Alert($"CLABE/Cuenta debe tener 18 o 12 caracteres, tiene {ClabeOCuenta.Length}.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
If nCaracteresClabeCuenta = 18 Then
|
||||
TipoCuentaDestino = "40"
|
||||
Else
|
||||
TipoCuentaDestino = "1"
|
||||
End If
|
||||
|
||||
|
||||
' ----------- Validaciones de negocio --------------------------------
|
||||
DRow("RazonSocial") = LimpiarDatosBajio(DRow("RazonSocial").ToString, 15, "Alias")
|
||||
DRow("RazonSocial") = LimpiarDatosBajio(DRow("RazonSocial").ToString, 250, "Descripción")
|
||||
|
||||
If Not _tiposCuentaValidos.Contains(TipoCuentaDestino) Then
|
||||
Alert($"TipoCuentaDestino inválido: {TipoCuentaDestino}", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Not _mediosValidos.Contains(MedioPago) Then
|
||||
Alert($"MedioPago inválido: {MedioPago}", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If MedioPago = "SPE" AndAlso (ReferenciaSPEI.Length <> 7 OrElse Not IsNumeric(ReferenciaSPEI)) Then
|
||||
Alert("ReferenciaSPEI debe contener 7 dígitos numéricos cuando MedioPago = SPE.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If MedioPago <> "SPD" AndAlso Not String.IsNullOrEmpty(ClasificacionSPID) Then
|
||||
Alert("ClasificacionSPID sólo se permite cuando MedioPago = SPD.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Importe <= 0D Then
|
||||
Alert("Importe debe ser mayor a cero.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
'If DRow.IVA < 0D Then
|
||||
' Alert("IVA no puede ser negativo.", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
' ----------- 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(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(CLng(IVA).ToString("D15")) 'IVA ×100
|
||||
sb.Append(DRow("RazonSocial").ToString.PadRight(250)) 'descripción (250)
|
||||
sb.Append(If(String.IsNullOrEmpty(ReferenciaSPEI),
|
||||
New String("0"c, 7),
|
||||
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
|
||||
|
||||
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())
|
||||
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})
|
||||
End Sub
|
||||
|
||||
Private Function LimpiarDatosBajio(texto As String, maxLen As Integer, campo As String) As String
|
||||
|
||||
Dim _rxProhibidos As Regex = New Regex("[\$\,\./\-ñÑÁÉÍÓÚÜáéíóúü]", RegexOptions.Compiled)
|
||||
|
||||
If String.IsNullOrWhiteSpace(texto) Then
|
||||
Throw New ArgumentException($"{campo} es obligatorio.")
|
||||
End If
|
||||
|
||||
' Normalizar y quitar diacríticos
|
||||
Dim s = New String(texto.Normalize(NormalizationForm.FormD) _
|
||||
.Where(Function(ch) CharUnicodeInfo.GetUnicodeCategory(ch) <> UnicodeCategory.NonSpacingMark) _
|
||||
.ToArray()) _
|
||||
.Normalize(NormalizationForm.FormC)
|
||||
|
||||
' Eliminar caracteres prohibidos
|
||||
s = _rxProhibidos.Replace(s, "")
|
||||
|
||||
If s.Length > maxLen Then
|
||||
Throw New ArgumentException($"{campo} ({s}) excede {maxLen} caracteres.")
|
||||
End If
|
||||
Return s
|
||||
End Function
|
||||
|
||||
Private Sub GeneraPagoScotiabank(dataTable As DataTable)
|
||||
'Throw New NotImplementedException()
|
||||
End Sub
|
||||
|
||||
Private Sub GeneraPago(DTPendientesTemp As DataTable, Optional InsertaEnDB As Boolean = True, Optional NombreArchivoEnviado As String = "")
|
||||
|
||||
Dim RegistrosPago As New StringBuilder
|
||||
|
||||
@@ -18116,6 +18116,9 @@ Partial Class Compras_Compras
|
||||
DdlIVA.Enabled = True
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveRol = 1 Then
|
||||
TxtRetISRModal.Enabled = True
|
||||
End If
|
||||
|
||||
UpPSS.Update()
|
||||
RegistraScript("$('#divAddProducto').modal('show');")
|
||||
|
||||
@@ -1756,9 +1756,7 @@ Partial Class Compras_eFacturas
|
||||
Dim PDfDestino As String = $"{UsuarioActual.Empresa.Ruta}\Compras\{FF.EmisorRFC}\{FF.CveFactura}.PDF"
|
||||
|
||||
|
||||
If RutaPDF = "" Then
|
||||
|
||||
|
||||
If RutaPDF = "" Then ' llega sin pdf
|
||||
|
||||
'no valida nada solo lo crea y lo pone en la carpeta, no importa si ya existe
|
||||
If SobreEscribirPDFSiExiste Then
|
||||
@@ -9124,6 +9122,12 @@ Namespace ADS.eFacturas
|
||||
Dim TmpArchivoQR As String = $"{Ruta}\Temp\Facturas\{Path.GetFileNameWithoutExtension(Fact.ArchivoXML)}-ttt.jpg"
|
||||
Dim ArchivoXML As String = String.Format("{0}\Compras\{2}\{1}", DirectorioEmpresa, Fact.ArchivoXML, Fact.EmisorRFC)
|
||||
Dim ArchivoPDF As String = String.Format("{0}\Compras\{2}\{1}.pdf", DirectorioEmpresa, Fact.CveFactura, Fact.EmisorRFC)
|
||||
|
||||
'Validación si existe PDF no lo genera
|
||||
If System.IO.File.Exists(ArchivoPDF) Then
|
||||
Return True
|
||||
End If
|
||||
|
||||
Dim dtotal As Decimal = If(Fact.Total <= 0.0D, 0.0001D, Fact.Total)
|
||||
Dim cfdi As New RVCFDI33.GeneraCFDI()
|
||||
|
||||
|
||||
Reference in New Issue
Block a user