diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 2a408ff3c..eb72516a0 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6107,13 +6107,13 @@ Public Class ClsPaginas End If End If End Sub - Protected Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer) - Dim resp As Modelos.MSubReportData = PreParaImpresionCartaPorte(CveTimbre) + Protected Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer, Optional imprmirNom043 As Boolean = False) + Dim resp As Modelos.MSubReportData = PreParaImpresionCartaPorte(CveTimbre, imprmirNom043:=imprmirNom043) If resp.DataSources.Count > 0 AndAlso resp.Parametros.Count > 0 Then ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", resp.DataSources, resp.Parametros, resp.SerieFolio) End If End Sub - Private Function PreParaImpresionCartaPorte(CveTimbre As Integer, Optional AplicaSubReporte As Boolean = False) As Modelos.MSubReportData + Private Function PreParaImpresionCartaPorte(CveTimbre As Integer, Optional AplicaSubReporte As Boolean = False, Optional imprmirNom043 As Boolean = False) As Modelos.MSubReportData Dim retorno As New Modelos.MSubReportData retorno.Nombre = "CartaPorte" Try @@ -6627,6 +6627,8 @@ Public Class ClsPaginas params.Add(New ReportParameter("RemolquePlaca2", RemolquePlaca2)) params.Add(New ReportParameter("RemolqueSubtimo2", RemolqueSubtimo2)) + params.Add(New ReportParameter("imprmirNom043", If(imprmirNom043, "1", "0"))) + If UsuarioActual.CveEmpresa = 13 Then params.Add(New ReportParameter("PermisoSCTRemolque1", PermisoSCTR1)) params.Add(New ReportParameter("PermisoSCTRemolque2", PermisoSCTR2)) @@ -8020,10 +8022,14 @@ Public Class ClsPaginas params.Add(New ReportParameter("ProveedorContacto", ObjOC.ProveedorContacto)) params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado)) End If - - If UsuarioActual.CveEmpresa.Contiene(189) Then - params.Add(New ReportParameter("DiasCreditoOC", dtOC(0)("DiasCreditoOC").ToString)) - End If + + If UsuarioActual.CveEmpresa.Contiene(189) Then + If dtOC(0)("DiasCreditoOC").ToString.ToEntero > 0 Then + params.Add(New ReportParameter("DiasCreditoOC", dtOC(0)("DiasCreditoOC").ToString)) + Else + params.Add(New ReportParameter("DiasCreditoOC", dtOC(0)("PlazoPago").ToString)) + End If + End If If UsuarioActual.CveEmpresa.Contiene(13, 83) Then diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index cc779f1fa..e5dc959a1 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1395,7 +1395,9 @@ Partial Class PopUpVerFactura If UrlParametros("OP").ToString = "CARPOTIMBRE" Then If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then - ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero) + Dim imprmirNom043 As Boolean = If(UsuarioActual.CveEmpresa.Contiene(119), True, False) + ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero, imprmirNom043:=imprmirNom043) + 'ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero) End If End If diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 4a3404653..aa709891c 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -272,7 +272,7 @@ Caja Chica Viáticos - Deudores + <%--Deudores--%> diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 1141c23ff..5100ce38b 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -6207,13 +6207,8 @@ Partial Class Compras_eFacturas Objcompras.Dispose() - - - End Sub - - Protected Sub LnkDecargaPlatilla_Click(sender As Object, e As EventArgs) Dim rutaArchivoPlantilla As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\CargaProrrateoPorcentaje.xlsx" diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc index 5bd34f062..ef29e5311 100644 --- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc @@ -794,7 +794,7 @@ true true DataSet3 - 6.39415cm + 8.7754cm 0.38395cm 1.12062cm 19.15904cm @@ -896,7 +896,7 @@ Textbox2 - 0.33302in + 1.27052in 0.41187cm 0.51791in 7.5137in @@ -933,7 +933,7 @@ Textbox3 - 5.81465cm + 8.1959cm 0.19973in 0.50189cm 7.52776in @@ -1504,7 +1504,7 @@ true true DataSet2 - 8.2018cm + 10.58305cm 0.42363cm 1.12062cm 19.07303cm @@ -1536,7 +1536,7 @@ Textbox3 - 7.61172cm + 9.99297cm 0.19973in 0.5cm 7.52776in @@ -1849,7 +1849,7 @@ true true DataSet4 - 10.01155cm + 12.3928cm 0.42363cm 1.12062cm 19.10097cm @@ -1881,7 +1881,7 @@ Textbox3 - 9.42147cm + 11.80272cm 0.19972in 0.5cm 7.52776in @@ -2019,7 +2019,7 @@ Textbox45 - 6.89767in + 7.83517in 3.68814cm 2.89306cm 12.51434cm @@ -2038,7 +2038,7 @@ External =Parameters!QR.Value FitProportional - 6.97962in + 7.91712in 0.18258in 1.2in 1.2in @@ -2248,7 +2248,7 @@ Textbox2 - 1.09361in + 2.03111in 0.38395cm 0.95951in 3.73231in @@ -2285,7 +2285,7 @@ Textbox3 - 2.27425cm + 4.6555cm 0.15116in 0.5cm 7.5137in @@ -2459,7 +2459,7 @@ Textbox2 - 1.09361in + 2.03111in 9.91989cm 0.95951in 3.78138in @@ -2496,7 +2496,7 @@ Textbox3 - 0.27884cm + 2.66009cm 0.15259in 0.5cm 7.5137in @@ -2976,7 +2976,7 @@ true true DataSet1 - 13.75012cm + 16.13137cm 0.33883cm 1.12062cm 18.83224cm @@ -3008,7 +3008,7 @@ Textbox3 - 13.16004cm + 15.54129cm 0.16845in 0.5cm 7.52776in @@ -3045,7 +3045,7 @@ Textbox3 - 5.971in + 6.9085in 6.37477in 0.60856cm 1.30108in @@ -3084,7 +3084,7 @@ Textbox3 - 15.16633cm + 17.54758cm 5.24863in 0.60856cm 1.12683in @@ -3122,7 +3122,7 @@ Textbox3 - 6.21059in + 7.14809in 6.37685in 0.60856cm 1.30108in @@ -3164,7 +3164,7 @@ Textbox3 - 15.77488cm + 18.15613cm 5.25071in 0.60856cm 1.12683in @@ -3202,7 +3202,7 @@ Textbox3 - 6.45018in + 7.38768in 6.37893in 0.60856cm 1.30108in @@ -3241,7 +3241,7 @@ Textbox3 - 16.38343cm + 18.76468cm 5.25279in 0.60856cm 1.12614in @@ -3400,7 +3400,7 @@ Textbox25 - 15.16633cm + 17.54758cm 0.42248cm 2.35375cm 12.73266cm @@ -3457,7 +3457,7 @@ Textbox38 - 5.28548cm + 7.66673cm 0.42248cm 0.45862cm 9.43197cm @@ -3518,7 +3518,7 @@ Textbox38 - 5.28548cm + 7.66673cm 9.94339cm 0.45862cm 9.5996cm @@ -3908,7 +3908,7 @@ true - 11.30856cm + 13.68981cm 0.31265cm 1.71919cm 19.23572cm @@ -3926,7 +3926,7 @@ External =Parameters!QRCCP.Value FitProportional - 6.97962in + 7.91712in 6.46004in 1.2in 1.2in @@ -3957,7 +3957,7 @@ Textbox46 - 17.16841cm + 19.54966cm 16.76139cm 0.46104cm 2.5cm @@ -3972,305 +3972,2438 @@ 2pt + + true + true + + + + + =Parameters!NombreEmpresa.Value + + + + + + + Textbox2 + 0.07056cm + 4.92883cm + 0.78571cm + 9.73471cm + 27 + + + + true + true + + + + + RFC: + + + + =Parameters!RFC.Value + + + + + + + + + + + =Parameters!DomicilioFiscal.Value + + + + + + + =Parameters!RegimenFiscal.Value + + + + + + + =Parameters!DomicilioExpedicion.Value + + + + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.07056cm + 0.21174in + 0.85754in + 1.2in + 29 + + + + + + true + + + + + Carta Porte - Traslado + + + + + + + Textbox3 + 0.07056cm + 5.8484in + 0.5cm + 1.83161in + 30 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieFolio.Value + + + + + + + Textbox3 + 0.2361in + 5.8484in + 0.60856cm + 1.83161in + 31 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Versión Carte Porte + + + + + + + + + + + + + =IIF(Parameters!RFC.Value = "BBD021220APA", "3.1", Parameters!CartaPorteVersion.Value) + + + + + + + Textbox54 + 1.38466cm + 15.00127cm + 1.14493cm + 4.50596cm + 32 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + End + + true + 0.46378cm + 0.10353cm + 18.12737cm + + + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.20936cm + 0.19973in + 0.76284in + 1.18285in + 1 + + + + + + true + true + + + + + Trasporte de mercancías peligrosas + + + + + + + + + PROY-NOM-043-SCT-SEMAR-ARTF-2022 + + + + + + + Textbox2 + 0.20936cm + 5.26408cm + 0.94606cm + 9.73471cm + 2 + + + + true + + + + + 1. Expedidor + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 2. Número del documento de tranporte + + + + =Parameters!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="3. Página " & code.PageNumber & " de " & code.TotalPages + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Referencia del expedidor + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Referencia del expedidor de la carga + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 7. Porteador/Transportista (debe llenarlo el porteador/transportista) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 6. Destinatario + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DECLARACION DEL EXPEDIDOR + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Last(Fields!Nombre.Value, "DataSet2") & vbCrLf & Last(Fields!Direccion.Value, "DataSet2") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 8. Esta expedición se atiene a las restricciones impuestas para: (táchese lo que no proceda) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 9. Prescripciones adicionales de manejo de carga + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + AERONAVE DE + + + + + + + + + PASAJE Y CARGA + + + + + + + Textbox57 + 8.91768cm + 1.34217cm + 0.86057cm + 3.8505cm + 15 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + AERONAVE DE + + + + + + + + + SOLO CARGA + + + + + + + Textbox57 + 8.91415cm + 5.19267cm + 0.86057cm + 3.92192cm + 16 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 10. Buque/vuelo No. y fecha + + + + + + + + + + Textbox57 + 9.77825cm + 1.33863cm + 0.86057cm + 3.8505cm + 17 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 11. Puerto/lugar de carga + + + + + + + + + + Textbox57 + 9.77472cm + 5.18913cm + 0.86057cm + 3.92192cm + 18 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 12. Puerto/lugar de descarga + + + + + + + + + + Textbox57 + 10.63882cm + 1.33863cm + 0.86057cm + 3.8505cm + 19 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 13. Destino + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 4.56775cm + + + 4.37718cm + + + 2.87158cm + + + 2.93598cm + + + 2.78062cm + + + + + 0.66035cm + + + + + true + true + + + + + 14 Marcas de + + + + + + + + + trasporte + + + + + + + Textbox84 + + + + + + + + + + true + true + + + + + *Número y tipo de bultos: + + + + + + + + + Descripción de la mercancia + + + + + + + Textbox86 + + + + + + + + + + true + true + + + + + Peso Bruto (kg) + + + + + + + Textbox88 + + + + + + + + + + true + true + + + + + PesoNeto(Kg) + + + + + + + Textbox90 + + + + + + + + + + true + true + + + + + Volumen (m3) + + + + + + + Textbox92 + + + + + + + + + + 0.33965cm + + + + + true + true + + + + + Si + + + + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + true + true + + + + + =Fields!PesoEnKg.Value + + + + + + + PesoEnKg1 + + + + + + + + + + true + true + + + + + =Fields!PesoEnKg.Value + + + + + + + PesoEnKg3 + + + + + + + + + + true + true + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet3 + 0.06703cm + 1cm + 17.53311cm + + + + + + true + 11.49939cm + 1.33863cm + 1.06703cm + 17.82891cm + 21 + + + + + + true + true + + + + + 15. Número de identificación del contenedor/No. de placa de la unidad + + + + + + + + + =Parameters!PlacaVM.Value + + + + + + + Textbox57 + 12.577cm + 1.35021cm + 2.02313cm + 4.45723cm + 22 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 16. Número (s) del (de los) sellos de seguridad + + + + + + + Textbox57 + 12.60522cm + 5.80743cm + 1.99491cm + 4.05859cm + 23 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 17. Tipo y dimensiones del contenedor/unidad de arrastre + + + + + + + Textbox57 + 12.58053cm + 9.85191cm + 2.02313cm + 3.56911cm + 24 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 18. Tara (kg) del contenedor/unidad de arrastre + + + + + + + + + + + + + + + + + + =Sum(CDec(Fields!PesoEnKg.Value), "DataSet3") + + + + + + + Textbox57 + 12.60522cm + 13.4563cm + 1.99491cm + 2.6464cm + 25 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 19. Peso bruto total (tara incluida) (kg) del contenedor/unidad de arrastre + + + + + + + + + =Sum(CDec(Fields!PesoEnKg.Value), "DataSet3") + + + + + + + Textbox57 + 12.60522cm + 16.1027cm + 1.99491cm + 3.07995cm + 26 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + CERTIFICADO DE ARRUMAZÓN DEL CONTENEDOR/VEHÍCULO +Declaro que las mercancías descritas más arriba han sido arrumadas/cargadas en el contenedor/vehículo de conformidad con el IMDG. + +POR CADA CARGA DEL CONTENEDOR/VEHÍCULO LA PERSONA RESPONSABLE DE LA ARRUMAZÓN/CARGA HA DE LLENAR Y FIRMAR ESTA SECCIÓN. + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 21. RECIBO DE LA ORGANIZACIÓN RECEPTORA +Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autotanques, que parecen estar en buen estado. +(En el caso contrario, indíquese en este espacio: OBSERVACIONES DE LA ORGANIZACIÓN RECEPTORA) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 20. Nombre de la compañía + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Nombre del transportista + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Nombre de la compañía (O DEL EXPEDIDOR QUE HACE LA NOTA) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Nombre/cargo del declarante + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. de placa de la unidad + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Nombre ycargo del declarante + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Lugar y fecha + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Lugar y fecha + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Lugar y fecha + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Firma del declarante + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FIRMA DEL TRANSPORTISTA + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Firma del declarante + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 21.86398cm + 1.5cm + 0cm + 3.90544cm + 41 + + + + + + 21.86398cm + 9.94339cm + 0cm + 3.90544cm + 42 + + + + + + 21.86398cm + 14.68568cm + 0cm + 3.90544cm + 43 + + + + + + true + true + + + + + ** A los efectos de la presente NOM, véase 5.2.1. + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + 23.29507cm + 22.5602cm + 19.53633cm + 33 + + =IIF(Parameters!imprmirNom043.Value = "1" ,False,True) + + + + + - 8.29014in + 18.06576in - - - - - - Textbox2 - 0.06953cm - 4.85476cm - 0.78571cm - 9.73471cm - - - - true - true - - - - - RFC: - - - - =Parameters!RFC.Value - - - - - - - - - - - =Parameters!DomicilioFiscal.Value - - - - - - - =Parameters!RegimenFiscal.Value - - - - - - - =Parameters!DomicilioExpedicion.Value - - - - - - - External - =Parameters!LogoPath.Value - FitProportional - 0.06953cm - 0.18258in - 0.85754in - 1.2in - 2 - - - - - - true - - - - - Carta Porte - Traslado - - - - - - - Textbox3 - 0.06953cm - 5.81924in - 0.5cm - 1.83161in - 3 - - - #4f81bd - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SerieFolio.Value - - - - - - - Textbox3 - 0.2357in - 5.81924in - 0.60856cm - 1.83161in - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Versión Carte Porte - - - - - - - - - - - - - =IIF(Parameters!RFC.Value = "BBD021220APA", "3.1", Parameters!CartaPorteVersion.Value) - - - - - - - Textbox54 - 1.38363cm - 14.9272cm - 1.14493cm - 4.50596cm - 5 - - - 2pt - 2pt - 2pt - 2pt - - - @@ -4278,7 +6411,7 @@ - 1.23524cm + 1.13999cm true true @@ -4313,7 +6446,7 @@ Textbox13 - 0.14108cm + 0.04583cm 0.64802cm 0.54708cm 1.55632cm @@ -4347,7 +6480,7 @@ Textbox14 - 0.14108cm + 0.04583cm 2.20434cm 0.54708cm 4.96223cm @@ -4382,7 +6515,7 @@ Textbox13 - 0.14108cm + 0.04583cm 7.27241cm 0.54708cm 2.84562cm @@ -4417,7 +6550,7 @@ Textbox14 - 0.14108cm + 0.04583cm 10.11802cm 0.54708cm 4.68641cm @@ -4451,8 +6584,7 @@ Textbox14 - 0.14461cm - 14.9272cm + 14.75588cm 0.54708cm 4.70062cm 5 @@ -4483,7 +6615,7 @@ Textbox14 - 0.68816cm + 0.59291cm 0.64802cm 0.54708cm 6.21751cm @@ -4510,7 +6642,7 @@ 0.5cm 0.5cm 1cm - 1cm + 0cm 0.13cm