From 1ee8b1204130bbedb9380638defa28f95fcaa3a4 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 27 Apr 2022 20:52:34 -0700 Subject: [PATCH 1/3] IE cancelacion, RegPrePolizasS contabilizar descontabilizar Folio opcional --- App_Code/ClsContabilidad.vb | 3 +- App_Code/ClsNominas.vb | 18 +- Bancos/IE.aspx.vb | 16 +- Compras/Compras.aspx.vb | 17 +- Compras/Proveedores.aspx.vb | 26 +- Compras/eFacturas.aspx.vb | 2 +- Contabilidad/RegPrePolizaS.aspx | 18 +- Contabilidad/RegPrePolizaS.aspx.vb | 87 +++- CxC/RepCxCDetalle.aspx.vb | 7 +- Nomina/Nomina.aspx | 4 +- Nomina/Nomina.aspx.cs | 744 ++++++++++++++++++++++++----- 11 files changed, 788 insertions(+), 154 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 07ef0da67..20a20bd32 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -1171,13 +1171,14 @@ Public Class ClsContabilidad End Function - Public Function ContabilizaDesContabilizaPrePoliza(CvePrePoliza As Integer, Contabilizar As Boolean, CveEmpresa As Integer) As Boolean + Public Function ContabilizaDesContabilizaPrePoliza(CvePrePoliza As Integer, Contabilizar As Boolean, CveEmpresa As Integer, Optional Folio As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasContabilizarDescontabilizar") With SqlAdapter.SelectCommand.Parameters .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza .Add("@Contabilizar", SqlDbType.Bit).Value = Contabilizar .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Folio", SqlDbType.Int).Value = Folio .Add("@FolioPoliza", SqlDbType.Int).Direction = ParameterDirection.Output End With Try diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index aa5b2d3d0..3f2ff3384 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -3243,7 +3243,7 @@ Public Class ClsNominas Public Function GetLayoutAltaBanorte(CvePeriodo As Integer, CveEmpresa As Integer) As Boolean Dim retorno As Boolean = False - DataAdapter("PA_Nom_Dispersionnomina", CommandType.StoredProcedure) + DataAdapter("PA_Nom_LayoutAltaBanorteGet", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa @@ -3258,6 +3258,22 @@ Public Class ClsNominas End Function + Public Function GetDispersionNominaBanorte(CvePeriodo As Integer, CveEmpresa As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_DispersionNominaBanorteGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el layout de nominas Banorte.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + #Region "IDisposable Support" ' IDisposable diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index eb50c7db8..92b0c29b6 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -4559,15 +4559,24 @@ Partial Class Bancos_IE Dim TipoMovimiento As Integer = 1 + Dim CveTipoTransaccionCancelacion As Integer = DdlTipoTransaccionCancelacion.SelectedValue.ToEntero + If ChkGeneraCancelacion.Checked AndAlso GeneraCancelacionEnCero Then GeneraCancelacionEnCero = False TipoMovimiento = 2 + + If DdlTipoTransaccionCancelacion.SelectedValue.ToEntero = -1 Then + CveTipoTransaccionCancelacion = 16 'Validacion manual para solo enviar el correcto + End If + End If + Dim CvePrePolizaCancelacion As Integer = 0 If Not GeneraCancelacionEnCero Then 'CANCELA IE MES ANTERIOR - CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, TipoMovimiento:=TipoMovimiento, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero) + CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, TipoMovimiento:=TipoMovimiento, + CveTipoTransaccionCancelacion:=CveTipoTransaccionCancelacion) If CvePrePolizaCancelacion <= 0 Then ErrorCancelar = True MensajeError = "Error al cancelar IE MES ANTERIOR" @@ -4582,7 +4591,8 @@ Partial Class Bancos_IE MensajeError = "Error al desbloquear prepoliza." Else 'CANCELA IE MES ACTUAL - CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero) + CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, + CveTipoTransaccionCancelacion:=CveTipoTransaccionCancelacion) If CvePrePolizaCancelacion <= 0 Then ErrorCancelar = True MensajeError = "Error al cancelar IE MES ACTUAL" @@ -4797,7 +4807,7 @@ Partial Class Bancos_IE Else 'siempre se hace una cancelación - If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2) <= 0 Then + If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDevuelto.Text.ToDate, 2, 16) <= 0 Then ErrorCancelar = True End If diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 91fe0f944..52bbddd73 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4054,9 +4054,7 @@ Partial Class Compras_Compras Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click - 'If Not AjustaCombustibles() Then - ' Exit Sub - 'End If + '------------------ INICIA VALIDACIONES ------------------ @@ -4478,6 +4476,10 @@ Partial Class Compras_Compras '------------------TERMINA VALIDACIONES------------------ + + + + 'si hay necesidad de actualizar el globaldtps If RegeneraPS Then 'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT) @@ -5935,7 +5937,10 @@ Partial Class Compras_Compras Dim IdCtaContable As Integer = 0 Dim Concepto As String = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, NombreProveedor, $"{TxtSerie.Text}-{TxtFolio.Text}", If(TxtDocumentoFolio.Visible, TxtDocumentoFolio.Text, If(TxtDocumentoFolioCaja.Visible, TxtDocumentoFolioCaja.Text, ConceptoPersonal))) Dim importeMN As Decimal = 0 - Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1) + + Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1) + + Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation Dim PorcentajeImpuesto As Decimal = 0 CveConceptoOriginal = ConceptoContable @@ -8980,7 +8985,7 @@ Partial Class Compras_Compras IdCtaContable = 0 Dim Concepto As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text) Dim importeMN As Decimal = 0 - Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1) + Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1) Dim PorcentajeImpuesto As Decimal = 0 Dim ConceptoPartida As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text) @@ -10599,7 +10604,7 @@ Partial Class Compras_Compras Dim importeMovimiento As Decimal = 0 Dim IdCtaContable As Integer = 0 Dim importeMN As Decimal = 0 - Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1) + Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1) Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation Select Case ConceptoContable diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 06170b6ba..d8176bb72 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -713,18 +713,36 @@ Partial Class Compras_Proveedores Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix) Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3" Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) - Dim nodo As XmlNode = XMLDoc.DocumentElement - If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2" - namespaces.AddNamespace(Prefijo, cfdVer) + Dim nodo As XmlNode = XMLDoc.DocumentElement Dim Version As String = ValorXml(nodo, "Version") + + If Version = "3.2" Then + Prefijo = "cfd" + cfdVer = "http://www.sat.gob.mx/cfd/2" + ElseIf Version = "3.3" Then + cfdVer = "http://www.sat.gob.mx/cfd/3" + + Else ' se considera que es la version 4.0 + cfdVer = "http://www.sat.gob.mx/cfd/4" + End If + + + + 'If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2" + namespaces.AddNamespace(Prefijo, cfdVer) + + + + + Dim node As XmlNode node = XMLDoc.SelectSingleNode(String.Format("//{0}:Emisor", Prefijo), namespaces) If node IsNot Nothing Then TxtRFC.Text = ValorXml(node, "rfc") - If Version = "3.3" Then + If Version = "3.3" Or Version = "4.0" Then TxtRazonSocial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre")) TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre")) ChkEstado.Checked = True diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index ca77c2250..c73ff32d0 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -1700,7 +1700,7 @@ Partial Class Compras_eFacturas RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalFacturas")) - asdasd + 'Alert(String.Format("Se cargaron {0} Facturas", Arreglo.Count), TipoMensaje.MsgInformacion) End Sub diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index b09cf0b9f..72c196a84 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -88,9 +88,9 @@ Agregar Concepto -
  • - Crear a partir de -
    • +
  • + Crear a partir de +
    • @@ -156,8 +156,14 @@
    -
    - +
    + + + + + + +
    @@ -710,6 +716,8 @@ + diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index bbb576de3..05f6994b1 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -277,6 +277,21 @@ Partial Class ContabilidadC_RegPrePolizaS ValidaCrearAPartirDe() DvPlantilla.Visible = False UPPDocumento.Visible = False + + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + + If Folio.ToEntero > 0 Then + BtnDescontabilizar.Visible = True + LnkFolioManual.Visible = False + Else + BtnDescontabilizar.Visible = False + LnkFolioManual.Visible = True + End If + + End If + + + Exit Sub ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then @@ -2695,22 +2710,51 @@ Partial Class ContabilidadC_RegPrePolizaS Dim ObjConta As New ClsContabilidad - If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero - ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) - End If + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + + If Folio.ToEntero = 0 Then + + Dim FolioManual As Integer = If(TxtFolio.Text.ToEntero > 0, TxtFolio.Text.ToEntero, -1) + + + + If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, True, UsuarioActual.CveEmpresa, Folio:=FolioManual) Then + + Alert($"Contabilizado Correctamente Folio { ObjConta.ContaFolio.ToString()}.", TipoMensaje.MsgInformacion) + + TxtFolio.Text = ObjConta.ContaFolio.ToString() + LnkFolioManual.Visible = False + UpPoliza.Update() + + End If - If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then - If UsuarioActual.Empresa.TipoContabilizacion = 1 Then - Alert(String.Format("Prepóliza contabilizada.

    Folio: {0} ", ObjConta.FolioPoliza), ModExtensiones.TipoMensaje.MsgInformacion) - Else - Alert(String.Format("Prepóliza contabilizada.

    Folio:Ver Póliza", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion) End If Else - Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia) + + If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero + ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) + End If + + If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then + If UsuarioActual.Empresa.TipoContabilizacion = 1 Then + Alert(String.Format("Prepóliza contabilizada.

    Folio: {0} ", ObjConta.FolioPoliza), ModExtensiones.TipoMensaje.MsgInformacion) + Else + Alert(String.Format("Prepóliza contabilizada.

    Folio:Ver Póliza", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion) + End If + + Else + + Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia) + End If + End If + + + + ObjConta.Dispose() End Sub @@ -3159,13 +3203,38 @@ Partial Class ContabilidadC_RegPrePolizaS End Sub + + #End Region + Private Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs) Handles BtnDescontabilizar.Click + + Dim ObjConta As New ClsContabilidad + + + If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then + Alert("Descontabilizado Correctamente.", TipoMensaje.MsgInformacion) + TxtFolio.Text = "" + LnkFolioManual.Visible = True + End If + + ObjConta.Dispose() + + UpPoliza.Update() + End Sub + + Private Sub LnkFolioManual_Click(sender As Object, e As EventArgs) Handles LnkFolioManual.Click + + TxtFolio.Enabled = True + TxtFolio.Focus() + UpPoliza.Update() + + End Sub End Class diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index 12c5b1dec..dc9a65081 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -910,8 +910,13 @@ Partial Class RepCxCDetalle 'End If Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim logouri As String = "" + If Imagen.Exists Then + logouri = String.Format("file://{0}", Imagen.FullName) + End If + + Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("FechaInicio", FechaI)) diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index d6d9dd52c..33f855f1e 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -4227,13 +4227,13 @@
    -
    + <%--
    Generar Layout Altas Nomina Tipo Operacóon: -
    +
    --%>
    diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index c26e3acf5..cc6e9f9d7 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -1298,8 +1298,8 @@ public partial class Nomina_Nomina2 : ClsPaginas string RFCReceptor = Nom.RFC; string RFCEmisor = UsuarioActual.Empresa.RFC; string SerieFolio = Nom.SerieFolio; - string SerieFolioFiniquito = string.Format ("{0}F-{1}", nrow["Serie"], nrow["Folio"]); - bool SeTimbroFiniquito = nrow["SeTimbroFiniquito"].ToString().ToUpper().Contiene(new string[] {"1","TRUE"}); + string SerieFolioFiniquito = string.Format("{0}F-{1}", nrow["Serie"], nrow["Folio"]); + bool SeTimbroFiniquito = nrow["SeTimbroFiniquito"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); string FolioFiscalFiniquito = nrow["FolioFiscalFiniquito"].ToString(); //SeTimbroFiniquito,N.FolioFiscalFiniquito DataRow rowc = get_GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveMotivoCancelacion={0}", DdlMotivoCancelacion.SelectedValue)); @@ -1341,33 +1341,33 @@ public partial class Nomina_Nomina2 : ClsPaginas } else { - reultado = ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscalFiniquito, Total, RFCReceptor, RFCEmisor, 4, CveSATMotivoCancelacion: CveMotivoCancelacion); - if (reultado.Verificado)//,CveSATMotivoCancelacion:= - { - try + reultado = ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscalFiniquito, Total, RFCReceptor, RFCEmisor, 4, CveSATMotivoCancelacion: CveMotivoCancelacion); + if (reultado.Verificado)//,CveSATMotivoCancelacion:= { - string ruta = string.Format("{0}XML\\Nomina\\", UsuarioActual.Empresa.Ruta); - string archivo = string.Format("{0}{1}.xml", ruta, SerieFolioFiniquito); - int contador = 1; - string archivonew = string.Format("{0}{1}_{2}.xml", ruta, SerieFolioFiniquito, contador++); - while (System.IO.File.Exists(archivonew)) + try { - archivonew = string.Format("{0}{1}_{2}.xml", ruta, SerieFolioFiniquito, contador++); + string ruta = string.Format("{0}XML\\Nomina\\", UsuarioActual.Empresa.Ruta); + string archivo = string.Format("{0}{1}.xml", ruta, SerieFolioFiniquito); + int contador = 1; + string archivonew = string.Format("{0}{1}_{2}.xml", ruta, SerieFolioFiniquito, contador++); + while (System.IO.File.Exists(archivonew)) + { + archivonew = string.Format("{0}{1}_{2}.xml", ruta, SerieFolioFiniquito, contador++); + } + File.Move(archivo, archivonew); + } + catch (Exception) + { + Alert("Ocurrió un error al mover el archivo fiscal cancelado"); } - File.Move(archivo, archivonew); - } - catch (Exception) - { - Alert("Ocurrió un error al mover el archivo fiscal cancelado"); - } - secancelo12 = true; - } - else - { - string.Format("Error al cancelar nomina {0}", FolioFiscalFiniquito).GuardaLog(); - //ObjTimbrado.MensajeErrorCFDI.GuardaLog(); - } + secancelo12 = true; + } + else + { + string.Format("Error al cancelar nomina {0}", FolioFiscalFiniquito).GuardaLog(); + //ObjTimbrado.MensajeErrorCFDI.GuardaLog(); + } } if (secancelo11 && secancelo12) @@ -1375,7 +1375,8 @@ public partial class Nomina_Nomina2 : ClsPaginas Nom.UpdateEstatusNomNominas(2, UsuarioActual.Empresa.CvePAC, "", ("01/01/2000").ToDate(), ("01/01/2000").ToDate(), CveNomina); Alert($"La nómina con folio fiscal '{FolioFiscal}' fue cancelada ante el SAT", TipoMensaje.MsgInformacion); - }else + } + else { Alert($"no se pudo cancelar el folio fiscal
    {ObjTimbrado.MensajeErrorCFDI}", TipoMensaje.MsgAdvertencia); @@ -5636,7 +5637,7 @@ public partial class Nomina_Nomina2 : ClsPaginas ChkEstatus.Checked = true; UpMovtosPermanentesModal.Update(); RegistraScript("$('#ModalMovtoPermanente').modal()"); - + } protected void LnkAddMovto_Click(object sender, EventArgs e) @@ -5718,7 +5719,7 @@ public partial class Nomina_Nomina2 : ClsPaginas this.Alert("Se ha eliminadó el movimiento permanente"); } } - protected void LnkEditarMovtoPermanente_Click(object sender, EventArgs e) + protected void LnkEditarMovtoPermanente_Click(object sender, EventArgs e) { GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); @@ -7662,9 +7663,9 @@ public partial class Nomina_Nomina2 : ClsPaginas } loadtablas(); } - - + + protected void LnkAsistenciaIncidencias_Click(object sender, EventArgs e) { @@ -8112,7 +8113,7 @@ public partial class Nomina_Nomina2 : ClsPaginas protected void LnkLayoutContable_Click(object sender, EventArgs e) { - RBLModalBancosLayout.SelectedValue = "1"; + // RBLModalBancosLayout.SelectedValue = "1"; DdlModalBancosLayout.SelectedValueExist("-1"); this.RegistraScript("$('#ModalLayoutBancos').modal('show');"); UpModalBancosLayout.Update(); @@ -8127,35 +8128,51 @@ public partial class Nomina_Nomina2 : ClsPaginas protected void BtnModalBancosProcesar_Click(object sender, EventArgs e) { - if(RBLModalBancosLayout.SelectedValue.ToEntero() == 1) + //if (RBLModalBancosLayout.SelectedValue.ToEntero() == 1) + //{ + if (DdlModalBancosLayout.SelectedValue.ToEntero() == 1) { - if (DdlModalBancosLayout.SelectedValue.ToEntero() == 1) + using (ClsNominas objnom = new ClsNominas()) { - using (ClsNominas objnom = new ClsNominas()) + if (objnom.GetDispersionnomina(CvePeriodoSeleccionado, UsuarioActual.CveEmpresa)) { - if (objnom.GetDispersionnomina(CvePeriodoSeleccionado, UsuarioActual.CveEmpresa)) - { - CrearLayoutNominaBancomer(objnom.DtResultados); - } + CrearLayoutNominaBancomer(objnom.DtResultados); } - } - else if (DdlModalBancosLayout.SelectedValue.ToEntero() == 2) - { - } } - else if (RBLModalBancosLayout.SelectedValue.ToEntero() == 2) + else if (DdlModalBancosLayout.SelectedValue.ToEntero() == 2) { - if(DdlModalBancosLayout.SelectedValue.ToEntero() == 1 ) + using (ClsNominas objnom = new ClsNominas()) { - - } - else if (DdlModalBancosLayout.SelectedValue.ToEntero() == 2) - { - //Banorte + if (objnom.GetDispersionNominaBanorte(CvePeriodoSeleccionado, UsuarioActual.CveEmpresa)) + { + CrearLayoutNominaBanorte(objnom.DtResultados, "1234"); + } } + } + //} + //else if (RBLModalBancosLayout.SelectedValue.ToEntero() == 2) + //{ + // if (DdlModalBancosLayout.SelectedValue.ToEntero() == 1) + // { + // //Sin Alta + // } + // else if (DdlModalBancosLayout.SelectedValue.ToEntero() == 2) + // { + // //Banorte + + // using (ClsNominas objnom = new ClsNominas()) + // { + // if (objnom.GetLayoutAltaBanorte(CvePeriodoSeleccionado, UsuarioActual.CveEmpresa)) + // { + // CrearLayoutAltaBanorte(objnom.DtResultados, " 04539871", "12345", UsuarioActual.Empresa.Empresa); + // } + // } + + // } + //} } @@ -8255,109 +8272,594 @@ public partial class Nomina_Nomina2 : ClsPaginas - private void CrearLayoutAltaBanorte(DataTable DTNomina, string Promotor, string NIE, string RazonSocial) + //private void CrearLayoutAltaBanorte(DataTable DTNomina, string Promotor, string NIE, string RazonSocial) + //{ + // StringBuilder sb = new StringBuilder(); + // StringBuilder SbErrores = new StringBuilder(); + + // char Cero = '0'; + // char Espacio = ' '; + + // bool ErrorProceso = false; + + + + // Promotor = Promotor.Trim(); + // NIE = NIE.Trim(); + // RazonSocial = RazonSocial.Trim(); + + // //SbErrores.AppendLine("Se detectaron los siguientes errores en la generación del layout"); + + + + // if (DTNomina.Rows.Count > 0) + // { + + // //Tip oRegistro 1 1-1 + // //Clave servicio 2 2-3 + // sb.Append($"HNE"); + + + // //Promotor 8 4-11 + // if (Promotor.Length > 0 && Promotor.Length <= 8) + // { + // sb.Append(Promotor.PadLeft(8, Cero)); + // } + // else + // { + // SbErrores.AppendLine($"Promotor {Promotor} debe de tener una logitud de entre 1 y 8
    "); + // ErrorProceso = true; + // } + + // //NIE 5 12-26 + // if (ErrorProceso == false && NIE.Length > 0 && NIE.Length <= 5) + // { + // sb.Append(NIE.PadLeft(5, Espacio)); + // } + // else + // { + // SbErrores.AppendLine($"NIE {NIE} debe de tener una logitud de entre 1 y 8
    "); + // ErrorProceso = true; + // } + + + // //Nombre de Empresa ó Razón Social 40 17-56 + // if (ErrorProceso == false && RazonSocial.Length > 0 && RazonSocial.Length <= 40) + // { + // sb.Append(RazonSocial.PadLeft(40, Espacio)); + // } + // else + // { + // SbErrores.AppendLine($"RazonSocial {RazonSocial} debe de tener una logitud de entre 1 y 40
    "); + // ErrorProceso = true; + // } + + // //57-58consecutivo 1 + // sb.Append("1"); + + + // //Número de registros N 6 59-64 + // sb.Append(DTNomina.Rows.ToString().PadRight(6, Espacio)); + + // //Filler A 283 65-347 + // sb.Append(DTNomina.Rows.ToString().PadLeft(283, Espacio)); + + + + // if (!ErrorProceso) + // { + // foreach (DataRow dRow in DTNomina.Rows) + // { + + + // string CodigoEmpleado = dRow["Codigo"].ToString().Trim(); + // string Nombres = dRow["Nombres"].ToString().Trim(); + // string APaterno = dRow["APaterno"].ToString().Trim(); + // string Amaterno = dRow["AMaterno"].ToString().Trim(); + // string CodigoNacionalOperacion = dRow["CodigoNacionalOperacion"].ToString().Trim(); + // string NombreCorto = dRow["NombreCorto"].ToString().Trim(); + // string TipoDeVia = dRow["TipoDeVia"].ToString().Trim(); + // string Direccion = dRow["Direccion"].ToString().Trim(); + // string NumExt = dRow["NumExt"].ToString().Trim(); + // string TipoDeVivienda = dRow["TipoDeVivienda"].ToString().Trim(); + // string Colonia = dRow["Colonia"].ToString().Trim(); + // string DelegacionMunicipio = dRow["DelegacionMunicipio"].ToString().Trim(); + // string ClaveEstado = dRow["ClaveEstado"].ToString().Trim(); + // string CP = dRow["CP"].ToString().Trim(); + // string Sexo = dRow["Sexo"].ToString().Trim(); + // DateTime FechaNacimiento = dRow["FechaNacimiento"].ToString().ToDate(); + // string Nacionalidad = dRow["Nacionalidad"].ToString().Trim(); + // string EstadoCivil = dRow["EstadoCivil"].ToString().Trim(); + // string Escolaridad = dRow["Escolaridad"].ToString().Trim(); + // string TipoEmpleado = dRow["TipoEmpleado"].ToString().Trim(); + // string RFC = dRow["RFC"].ToString().Trim(); + // string TipoAlta = dRow["TipoAlta"].ToString().Trim(); + // string TipoDeTarjeta = dRow["TipoDeTarjeta"].ToString().Trim(); + // string CodigoDeBanco = dRow["CodigoDeBanco"].ToString().Trim(); + // string TipoCuenta = dRow["TipoCuenta"].ToString().Trim(); + // string Cuenta = dRow["Cuenta"].ToString().Trim(); + // string ImpresionContrato = dRow["ImpresionContrato"].ToString().Trim(); + + + // //Tipo de registro A 1 1-1 + // sb.AppendLine("D"); + + + // //CodigoEmpleado A 10 2-11 + // if (ErrorProceso == false && CodigoEmpleado.Length > 0 && CodigoEmpleado.Trim().Length <= 10) + // { + // sb.Append(CodigoEmpleado.PadLeft(10, Cero)); + // } + // else + // { + // SbErrores.AppendLine($"Codigo {CodigoEmpleado} debe de tener una logitud de entre 1 y 10
    "); + // ErrorProceso = true; + // } + + + // //Nombres A 20 12-31 + // if (ErrorProceso == false && Nombres.Length > 0 && Nombres.Trim().Length <= 20) + // { + // sb.Append(Nombres.PadRight(20, Espacio)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Nombre {Nombres} debe de tener una logitud de entre 1 y 20
    "); + // ErrorProceso = true; + // } + + + // //Apellido Paterno A 20 32-51 + // if (ErrorProceso == false && APaterno.Length > 0 && APaterno.Trim().Length <= 20) + // { + // sb.Append(APaterno.PadRight(20, Espacio)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Apellido Paterno {APaterno} debe de tener una logitud de entre 1 y 20
    "); + // ErrorProceso = true; + // } + + + // //Aperllido Materno A 20 52-71 + // if (ErrorProceso == false && Amaterno.Length > 0 && Amaterno.Trim().Length <= 20) + // { + // sb.Append(Amaterno.PadRight(20, Espacio)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Apellido Materno {Amaterno} debe de tener una logitud de entre 1 y 20
    "); + // ErrorProceso = true; + // } + + // // Dependencia A 5 72-76 + // sb.Append(string.Empty.PadRight(5, Espacio)); // No requerido + + + // //CodigoNacionalOperacion N 2 77-78 Anexo 1 + // if (ErrorProceso == false && CodigoNacionalOperacion.Length > 0 && CodigoNacionalOperacion.Trim().Length <= 2) + // { + // sb.Append(CodigoNacionalOperacion.PadLeft(2, Cero)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Codigo Nacional de Operación {CodigoNacionalOperacion} debe de tener una logitud de entre 1 y 20
    "); + // ErrorProceso = true; + // } + + + // //NombreCorto A 19 79-97 + // if (ErrorProceso == false && NombreCorto.Length > 0 && NombreCorto.Trim().Length <= 19) + // { + // sb.Append(NombreCorto.PadRight(19, Espacio)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Nombre Corto{NombreCorto} debe de tener una logitud de entre 1 y 19
    "); + // ErrorProceso = true; + // } + + + // //TipoDeVia A 2 98-99 Anexo 2 + // if (ErrorProceso == false && TipoDeVia.Length > 0 && TipoDeVia.Trim().Length <= 2) + // { + // sb.Append(TipoDeVia.PadRight(2, Espacio)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Tipo De Via {TipoDeVia} debe de tener una logitud de entre 1 y 2
    "); + // ErrorProceso = true; + // } + + + + // //Calle A 24 100-123 + // if (ErrorProceso == false && Direccion.Length > 0 && Direccion.Trim().Length <= 24) + // { + // sb.Append(Direccion.PadRight(24, Espacio)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Calle {Direccion} debe de tener una logitud de entre 1 y 24
    "); + // ErrorProceso = true; + // } + + + + // //Numero A 7 124-130 + // if (ErrorProceso == false && NumExt.Length > 0 && NumExt.Trim().Length <= 7) + // { + // sb.Append(NumExt.PadRight(7, Espacio)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Tipo De Via {NumExt} debe de tener una logitud de entre 1 y 7
    "); + // ErrorProceso = true; + // } + + // //TipoDeVivienda N 2 131-132 + // if (ErrorProceso == false && TipoDeVivienda.Length > 0 && TipoDeVivienda.Trim().Length <= 2) + // { + // sb.Append(TipoDeVivienda.PadLeft(2, Cero)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Tipo de Vivienda {TipoDeVivienda} debe de tener una logitud de entre 1 y 2
    "); + // ErrorProceso = true; + // } + + // //Entrada A 2 133-134 + // sb.Append(string.Empty.PadRight(2, Espacio)); // No requerido + + // //Piso A 5 135-136 + // sb.Append(string.Empty.PadRight(2, Espacio)); // No requerido + + // //Deparatmento A 4 137-140 + // sb.Append(string.Empty.PadRight(4, Espacio)); // No requerido + + + // //Colonia A 40 141-180 + // if (ErrorProceso == false && Colonia.Length > 0 && Colonia.Trim().Length <= 40) + // { + // sb.Append(Colonia.PadRight(40, Espacio)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Colonia Municipio {Colonia} debe de tener una logitud de entre 1 y 40
    "); + // ErrorProceso = true; + // } + + + // //DelegacionMunicipio N 3 181-183 + // if (ErrorProceso == false && DelegacionMunicipio.Length > 0 && DelegacionMunicipio.Trim().Length <= 3) + // { + // sb.Append(DelegacionMunicipio.PadLeft(3, Cero)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Delegacion Municipio {DelegacionMunicipio} debe de tener una logitud de entre 1 y 3
    "); + // ErrorProceso = true; + // } + + // //ClaveEstado N 2 184-185 + // if (ErrorProceso == false && ClaveEstado.Length > 0 && ClaveEstado.Trim().Length <= 2) + // { + // sb.Append(ClaveEstado.PadLeft(2, Cero)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Clave Estado {ClaveEstado} debe de tener una logitud de entre 1 y 2
    "); + // ErrorProceso = true; + // } + + // //Codigo Postal N 5 186-190 + // if (ErrorProceso == false && CP.Length > 0 && CP.Trim().Length <= 5) + // { + // sb.Append(CP.PadLeft(5, Cero)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Codigo Postal {CP} debe de tener una logitud de entre 1 y 5
    "); + // ErrorProceso = true; + // } + + // //Telefono A 12 191-202 + // sb.Append(string.Empty.PadRight(12, Espacio)); // No requerido + + // //Sexo A 1 203-203 + // sb.Append(Sexo); // No requerido + + + // //Fecha Nacimiento A N 204-211 + // sb.Append(FechaNacimiento.ToString("yyyyMMdd")); + + // //Nacionalidad N 3 212-214 Anexo 6 + // if (ErrorProceso == false && Nacionalidad.Length > 0 && Nacionalidad.Trim().Length <= 3) + // { + // sb.Append(Nacionalidad.PadLeft(3, Cero)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Nacionalidad {Nacionalidad} debe de tener una logitud de entre 1 y 2
    "); + // ErrorProceso = true; + // } + + // //Estado Civil N 3 215-215 Anexo 7 + // if (ErrorProceso == false && EstadoCivil.Length > 0 && EstadoCivil.Trim().Length <= 1) + // { + // sb.Append(EstadoCivil); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Estado Civil {EstadoCivil} debe de tener una logitud de 1
    "); + // ErrorProceso = true; + // } + + // //Regimen Matrimonial A 1 216-216 + // sb.Append(string.Empty.PadRight(1, Espacio)); // No requerido Anexo 8 + + + // //Escolaridad N 3 217-219 Anexo 9 + // if (ErrorProceso == false && Escolaridad.Length > 0 && Escolaridad.Trim().Length <= 3) + // { + // sb.Append(Escolaridad.PadLeft(3, Cero)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Escolaridad {Escolaridad} debe de tener una logitud de entre 1 y 3
    "); + // ErrorProceso = true; + // } + + // //Titulo Profecional N 5 220-223 + // sb.Append(string.Empty.PadLeft(3, Cero)); // No requerido Anexo 10 + + + // //RFC N 13 225-237 + // if (ErrorProceso == false && RFC.Length > 0 && RFC.Trim().Length <= 13) + // { + // sb.Append(RFC.PadRight(13, Espacio)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} RFC {RFC} debe de tener una logitud de entre 1 y 13
    "); + // ErrorProceso = true; + // } + + // //Curp A 18 238-255 + // sb.Append(string.Empty.PadLeft(18, Espacio)); // No requerido + + + // //Tipo de Alta N 2 256-257 + // if (ErrorProceso == false && TipoAlta.Length > 0 && TipoAlta.Trim().Length <= 2) + // { + // sb.Append(TipoAlta.PadLeft(3, Cero)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Tipo de Alta {TipoAlta} debe de tener una logitud de entre 1 y 2
    "); + // ErrorProceso = true; + // } + + // //TipoDeTarjeta N 1 258-258 + // sb.Append(TipoDeTarjeta); + + + // //Número de Tarjeta de Débito N 16 259-274 + // sb.Append(string.Empty.PadLeft(16, Cero)); // No requerido + + // //Clave del Producto de la Cuenta N 4 275-278 + // sb.Append(string.Empty.PadLeft(4, Cero)); // No requerido + + + // //Código de Banco de la Cuenta N 3 279-281 + // if (ErrorProceso == false && CodigoDeBanco.Length > 0 && CodigoDeBanco.Trim().Length <= 3) + // { + // sb.Append(CodigoDeBanco.PadLeft(3, Cero)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Codigo De Banco {CodigoDeBanco} debe de tener una logitud de entre 1 y 3
    "); + // ErrorProceso = true; + // } + + // //Tipo Cuenta N 2 282-283 + // if (ErrorProceso == false && TipoCuenta.Length > 0 && TipoCuenta.Trim().Length <= 2) + // { + // sb.Append(TipoCuenta.PadLeft(2, Cero)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Tipo Cuenta {TipoCuenta} debe de tener una logitud de entre 1 y 2
    "); + // ErrorProceso = true; + // } + + + // //Numero cuenta 18 284-301 + // if (ErrorProceso == false && Cuenta.Length > 0 && Cuenta.Trim().Length <= 18) + // { + // sb.Append(Cuenta.PadRight(18, Espacio)); + // } + // else + // { + // SbErrores.AppendLine($"{CodigoEmpleado} Numero cuenta {Cuenta} debe de tener una logitud de entre 1 y 18
    "); + // ErrorProceso = true; + // } + + // //CR Chequera N 4 302-305 + // sb.Append(string.Empty.PadLeft(4, Cero)); // No requerido + + // //Impresion Contrato A 1 306-306 + // sb.Append("S"); + + // //Sueldo N 15 307-321 + // sb.Append(string.Empty.PadLeft(15, Cero)); // No requerido + + // //Numero targeta N 16 307-321 + // sb.Append(string.Empty.PadLeft(16, Cero)); // No requerido + + // //Filler A 10 338-347 + // sb.Append(string.Empty.PadLeft(10, Cero)); // Relleno + + // } + + + + + + // if (!ErrorProceso) + // { + // Response.Clear(); + // Response.ClearHeaders(); + // Response.AppendHeader("Content-Length", sb.ToString()); + // Response.ContentType = "text/plain"; + // //Response.AppendHeader("Content-Disposition", $"attachment;filename=\"Nomina{DateTime.Now.ToString("yyyyMMddhhmmss").ToString()}.txt\""); + // Response.AppendHeader("Content-Disposition", $"attachment;filename=\"Alta_Banorte_{DdlPeriodo.SelectedItem.Text }.txt\""); + // Response.Write(sb.ToString()); + // this.RegistraScript("$('#ModalLayoutBancos').modal('hide');"); + // Response.Flush(); + // Response.End(); + // } + // else + // { + // this.Alert($"Errores {SbErrores.ToString()}", TipoMensaje.ToastAdventencia); + // } + + + // } + + + // } + + // #endregion + + + + //} + + + + private void CrearLayoutNominaBanorte(DataTable DTNomina, string Emisora) { StringBuilder sb = new StringBuilder(); StringBuilder SbErrores = new StringBuilder(); + + char Cero = '0'; + char Espacio = ' '; + bool ErrorProceso = false; - - - Promotor = Promotor.Trim(); - NIE = NIE.Trim(); - RazonSocial = RazonSocial.Trim(); - - //SbErrores.AppendLine("Se detectaron los siguientes errores en la generación del layout"); - - - if (DTNomina.Rows.Count > 0) { + //Tipo Registro A 1 1-1 + sb.Append("H"); + //Cleve de Servicio A 2 2-3 + sb.Append("NE"); + //Emisora N 5 4-8 + sb.Append(Emisora.PadLeft(5, Cero)); + //FechaProceso N 8 9-16 + sb.Append(DateTime.Now.ToString("yyyyMMdd")); + //Conmsecutivo N 2 17-18 + sb.Append("01"); + //Numero Total de Registros N 6 19-24 + sb.Append(DTNomina.Rows.Count.ToString().PadLeft(6, Cero)); - //Tip oRegistro 1 1-1 - //Clave servicio 2 2-3 - sb.Append($"HNE"); - - - //Promotor 8 4-11 - if (Promotor.Length > 0 && Promotor.Length <= 8) - { - sb.Append(Promotor.PadLeft(8, '0')); - } - else - { - SbErrores.AppendLine($"Promotor {Promotor} debe de tener una logitud de entre 1 y 8
    "); - ErrorProceso = true; - } - - //NIE 5 12-26 - if (ErrorProceso == false && NIE.Length > 0 && NIE.Length <= 5) - { - sb.Append(NIE.PadLeft(5, ' ')); - } - else - { - SbErrores.AppendLine($"NIE {NIE} debe de tener una NIE de entre 1 y 8
    "); - ErrorProceso = true; - } - - - //Nombre de Empresa ó Razón Social 40 17-56 - if (ErrorProceso == false && RazonSocial.Length > 0 && RazonSocial.Length <= 40) - { - sb.Append(RazonSocial.PadLeft(40, ' ')); - } - else - { - SbErrores.AppendLine($"RazonSocial {RazonSocial} debe de tener una NIE de entre 1 y 40
    "); - ErrorProceso = true; - } - - //57-58consecutivo 1 - sb.Append("1"); - - - //Número de registros N 6 59-64 - sb.Append(DTNomina.Rows.ToString().PadRight(6, ' ')); - - //Filler A 283 65-347 - sb.Append(DTNomina.Rows.ToString().PadLeft(283, ' ')); - + //Importe Total de Registros N 15 25-39 + sb.Append(DTNomina.SUMD("Importe").ToString("0000000000000.00").Replace(".", "")); + //Numero Total altas N 6 40-45 + sb.Append("000000"); + //Importe Total altas N 15 46-60 + sb.Append("000000000000000"); + //Numero Total Bajas N 6 61-66 + sb.Append("000000"); + //Importe Total Bajas N 15 67-81 + sb.Append("000000000000000"); + //Numero Total de cuentas a verificar N 6 82-87 + sb.Append("000000"); + //Accion N 1 88-88 + sb.Append("0"); + //filler 77 89-165 + sb.Append(string.Empty.PadLeft(77, Espacio)); if (!ErrorProceso) { foreach (DataRow dRow in DTNomina.Rows) { + // Codigo ReferenciaDelServicio ReferenciaLeyendaDelOrdenante Importe NumeroBancoReceptor TipoCuenta NumeroCuenta TipoMovimiento Accion ImporteIvaOperacion + string Codigo = dRow["Codigo"].ToString().Trim(); + string ReferenciaDelServicio = dRow["ReferenciaDelServicio"].ToString().Trim(); + string ReferenciaLeyendaDelOrdenante = dRow["ReferenciaLeyendaDelOrdenante"].ToString().Trim(); + decimal Importe = dRow["Importe"].ToString().ToDecimal(); + string NumeroBancoReceptor = dRow["NumeroBancoReceptor"].ToString().Trim(); + string TipoCuenta = dRow["TipoCuenta"].ToString().Trim(); + string NumeroCuenta = dRow["NumeroCuenta"].ToString().Trim(); + string TipoMovimiento = dRow["TipoMovimiento"].ToString().Trim(); + string Accion = dRow["Accion"].ToString().Trim(); + string ImporteIvaOperacion = dRow["ImporteIvaOperacion"].ToString().Trim(); - string CodigoEmpleado = dRow["CodigoEmpleado"].ToString().Trim(); //Tipo de registro A 1 1-1 sb.AppendLine("D"); + //Fecha Aplicacion N 8 2-9 + sb.Append(DateTime.Now.ToString("yyyyMMdd")); - - //CodigoEmpleado A 10 2-11 - if (ErrorProceso == false && CodigoEmpleado.Length > 0 && CodigoEmpleado.Trim().Length <= 10) + //CodigoEmpleado A 10 10-19 + if (ErrorProceso == false && Codigo.Length > 0 && Codigo.Trim().Length <= 10) { - sb.Append(CodigoEmpleado.PadLeft(10, '0')); + sb.Append(Codigo.PadLeft(10, Cero)); } else { - SbErrores.AppendLine($"RazonSocial {RazonSocial} debe de tener una NIE de entre 1 y 40
    "); + SbErrores.AppendLine($"{Codigo} Codigo {Codigo} debe de tener una logitud de entre 1 y 10
    "); ErrorProceso = true; } + //ReferenciaDelServicio A 40 20-29 + sb.Append(ReferenciaDelServicio.PadLeft(40, Espacio)); + //ReferenciaLeyendaDelOrdenante A 40 60-99 + sb.Append(ReferenciaLeyendaDelOrdenante.PadLeft(40, Espacio)); + //Importe N 15 100-114 + sb.Append(Importe.ToString("0000000000000.00").Replace(".", "")); + //NumeroBancoReceptor N 3 115-117 + sb.Append(NumeroBancoReceptor.PadLeft(3, Cero)); + //TipoCuenta N 2 118-119 + sb.Append(TipoCuenta.PadLeft(2, Cero)); + //NumeroCuenta N 18 120-137 + sb.Append(NumeroCuenta.PadLeft(18, Cero)); + //Tipo movimiento N 1 138-138 + sb.Append(TipoCuenta.PadLeft(1, Cero)); + //Accion N 1 139-139 + sb.Append(Accion.PadLeft(1, Espacio)); + //ImporteIvaOperacion 140-147 + sb.Append(ImporteIvaOperacion.PadLeft(8, Cero)); + //filler 18 148-165 + sb.Append(string.Empty.PadLeft(77, Espacio)); + + } } + if (!ErrorProceso) + { + Response.Clear(); + Response.ClearHeaders(); + Response.AppendHeader("Content-Length", sb.ToString()); + Response.ContentType = "text/plain"; + Response.AppendHeader("Content-Disposition", $"attachment;filename=\"Nomina_Banorte_{DdlPeriodo.SelectedItem.Text }.txt\""); + Response.Write(sb.ToString()); + this.RegistraScript("$('#ModalLayoutBancos').modal('hide');"); + Response.Flush(); + Response.End(); + } + else + { + this.Alert($"Errores {SbErrores.ToString()}", TipoMensaje.ToastAdventencia); + } + } - #endregion - - - } - -} + #endregion +} \ No newline at end of file From 3c29967cab66a0907acbc393b72bebd4a47e28c0 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 27 Apr 2022 22:09:42 -0700 Subject: [PATCH 2/3] --- App_Code/ClsPaginas.vb | 22 +- Compras/PopUpVerFactura.aspx.vb | 195 +- GPS/EmbarqueManifiesto.rdlc | 59 +- GPS/EmbarqueManifiestoCartaPorte.rdlc | 2489 +++++++++++++++++++++++++ GPS/EmbarqueManifiestoRemision.rdlc | 187 +- Inventarios/CatUnidades.aspx | 29 +- Inventarios/CatUnidades.aspx.vb | 15 +- vwd.webinfo | 2 + 8 files changed, 2818 insertions(+), 180 deletions(-) create mode 100644 GPS/EmbarqueManifiestoCartaPorte.rdlc diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index d1103d1dc..4614f98e8 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6356,16 +6356,34 @@ Public Class ClsPaginas Try bytes = bytes + + + 'Response.Clear() + 'Response.ContentType = "application/pdf" + 'Response.Cache.SetCacheability(HttpCacheability.Private) + 'Response.Expires = -1 + 'Response.Buffer = True + ''Uncomment to handle the file as attachment + 'Response.AddHeader("Content-Disposition", String.Format("inline; filename={0}.{1}", NombreArchivo, If(Formato = "PDF", "pdf", "xls"))) + ''Response.BinaryWrite(bytes) + 'bytes = Nothing + 'Response.End() + + Response.Buffer = True Response.Clear() - Response.ContentType = mimeType + If Formato = "PDF" Then + Response.ContentType = "application/pdf" + Else + Response.ContentType = mimeType + End If Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls"))) Response.BinaryWrite(bytes) ' create the file Response.Flush() ' send it to the client to download HttpContext.Current.Response.SuppressContent = True HttpContext.Current.ApplicationInstance.CompleteRequest() - HttpContext.Current.Response.End() bytes = Nothing + 'HttpContext.Current.Response.End() Catch ex As Exception If UsuarioActual.CveRol = 1 Then diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 70fed873b..a42199ad8 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -212,11 +212,15 @@ Partial Class PopUpVerFactura If Request("onlyPrint").ToString() = "manifiestoRemision" Then imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero()) End If + If Request("onlyPrint").ToString() = "manifiestoCartaPorte" Then + imprimirManifiestoCartaPorte(Request("cveEmbarqueManifiesto").ToString.ToEntero()) + End If End If End If End Sub + Private Sub imprimirManifiesto(cveEmbarqueManifiesto As Integer) Dim NoEmbarque As String = "" Dim Fecha As String = "" @@ -235,6 +239,8 @@ Partial Class PopUpVerFactura Dim NoKgManifiesto As String = "" Dim Mercado As String = "" Dim NoFactura As String = "" + Dim Cliente As String = "" + Dim Direccion As String = "" Dim LongitudCaja As String = "" Dim LineaTransportacion As String = "" @@ -254,6 +260,8 @@ Partial Class PopUpVerFactura If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then Dim row As DataRow = objnom.DtResultados.Rows(0) NoEmbarque = row("NoEmbarque").ToString() + Cliente = row("Cliente").ToString() + Direccion = row("Direccion").ToString() Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha")) SubProyecto = row("SubProyecto").ToString() AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString() @@ -288,6 +296,7 @@ Partial Class PopUpVerFactura NoPallets = objnom.DtResultados.Rows.Count.ToString() NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2") NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0") + tablaReporte = objnom.DtResultados End If End If @@ -295,6 +304,8 @@ Partial Class PopUpVerFactura End Using Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NoEmbarque", NoEmbarque)) + params.Add(New ReportParameter("Cliente", Cliente)) + params.Add(New ReportParameter("Direccion", Direccion)) params.Add(New ReportParameter("Fecha", Fecha)) params.Add(New ReportParameter("SubProyecto", SubProyecto)) params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA)) @@ -335,8 +346,7 @@ Partial Class PopUpVerFactura ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto") End Sub - - Private Sub imprimirManifiestoRemisionRemision(cveEmbarqueManifiesto As Integer) + Private Sub imprimirManifiestoRemision(cveEmbarqueManifiesto As Integer) Dim NoEmbarque As String = "" Dim Fecha As String = "" Dim SubProyecto As String = "" @@ -361,6 +371,8 @@ Partial Class PopUpVerFactura Dim RPC As String = "" Dim BINSDECARTON As String = "" Dim TotalDlls As String = "" + Dim Cliente As String = "" + Dim Direccion As String = "" @@ -382,6 +394,8 @@ Partial Class PopUpVerFactura If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then Dim row As DataRow = objnom.DtResultados.Rows(0) NoEmbarque = row("NoEmbarque").ToString() + Cliente = row("Cliente").ToString() + Direccion = row("Direccion").ToString() Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha")) DivisoresdeCarton = String.Format("{0:N0}", row("DivisoresdeCarton")) BolsasdePlastico = String.Format("{0:N0}", row("BolsasdePlastico")) @@ -389,6 +403,7 @@ Partial Class PopUpVerFactura CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON")) RPC = String.Format("{0:N0}", row("RPC")) BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON")) + TotalDlls = String.Format("{0:N0}", row("TotalDlls")) @@ -402,7 +417,7 @@ Partial Class PopUpVerFactura Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio")) Rem1Placa = row("Rem1Placa").ToString() NoFactura = row("NoFactura").ToString() - Remolque1 = String.Format("{0} ", row("NumeroTrailer"), row("Rem1Anio")) + Remolque1 = String.Format("{0} ", row("NumeroTrailer")) Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional") NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString()) @@ -432,6 +447,8 @@ Partial Class PopUpVerFactura End Using Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NoEmbarque", NoEmbarque)) + params.Add(New ReportParameter("Cliente", Cliente)) + params.Add(New ReportParameter("Direccion", Direccion)) params.Add(New ReportParameter("Fecha", Fecha)) params.Add(New ReportParameter("SubProyecto", SubProyecto)) params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA)) @@ -476,8 +493,178 @@ Partial Class PopUpVerFactura lrds.Add(rds) '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Manifesto") + ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") End Sub + + + Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer) + Dim NoEmbarque As String = "" + Dim Fecha As String = "" + Dim SubProyecto As String = "" + Dim AgenciaAduanalUSA As String = "" + Dim AgenciaAduanalMEX As String = "" + Dim Temperatura As String = "" + Dim Hora As String = "" + Dim Chofer As String = "" + Dim CamPlaca As String = "" + Dim Camion As String = "" + Dim Rem1Placa As String = "" + Dim Remolque1 As String = "" + Dim NoPallets As String = "" + Dim NoBultos As String = "" + Dim NoKgManifiesto As String = "" + Dim Mercado As String = "" + Dim NoFactura As String = "" + Dim DivisoresdeCarton As String = "" + Dim BolsasdePlastico As String = "" + Dim TapaderasdeCarton As String = "" + Dim CAJASDECARTON As String = "" + Dim RPC As String = "" + Dim BINSDECARTON As String = "" + Dim TotalDlls As String = "" + Dim Cliente As String = "" + Dim Direccion As String = "" + Dim Correo As String = "" + + + Dim LongitudCaja As String = "" + Dim LineaTransportacion As String = "" + Dim SCAC As String = "" + Dim CAAT As String = "" + Dim NumeroTrailer As String = "" + + + Dim tablaReporte As New DataTable + + 'Envase = "1 1/9" + 'Tamano = "Small" + 'Cultivo = "Tomate" + 'noPallet = "000001" + 'Variedad = "Golden" + Using objnom As New ClsNominas + If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then + Dim row As DataRow = objnom.DtResultados.Rows(0) + NoEmbarque = row("NoEmbarque").ToString() + Cliente = row("Cliente").ToString() + Direccion = row("Direccion").ToString() + Correo = row("Correo").ToString() + Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha")) + DivisoresdeCarton = String.Format("{0:N0}", row("DivisoresdeCarton")) + BolsasdePlastico = String.Format("{0:N0}", row("BolsasdePlastico")) + TapaderasdeCarton = String.Format("{0:N0}", row("TapaderasdeCarton")) + CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON")) + RPC = String.Format("{0:N0}", row("RPC")) + BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON")) + TotalDlls = String.Format("{0:N0}", row("TotalDlls")) + + + + SubProyecto = row("SubProyecto").ToString() + AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString() + AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString() + Temperatura = row("Temperatura").ToString() + Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng")) + Chofer = row("Chofer").ToString() + CamPlaca = row("CamPlaca").ToString() + Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio")) + Rem1Placa = row("Rem1Placa").ToString() + NoFactura = row("NoFactura").ToString() + Remolque1 = String.Format("{0} ", row("NumeroTrailer")) + Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional") + + NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString()) + + LongitudCaja = row("LongitudCaja").ToString() + LineaTransportacion = row("LineaTransportacion").ToString() + SCAC = row("SCAC").ToString() + CAAT = row("CAAT").ToString() + + 'If row("CveCamionRemolque1").ToString() = "1" Then + ' Rem1Placa = "12-TF-5E" + ' Remolque1 = "Remolque 1" + 'Else + ' Rem1Placa = "15-TF-7f" + ' Remolque1 = "Remolque 2" + + 'End If + + If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then + NoPallets = objnom.DtResultados.Rows.Count.ToString() + NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2") + NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0") + tablaReporte = objnom.DtResultados + End If + End If + 'Remolque 1 12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2 15-TF-7f + End Using + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("NoEmbarque", NoEmbarque)) + params.Add(New ReportParameter("Cliente", Cliente)) + params.Add(New ReportParameter("Direccion", Direccion)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("SubProyecto", SubProyecto)) + params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA)) + params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX)) + params.Add(New ReportParameter("Temperatura", Temperatura)) + params.Add(New ReportParameter("Hora", Hora)) + params.Add(New ReportParameter("Chofer", Chofer)) + params.Add(New ReportParameter("CamPlaca", CamPlaca)) + params.Add(New ReportParameter("Camion", Camion)) + params.Add(New ReportParameter("Rem1Placa", Rem1Placa)) + params.Add(New ReportParameter("Remolque1", Remolque1)) + + + params.Add(New ReportParameter("LongitudCaja", LongitudCaja)) + params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion)) + params.Add(New ReportParameter("SCAC", SCAC)) + params.Add(New ReportParameter("CAAT", CAAT)) + params.Add(New ReportParameter("NumeroTrailer", NumeroTrailer)) + + + params.Add(New ReportParameter("NoFactura", NoFactura)) + params.Add(New ReportParameter("Mercado", Mercado)) + params.Add(New ReportParameter("NoBultos", NoBultos)) + params.Add(New ReportParameter("NoPallets", NoPallets)) + params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto)) + + + 'params.Add(New ReportParameter("DivisoresdeCarton", DivisoresdeCarton)) + 'params.Add(New ReportParameter("BolsasdePlastico", BolsasdePlastico)) + 'params.Add(New ReportParameter("TapaderasdeCarton", TapaderasdeCarton)) + 'params.Add(New ReportParameter("CAJASDECARTON", CAJASDECARTON)) + 'params.Add(New ReportParameter("RPC", RPC)) + 'params.Add(New ReportParameter("BINSDECARTON", BINSDECARTON)) + 'params.Add(New ReportParameter("TotalDlls", TotalDlls)) + + + + + + Dim lrds As New List(Of ReportDataSource) + Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte} + lrds.Add(rds) + '"Empresas/Grales/Formatos/EquiposGPS.rdlc" + '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" + Dim pdf = StreamPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") + + Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) + LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")}) + + Dim ObjMail As New ClsSisMail() + + If ObjMail.SendMail(UsuarioActual.Empresa, Correo, "Datos carta porte", "", "", LSRutasMail) Then + 'ResultadoMail = 1 + Else + 'GuardaLogFacturacion($"No se envio el correo {Mail}, {Asunto}, {Cuerpo}, {MailCC},") + 'GuardaLogFacturacion($"Ruta XML {ArchivoXML}") + 'ResultadoMail = 3 + End If + ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte", Content_Disposition:="inline") + + + End Sub + + Private Sub imprimirpallet2(cvePallet As Integer) Dim Envase As String = "" Dim Tamano As String = "" diff --git a/GPS/EmbarqueManifiesto.rdlc b/GPS/EmbarqueManifiesto.rdlc index 8f17b1a9f..0a2aa63f6 100644 --- a/GPS/EmbarqueManifiesto.rdlc +++ b/GPS/EmbarqueManifiesto.rdlc @@ -41,6 +41,10 @@ Cultivo System.String + + Manifiesto + System.String + CultivoVariedad System.String @@ -1497,7 +1501,7 @@ - GROWER ALLIANCE + =Parameters!Cliente.Value @@ -1688,7 +1692,7 @@ - 947 E. FRONTAGE RD. + =Parameters!Direccion.Value @@ -1879,7 +1883,7 @@ - RIO RICO + @@ -6833,13 +6837,13 @@ - 2.5cm + 1.73271cm - 2.5cm + 1.68042cm - 5.74021cm + 7.32708cm 3.69064cm @@ -7122,7 +7126,9 @@ =Fields!NoPallets.Value - + true @@ -7152,7 +7159,9 @@ =Fields!NoCajas.Value - + true - + true true - =Fields!Cultivo.Value & " " & Fields!CultivoVariedad.Value - + true @@ -7212,7 +7225,9 @@ =Fields!Etiqueta.Value - + true @@ -7242,7 +7258,9 @@ =Fields!Envase.Value - + true @@ -7447,6 +7466,18 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/GPS/EmbarqueManifiestoCartaPorte.rdlc b/GPS/EmbarqueManifiestoCartaPorte.rdlc new file mode 100644 index 000000000..0f6bd25e6 --- /dev/null +++ b/GPS/EmbarqueManifiestoCartaPorte.rdlc @@ -0,0 +1,2489 @@ + + + 0 + + + + System.Data.DataSet + /* Local Connection */ + + 74f8a171-24f1-4404-809e-ec2e098f1907 + + + + + + DataSet3 + /* Local Query */ + + + + NoPallets + System.Int + + + NoCajas + System.Int + + + Peso + System.Decimal + + + Etiqueta + System.String + + + Envase + System.String + + + Cultivo + System.String + + + SATClavePS + System.String + + + Embalaje + System.String + + + EsMaterialPeligroso + System.String + + + Manifiesto + System.String + + + CultivoVariedad + System.String + + + + DataSet3 + C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet3.xsd + DataTable1 + + + + + + + + + + + + + + + 2.45401cm + + + 2.30818cm + + + 1.99068cm + + + 2.2288cm + + + + + 0.6cm + + + + + true + true + + + + + Información para carta porte + + + + Textbox11 + + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + 0.6cm + + + + + true + true + + + + + Manifiesto N° + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!NoEmbarque.Value + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!SubProyecto.Value + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Fecha Embarque: + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + Hora Salida: + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + =Parameters!Fecha.Value + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + true + true + + + + + =Parameters!Hora.Value + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + + + + + + + + + + + + + + + + + + 0.3175cm + 10.3553cm + 2.4cm + 8.98167cm + + + + + + Embedded + logojam + FitProportional + 0.20354cm + 0.19717cm + 2.79646cm + 4.89479cm + 1 + + + + + + + + + 2.60646cm + + + 2.39354cm + + + 2.07667cm + + + 2.07667cm + + + 0.38333cm + + + 2.92334cm + + + 1.97084cm + + + 2.31479cm + + + 2.34125cm + + + + + 0.6cm + + + + + true + true + + + + + ORIGEN / SHIPPER + + + + + + + Textbox264 + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESTINO / CONSIGNE + + + + + + + Textbox269 + + 1.5pt + + + Black + + 1.5pt + + + Black + + 1.5pt + + + Black + + 1.5pt + + + Black + + 1.5pt + + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + 0.6cm + + + + + true + true + + + + + Embarcador: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + AGROPECUARIA JAM, S.A. DE C.V. + + + + + + + Textbox256 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Distribuidor: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Cliente.Value + + + + + + + Textbox261 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Direccion: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CARR. A BAHIA DE KINO KM12 + + + + + + + Textbox247 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Domic.: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Direccion.Value + + + + + + + Textbox252 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Ciudad: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + HERMOSILLO, SONORA + + + + + + + Textbox238 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Lugar: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox243 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.6cm + + + + + true + true + + + + + Reg. Fed. Con.: + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + AJA9809264V2 + + + + + + + Textbox229 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + true + true + + + + + + + + + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Reg. Fed. Con.: + + + + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox234 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Mercado: + + + + + + + Textbox55 + + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Parameters!Mercado.Value + + + + + + + Textbox60 + + + + Black + + 2pt + + + Black + + 2pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.2825cm + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 3.49239cm + 0.25008cm + 3.2825cm + 19.08689cm + 2 + + + + + + + + + 4.11396cm + + + 5.86084cm + + + 4.94552cm + + + 4.21948cm + + + + + 0.6cm + + + + + true + true + + + + + CULTIVO + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CODIGO SAT DEL PRODUCTO + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + ¿ES MATERIAL PELIGROSO? + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + ¿ES MATERIAL PELIGROSO? + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + + Black + + 2pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Fields!Cultivo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SATClavePS.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!EsMaterialPeligroso.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Embalaje.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 7.08766cm + 0.19717cm + 1.2cm + 19.1398cm + 3 + + + + + + 3.43808in + + =Parameters!Cliente.Value + - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - Black - - 2pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - + true true @@ -597,7 +466,7 @@ Rio Rico, AZ 85648 - + true true @@ -672,6 +541,7 @@ Rio Rico, AZ 85648 2 + true @@ -739,12 +609,11 @@ Rio Rico, AZ 85648 - - 4.15396cm - 2.00862cm - 3.6cm + 3.38667cm + 1.98216cm + 3cm 14.9871cm - 8.9547in + 5.96512in