From db54e35dd9e562aa73aa3a24ace07e61baa2490e Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 21 Feb 2025 11:25:20 -0700 Subject: [PATCH] Nom 43 Cartaporte --- App_Code/ClsPaginas.vb | 7 + Compras/PopUpVerFactura.aspx.vb | 8 +- Compras/eFacturas.aspx | 2 + Compras/eFacturas.aspx.vb | 132 +++-- .../Grales/Formatos/CartaPorteTimbrado.rdlc | 527 ++++++++++-------- 5 files changed, 369 insertions(+), 307 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index eb72516a0..72e96b468 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6180,6 +6180,7 @@ Public Class ClsPaginas Dim ConfATR1 As String = "" Dim ConfATR2 As String = "" Dim ObjInv As New ClsGenerales + Dim TelDestino As String = "" If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then If ObjInv.DtResultados.Rows.Count > 0 Then @@ -6188,6 +6189,7 @@ Public Class ClsPaginas SerieFolio = Dr("SerieFolio").ToString Telefono = Dr("FiguraTelefono").ToString TipoDocto = Dr("TipoDocto").ToString + TelDestino = Dr("TelDestino").ToString If UsuarioActual.CveEmpresa = 13 Then PermisoSCTR1 = Dr("PermisoSCTR1").ToString @@ -6562,6 +6564,7 @@ Public Class ClsPaginas ImgCBB = "" End If + 'Dim bCBB As Byte() = qrCode.GenerarQrCode($"{ClsPaginas.LigaVerificacionSATCCP}?IdCCP={cfdi.CfdiInfo.IdCCP}&FechaOrig={Carta.Ubicaciones(0).FechaHoraSalidaLlegada}&FechaTimb={cfdi.CfdiInfo.FechaTimbrado}") ImagenCCP = New System.IO.FileInfo(RutaCCP) If ImagenCCP.Exists Then ImgCCP = String.Format("file://{0}", ImagenCCP.FullName) @@ -6629,6 +6632,10 @@ Public Class ClsPaginas params.Add(New ReportParameter("imprmirNom043", If(imprmirNom043, "1", "0"))) + If imprmirNom043 Then + params.Add(New ReportParameter("TelDestino", TelDestino)) + End If + If UsuarioActual.CveEmpresa = 13 Then params.Add(New ReportParameter("PermisoSCTRemolque1", PermisoSCTR1)) params.Add(New ReportParameter("PermisoSCTRemolque2", PermisoSCTR2)) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index e5dc959a1..a4e7e7422 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -4258,12 +4258,14 @@ Partial Class PopUpVerFactura ObjCompra.Dispose() If Not Archivo.Exists Then - params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) - ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") Else - ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") + If UsuarioActual.CveEmpresa.Contiene(189) Then + ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios", DtDatos2:=DTPrePoliza, RDSName2:="DsPrePoliza") + Else + ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") + End If End If 'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionProveedor.rdlc", DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index aa709891c..577e6b336 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -1365,6 +1365,8 @@   Consultar +   Prueba + diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 5100ce38b..dcd6b6243 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -6075,6 +6075,10 @@ Partial Class Compras_eFacturas + Protected Sub LnkRegistroRNC_Click(sender As Object, e As EventArgs) + VinculacionAutomaticaRNC() + End Sub + Private Sub VinculacionAutomaticaRNC() Dim ErrorProceso As Boolean = False Dim ErrorProcesoStr As String = "" @@ -6087,7 +6091,7 @@ Partial Class Compras_eFacturas For Each GvRow As GridViewRow In GvD.Rows - If GvRow.FCCheckBox("chkRegistraFactura").Checked Then + If GvRow.DataKey("TipoComprobante") = "E" Then Dim TotalFactura As Decimal = GvRow.DataKey("Total").ToDecimal Dim SaldoFactura As Decimal = TotalFactura @@ -6095,7 +6099,7 @@ Partial Class Compras_eFacturas Dim CFDIXmlPath As String = $"{UsuarioActual.Empresa.Ruta}Compras\{GvRow.DataKey("RFCDe")}\{GvRow.DataKey("XML")}" If Not File.Exists(CFDIXmlPath) Then ErrorProceso = True - Exit For + Continue For End If Dim CompraActual As New ClsCompraManager(CFDIXmlPath, ClsCompraManager.EnumCargaCompra.DesdeArchivo, GlobalDTTiposGastos(UsuarioActual.CveEmpresa), UsuarioActual) @@ -6109,82 +6113,73 @@ Partial Class Compras_eFacturas CompraActual.Descripcion = TxtDescripcionCompra.Text.Trim CompraActual.NombreProveedor = GvRow.DataKey("NombreProveedor") - Dim CvePersonal As Integer = -1 'DdlPersonalReembolso.SelectedValue.ToEntero - Dim CveCajachica As Integer = -1 'DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero + For Each DR As String In CompraActual.DocumentosRelacionadosUUIDSList - If RBLContado.SelectedValue.ToEntero = 6 Then 'Caja Chica - CveCajachica = DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero - ElseIf RBLContado.SelectedValue.ToEntero = 2 Then ' viaticos - CvePersonal = DdlPersonalReembolso.SelectedValue.ToEntero - ElseIf RBLContado.SelectedValue.ToEntero = 4 Then ' deudores + Next - End If + + 'If CompraActual.ConfiguraRegistroCompra(DdlPS.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, CveCajachica, CvePersonal, + ' DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, NumeroReembolso:=TxtNumeroReembolso.Text, + ' DTProrrateo:=DTProrrateo, DTPagosDeudores:=New DataTable) Then + + ' 'FIX ME OIC Recuerda cambiar el tipo de documento al registrar, actualmente tiene FAC y NC uno u otro, ajustar para que registre *** Egs *** cuado TipoComprobante = 'E' + ' If CompraActual.AddCompra(Objcompras.IniciaTransacSQL()) Then + ' Contador = Contador + 1 + ' Else + ' ErrorProceso = True + ' ErrorProcesoStr = CompraActual.MensajeError + ' Exit For + ' End If + 'Else + ' ErrorProceso = True + ' ErrorProcesoStr = CompraActual.MensajeError + ' Exit For + 'End If + + 'If RBLContado.SelectedValue.ToEntero = 4 Then 'Deudores + ' Dim CompraActualPagar = New Compra + ' If Objcompras.GetCompras(CompraActual.CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then + ' If Objcompras.DtResultados IsNot Nothing AndAlso Objcompras.DtResultados.Rows.Count > 0 Then + ' Dim dr As DataRow = Objcompras.DtResultados.Rows(0) + + + ' CompraActualPagar.CveCompra = CompraActual.CveCompra + ' CompraActualPagar.CveTipoConceptoProveedor = dr("CveTipoConcepto").ToString.ToEntero + ' CompraActualPagar.CveProveedor = dr("CveProveedor").ToString.ToEntero + ' CompraActualPagar.CveMoneda = dr("CveMoneda").ToString.ToEntero + ' CompraActualPagar.Fecha = dr("Fecha").ToString.ToDate + ' CompraActualPagar.SerieFolio = dr("SerieFolio").ToString + ' 'CompraActualPagar.ProveedorNombre = TxtPagueseA.Text + ' CompraActualPagar.TC = dr("TipoCambio").ToString.ToDecimal + ' CompraActualPagar.Total = dr("Total").ToString.ToDecimal + ' CompraActualPagar.IVA = dr("IVA").ToString.ToDecimal + ' CompraActualPagar.IVADeducible = dr("IVADeducible").ToString.ToDecimal.RoundSQL + ' CompraActualPagar.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal.RoundSQL + ' CompraActualPagar.IEPS = dr("IEPS").ToString.ToDecimal + ' CompraActualPagar.RetIVA = dr("RetIVA").ToString.ToDecimal + ' CompraActualPagar.RetISR = dr("RetISR").ToString.ToDecimal + ' CompraActualPagar.CveConceptoRetIVA = dr("CveRetIVAConcepto").ToString.ToEntero + ' CompraActualPagar.CveConceptoRetISR = dr("CveRetISRConcepto").ToString.ToEntero + ' CompraActualPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal + ' CompraActualPagar.UsuarioActual = UsuarioActual + ' CompraActualPagar.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero + ' CompraActualPagar.EsImportacion = CBool(dr("EsImportacion")) + ' CompraActualPagar.CompraNoDeducible = dr("NoDeducible").ToString.ToEntero - - If CompraActual.ConfiguraRegistroCompra(DdlPS.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, CveCajachica, CvePersonal, - DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, NumeroReembolso:=TxtNumeroReembolso.Text, - DTProrrateo:=DTProrrateo, DTPagosDeudores:=New DataTable) Then - - 'FIX ME OIC Recuerda cambiar el tipo de documento al registrar, actualmente tiene FAC y NC uno u otro, ajustar para que registre *** Egs *** cuado TipoComprobante = 'E' - If CompraActual.AddCompra(Objcompras.IniciaTransacSQL()) Then - Contador = Contador + 1 - Else - ErrorProceso = True - ErrorProcesoStr = CompraActual.MensajeError - Exit For - End If - Else - ErrorProceso = True - ErrorProcesoStr = CompraActual.MensajeError - Exit For - End If - - If RBLContado.SelectedValue.ToEntero = 4 Then 'Deudores - Dim CompraActualPagar = New Compra - If Objcompras.GetCompras(CompraActual.CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then - If Objcompras.DtResultados IsNot Nothing AndAlso Objcompras.DtResultados.Rows.Count > 0 Then - Dim dr As DataRow = Objcompras.DtResultados.Rows(0) - - - CompraActualPagar.CveCompra = CompraActual.CveCompra - CompraActualPagar.CveTipoConceptoProveedor = dr("CveTipoConcepto").ToString.ToEntero - CompraActualPagar.CveProveedor = dr("CveProveedor").ToString.ToEntero - CompraActualPagar.CveMoneda = dr("CveMoneda").ToString.ToEntero - CompraActualPagar.Fecha = dr("Fecha").ToString.ToDate - CompraActualPagar.SerieFolio = dr("SerieFolio").ToString - 'CompraActualPagar.ProveedorNombre = TxtPagueseA.Text - CompraActualPagar.TC = dr("TipoCambio").ToString.ToDecimal - CompraActualPagar.Total = dr("Total").ToString.ToDecimal - CompraActualPagar.IVA = dr("IVA").ToString.ToDecimal - CompraActualPagar.IVADeducible = dr("IVADeducible").ToString.ToDecimal.RoundSQL - CompraActualPagar.IVANoDeducible = dr("IVANoDeducible").ToString.ToDecimal.RoundSQL - CompraActualPagar.IEPS = dr("IEPS").ToString.ToDecimal - CompraActualPagar.RetIVA = dr("RetIVA").ToString.ToDecimal - CompraActualPagar.RetISR = dr("RetISR").ToString.ToDecimal - CompraActualPagar.CveConceptoRetIVA = dr("CveRetIVAConcepto").ToString.ToEntero - CompraActualPagar.CveConceptoRetISR = dr("CveRetISRConcepto").ToString.ToEntero - CompraActualPagar.PorcentajeIVA = dr("PorcentajeIVA").ToString.ToDecimal - CompraActualPagar.UsuarioActual = UsuarioActual - CompraActualPagar.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero - CompraActualPagar.EsImportacion = CBool(dr("EsImportacion")) - CompraActualPagar.CompraNoDeducible = dr("NoDeducible").ToString.ToEntero - - - - Else - ErrorProceso = True - End If - Else - ErrorProceso = True - End If + ' Else + ' ErrorProceso = True + ' End If + ' Else + ' ErrorProceso = True + ' End If - End If + 'End If End If If ErrorProceso Then @@ -6315,6 +6310,7 @@ Partial Class Compras_eFacturas End Function + End Class diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc index ef29e5311..f02dfff7c 100644 --- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc @@ -1897,158 +1897,6 @@ 2pt - - true - true - - - - - Sello digital del CFDI: - - - - - - - - - =Parameters!SelloCFDI.Value - - - - - - - - - Cadena original del complemento de certificación digital del SAT: - - - - - - - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!QR.Value - FitProportional - 7.91712in - 0.18258in - 1.2in - 1.2in - 8 - - - - true true @@ -2252,7 +2100,7 @@ 0.38395cm 0.95951in 3.73231in - 9 + 7 @@ -2463,7 +2311,7 @@ 9.91989cm 0.95951in 3.78138in - 11 + 9 @@ -2980,7 +2828,7 @@ 0.33883cm 1.12062cm 18.83224cm - 13 + 11 @@ -3009,10 +2857,10 @@ Textbox3 15.54129cm - 0.16845in + 0.19092in 0.5cm 7.52776in - 14 + 12 @@ -3461,7 +3309,7 @@ 0.42248cm 0.45862cm 9.43197cm - 22 + 20 = IIF( len(Parameters!RemolquePlaca1.Value) > 0,False, True) @@ -3522,7 +3370,7 @@ 9.94339cm 0.45862cm 9.5996cm - 23 + 21 = IIF( len(Parameters!RemolquePlaca2.Value) > 0,False, True) @@ -3912,7 +3760,7 @@ 0.31265cm 1.71919cm 19.23572cm - 24 + 22 =IIf(CountRows("DataSet5") = 0, True, False) @@ -3922,56 +3770,6 @@ - - External - =Parameters!QRCCP.Value - FitProportional - 7.91712in - 6.46004in - 1.2in - 1.2in - 25 - - - - - - true - true - - - - - QR Carta Porte - - - - - - - Textbox46 - 19.54966cm - 16.76139cm - 0.46104cm - 2.5cm - 26 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -3996,7 +3794,7 @@ 4.92883cm 0.78571cm 9.73471cm - 27 + 23 @@ -4151,7 +3949,7 @@ 5.8484in 0.5cm 1.83161in - 30 + 26 @@ -4385,7 +4183,7 @@ - =Parameters!UsoCFDi.Value + + + + =Parameters!TelDestino.Value + + + + @@ -5345,7 +5162,7 @@ + + + + + + + + + + + + true + true + + + + + Sello digital del CFDI: + + + + + + + + + =Parameters!SelloCFDI.Value + + + + + + + + + Cadena original del complemento de certificación digital del SAT: + + + + + + + + + + + + + + + + + + + + =Parameters!CFDIVersion.Value + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 0.2in + 0.16845in + 1.2in + 1.2in + 1 + + + + + + External + =Parameters!QRCCP.Value + FitProportional + 0.2in + 6.44591in + 1.2in + 1.2in + 2 + + + + + + true + true + + + + + QR Carta Porte + + + + + + + Textbox46 + 0.02931cm + 16.89267cm + 0.46104cm + 2.5cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 19.47094cm + 0.10398cm + 3.556cm + 19.66645cm + 30 + + + + - 18.06576in + 18.0263in