diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 2a408ff3c..72e96b468 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 @@ -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) @@ -6627,6 +6630,12 @@ 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 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)) @@ -8020,10 +8029,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/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 5a126d9a9..6f3d45107 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1965,7 +1965,7 @@ Public Class ClsVentas Optional TipoDocto As String = "-1", Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CveClasificacion2 As Integer = -1, - Optional ServicioDomicilio As Integer = -1) As Boolean + Optional ServicioDomicilio As Integer = -1, Optional EsFilial As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_GetRepPS") SqlAdapter.SelectCommand.CommandTimeout = 0 @@ -2002,6 +2002,7 @@ Public Class ClsVentas .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio + .Add("@EsFilial", SqlDbType.Int).Value = EsFilial End With Try @@ -2021,7 +2022,7 @@ Public Class ClsVentas Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False, Optional EsGarantia As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, - Optional CveClasificacion2 As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional ServicioDomicilio As Integer = -1) As Boolean + Optional CveClasificacion2 As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFilial As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_GetRepPSDetalle") SqlAdapter.SelectCommand.CommandTimeout = 0 @@ -2063,7 +2064,7 @@ Public Class ClsVentas .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2 .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio - + .Add("@EsFilial", SqlDbType.Int).Value = EsFilial End With diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 35ec18745..fd6a82ba1 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -281,11 +281,11 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe Dim ResultadoMail As Integer = 0 Dim CorreoDestino As String = "atencion@fidelityapps.mx" Dim MailCC As String = "citas@econollantas.com;sixrogs@hotmail.com;ffelix@econollantas.com" - Dim MailCCO As String = "" '"jonathan.perez@adssistemas.mx;rene.molina@adsistemas.mx" + Dim MailCCO As String = "jonathan.perez@adssistemas.mx;" If Not EsProduccion Then CorreoDestino = "jonathan.perez@adssistemas.mx" - MailCC = "rene.molina@adsistemas.mx" + MailCC = "" MailCCO = "japmx95@gmail.com" End If diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 50ea16e12..4c2820c32 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1260,6 +1260,21 @@ Partial Class Compras_Compras End Set End Property + Private Property FechaMovtoDev As Date + Get + If ViewState("FechaMovtoDev") Is Nothing Then + ViewState("FechaMovtoDev") = MinFecha + End If + Return ViewState("FechaMovtoDev").ToString.ToDate + End Get + Set(value As Date) + ViewState("FechaMovtoDev") = value + End Set + End Property + + + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -13926,6 +13941,7 @@ Partial Class Compras_Compras Private Sub cargaddldevoluciones(CveProveedor As Integer, SubTotal As Double) Dim objcompras As New ClsCompras() + If objcompras.GetCompraParaDevolucion(CveProveedor, UsuarioActual.CveEmpresa, SubTotal) Then DDLDevolucion.Items.Clear() Dim dtt As DataTable = objcompras.DtResultados @@ -13943,6 +13959,9 @@ Partial Class Compras_Compras End Sub Protected Sub DDLDevolucion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDLDevolucion.SelectedIndexChanged + + FechaMovtoDev = MinFecha + If DdlTipoComprobante.SelectedValue.Contiene("DEV") Then DivAlmacenDev.Visible = True End If @@ -13950,6 +13969,7 @@ Partial Class Compras_Compras Dim objcompras As New ClsCompras() If objcompras.GetCompraDetalleAlmacen(UsuarioActual.CveEmpresa, DDLDevolucion.SelectedValue.ToEntero) Then GVDevolucion.DataSource = objcompras.DtResultados + FechaMovtoDev = objcompras.DtResultados.FiltroPrimeroValor("FechaMovto").ToDate.ToString("dd/MM/yyyy").ToDate End If objcompras.Dispose() GVDevolucion.DataBind() @@ -13960,8 +13980,12 @@ Partial Class Compras_Compras End If Next DdlAlmacenDevolucion.SelectedValueExist(CveAlmacen) - UPDevolucion.Update() + + If EsGrupoDiaz AndAlso FechaMovtoDev <> MinFecha AndAlso (FechaMovtoDev >= TxtFecha.Text.ToDate) Then + Alert("La fecha de la devolución se cambiará a una fecha posterior al ingreso.", TipoMensaje.ToastAdventencia) + End If + End Sub Protected Sub BtnVinculaDevolucion_Click(sender As Object, e As EventArgs) @@ -13990,6 +14014,13 @@ Partial Class Compras_Compras If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then tTolerancia = Math.Abs(TxtSubTotal2.Text.ToDecimal - subtotaldevolucion) If Math.Abs(TxtSubTotal2.Text.ToDecimal - subtotaldevolucion) <= tTolerancia Then VinculaDevolucion() + + If EsGrupoDiaz AndAlso FechaMovtoDev <> MinFecha AndAlso (FechaMovtoDev >= TxtFecha.Text.ToDate) Then + TxtFecha.Text = FechaMovtoDev.AddDays(1).ToString("dd/MM/yyyy") + Alert("La fecha de la devolución se cambiará a una fecha posterior al ingreso.", TipoMensaje.ToastAdventencia) + UpParametros.Update() + End If + Else Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia) End If diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index cc779f1fa..a4e7e7422 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 @@ -4256,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 4a3404653..577e6b336 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -272,7 +272,7 @@ Caja Chica Viáticos - Deudores + <%--Deudores--%> @@ -1365,6 +1365,8 @@   Consultar +   Prueba + diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 1141c23ff..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 @@ -6207,13 +6202,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" @@ -6320,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 5bd34f062..f02dfff7c 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 @@ -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 - 6.97962in - 0.18258in - 1.2in - 1.2in - 8 - - - - true true @@ -2248,11 +2096,11 @@ Textbox2 - 1.09361in + 2.03111in 0.38395cm 0.95951in 3.73231in - 9 + 7 @@ -2459,11 +2307,11 @@ Textbox2 - 1.09361in + 2.03111in 9.91989cm 0.95951in 3.78138in - 11 + 9 @@ -2976,11 +2824,11 @@ true true DataSet1 - 13.75012cm + 16.13137cm 0.33883cm 1.12062cm 18.83224cm - 13 + 11 @@ -3008,11 +2856,11 @@ Textbox3 - 13.16004cm - 0.16845in + 15.54129cm + 0.19092in 0.5cm 7.52776in - 14 + 12 @@ -3457,11 +3305,11 @@ Textbox38 - 5.28548cm + 7.66673cm 0.42248cm 0.45862cm 9.43197cm - 22 + 20 = IIF( len(Parameters!RemolquePlaca1.Value) > 0,False, True) @@ -3518,11 +3366,11 @@ Textbox38 - 5.28548cm + 7.66673cm 9.94339cm 0.45862cm 9.5996cm - 23 + 21 = IIF( len(Parameters!RemolquePlaca2.Value) > 0,False, True) @@ -3908,11 +3756,11 @@ true - 11.30856cm + 13.68981cm 0.31265cm 1.71919cm 19.23572cm - 24 + 22 =IIf(CountRows("DataSet5") = 0, True, False) @@ -3922,31 +3770,16 @@ - - External - =Parameters!QRCCP.Value - FitProportional - 6.97962in - 6.46004in - 1.2in - 1.2in - 25 - - - - - + true true - QR Carta Porte + =Parameters!NombreEmpresa.Value @@ -3956,12 +3789,266 @@ - Textbox46 - 17.16841cm - 16.76139cm - 0.46104cm - 2.5cm + Textbox2 + 0.07056cm + 4.92883cm + 0.78571cm + 9.73471cm + 23 + + + + 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 + 25 + + + + + + true + + + + + Carta Porte - Traslado + + + + + + + Textbox3 + 0.07056cm + 5.8484in + 0.5cm + 1.83161in 26 + + + #4f81bd + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieFolio.Value + + + + + + + Textbox3 + 0.2361in + 5.8484in + 0.60856cm + 1.83161in + 27 + + + 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 + 28 @@ -3972,305 +4059,2400 @@ 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 transporte + + + + =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") + + + + + + + =Parameters!TelDestino.Value + + + + + + 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 + + + + + =Fields!Descripcion.Value + + + + + + + + + + + + + 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 + + + + + + + + + + + + + + + + + + =Parameters!PesoBrutoVehicular.Value + + + + + + + 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 y cargo 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.161cm + 0.02115cm + 22.5602cm + 19.53633cm + 29 + + =IIF(Parameters!imprmirNom043.Value = "1" ,False,True) + + + + + + + + + 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 + + + + - 8.29014in + 18.0263in - - - - - - 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 +6460,7 @@ - 1.23524cm + 1.13999cm true true @@ -4313,7 +6495,7 @@ Textbox13 - 0.14108cm + 0.04583cm 0.64802cm 0.54708cm 1.55632cm @@ -4347,7 +6529,7 @@ Textbox14 - 0.14108cm + 0.04583cm 2.20434cm 0.54708cm 4.96223cm @@ -4382,7 +6564,7 @@ Textbox13 - 0.14108cm + 0.04583cm 7.27241cm 0.54708cm 2.84562cm @@ -4417,7 +6599,7 @@ Textbox14 - 0.14108cm + 0.04583cm 10.11802cm 0.54708cm 4.68641cm @@ -4451,8 +6633,7 @@ Textbox14 - 0.14461cm - 14.9272cm + 14.75588cm 0.54708cm 4.70062cm 5 @@ -4483,7 +6664,7 @@ Textbox14 - 0.68816cm + 0.59291cm 0.64802cm 0.54708cm 6.21751cm @@ -4510,7 +6691,7 @@ 0.5cm 0.5cm 1cm - 1cm + 0cm 0.13cm