Merge branch 'master' of http://192.168.10.111:8383/SIG

2022-04-29 13:28:33 -07:00
parent 31931565f0 e172b080b6
commit 446307ee40
20 changed files with 3667 additions and 343 deletions
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1178,13 +1178,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
--- 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
--- 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
--- 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

--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4041,9 +4041,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 ------------------

@@ -4465,6 +4463,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)
@@ -5922,7 +5924,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
@@ -8967,7 +8972,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)

@@ -10586,7 +10591,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
--- 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 = ""
--- 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
--- 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

--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -88,9 +88,9 @@

                <asp:LinkButton ID="LnkAddConcepto" runat="server" OnClick="LnkAddConcepto_Click" Visible="true"><i class="fa fa-plus" ></i> Agregar Concepto</asp:LinkButton>
            </li>
-             <li>
-                    <asp:LinkButton ID="LnkCrearAPartirDe" runat="server" Visible="false" OnClick="LnkCrearAPartirDe_Click" Style="color: #686868;"><i class="fa fa-plus" style="color:#686868;" ></i>Crear a partir de</asp:LinkButton>
-                </li>
+            <li>
+                <asp:LinkButton ID="LnkCrearAPartirDe" runat="server" Visible="false" OnClick="LnkCrearAPartirDe_Click" Style="color: #686868;"><i class="fa fa-plus" style="color:#686868;" ></i>Crear a partir de</asp:LinkButton>
+            </li>
        </ContentTemplate>
    </asp:UpdatePanel>
 </asp:Content>
@@ -156,8 +156,14 @@
                                                </div>
                                            </div>
                                            <div class="col-md-4">
-                                                <div class="form-group form-md-line-input input-iconright">
-                                                    <asp:TextBox CssClass="form-control" ID="TxtFolio" runat="server" MaxLength="15" Enabled="false"></asp:TextBox>
+                                                <div class="form-group  form-md-line-input input-group input-small ">
+                                                    <asp:TextBox CssClass="form-control" ID="TxtFolio" runat="server" MaxLength="15" Enabled="false" Width="100%"></asp:TextBox>
+                                                    <span class="input-group-btn ">                                                        
+                                                        <asp:LinkButton runat="server" ID="LnkFolioManual" CssClass="blue"  Visible="false"> <i class="fa fa-pencil" aria-hidden="true"></i></asp:LinkButton>                                                  
+                                                    </span>
+                                                    
+                                                    
+
                                                    <label for="<%= TxtFolio.ClientID.ToString()%>">Folio: </label>
                                                </div>
                                            </div>
@@ -711,6 +717,8 @@
                        <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
                        <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" />
                         <asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" /> 
+                        <asp:Button ID="BtnDescontabilizar" runat="server" Text="Descontabilizar" CssClass="btn btn-primary" Visible="false"   
+                            data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"  /> 
                    </ContentTemplate>
                </asp:UpdatePanel>
            </td>
--- 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
@@ -2707,22 +2722,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 <b>{ ObjConta.ContaFolio.ToString()}.</b>", 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. <br/><br/>Folio: <b>{0}</b> ", ObjConta.FolioPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
-            Else
-                Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", 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. <br/><br/>Folio: <b>{0}</b> ", ObjConta.FolioPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
+                Else
+                    Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", 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

@@ -3171,13 +3215,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

--- 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))
--- a/GPS/EmbarqueManifiesto.rdlc
+++ b/GPS/EmbarqueManifiesto.rdlc
@@ -41,6 +41,10 @@
          <DataField>Cultivo</DataField>
          <rd:TypeName>System.String</rd:TypeName>
        </Field>
+        <Field Name="Manifiesto">
+          <DataField>Manifiesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
        <Field Name="CultivoVariedad">
          <DataField>CultivoVariedad</DataField>
          <rd:TypeName>System.String</rd:TypeName>
@@ -1497,7 +1501,7 @@
                            <Paragraph>
                              <TextRuns>
                                <TextRun>
-                                  <Value>GROWER ALLIANCE</Value>
+                                  <Value>=Parameters!Cliente.Value</Value>
                                  <Style>
                                    <FontSize>8pt</FontSize>
                                  </Style>
@@ -1688,7 +1692,7 @@
                            <Paragraph>
                              <TextRuns>
                                <TextRun>
-                                  <Value>947 E. FRONTAGE RD.</Value>
+                                  <Value>=Parameters!Direccion.Value</Value>
                                  <Style>
                                    <FontSize>8pt</FontSize>
                                  </Style>
@@ -1879,7 +1883,7 @@
                            <Paragraph>
                              <TextRuns>
                                <TextRun>
-                                  <Value>RIO RICO</Value>
+                                  <Value />
                                  <Style>
                                    <FontSize>8pt</FontSize>
                                  </Style>
@@ -6833,13 +6837,13 @@
            <TablixBody>
              <TablixColumns>
                <TablixColumn>
-                  <Width>2.5cm</Width>
+                  <Width>1.73271cm</Width>
                </TablixColumn>
                <TablixColumn>
-                  <Width>2.5cm</Width>
+                  <Width>1.68042cm</Width>
                </TablixColumn>
                <TablixColumn>
-                  <Width>5.74021cm</Width>
+                  <Width>7.32708cm</Width>
                </TablixColumn>
                <TablixColumn>
                  <Width>3.69064cm</Width>
@@ -7122,7 +7126,9 @@
                              <TextRuns>
                                <TextRun>
                                  <Value>=Fields!NoPallets.Value</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                </TextRun>
                              </TextRuns>
                              <Style />
@@ -7140,6 +7146,7 @@
                            <PaddingBottom>2pt</PaddingBottom>
                          </Style>
                        </Textbox>
+                        <rd:Selected>true</rd:Selected>
                      </CellContents>
                    </TablixCell>
                    <TablixCell>
@@ -7152,7 +7159,9 @@
                              <TextRuns>
                                <TextRun>
                                  <Value>=Fields!NoCajas.Value</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                </TextRun>
                              </TextRuns>
                              <Style />
@@ -7170,25 +7179,28 @@
                            <PaddingBottom>2pt</PaddingBottom>
                          </Style>
                        </Textbox>
+                        <rd:Selected>true</rd:Selected>
                      </CellContents>
                    </TablixCell>
                    <TablixCell>
                      <CellContents>
-                        <Textbox Name="Cultivo">
+                        <Textbox Name="Manifiesto">
                          <CanGrow>true</CanGrow>
                          <KeepTogether>true</KeepTogether>
                          <Paragraphs>
                            <Paragraph>
                              <TextRuns>
                                <TextRun>
-                                  <Value>=Fields!Cultivo.Value &amp; " " &amp; Fields!CultivoVariedad.Value</Value>
-                                  <Style />
+                                  <Value>=Fields!Manifiesto.Value</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                </TextRun>
                              </TextRuns>
                              <Style />
                            </Paragraph>
                          </Paragraphs>
-                          <rd:DefaultName>Cultivo</rd:DefaultName>
+                          <rd:DefaultName>Manifiesto</rd:DefaultName>
                          <Style>
                            <Border>
                              <Color>LightGrey</Color>
@@ -7200,6 +7212,7 @@
                            <PaddingBottom>2pt</PaddingBottom>
                          </Style>
                        </Textbox>
+                        <rd:Selected>true</rd:Selected>
                      </CellContents>
                    </TablixCell>
                    <TablixCell>
@@ -7212,7 +7225,9 @@
                              <TextRuns>
                                <TextRun>
                                  <Value>=Fields!Etiqueta.Value</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                </TextRun>
                              </TextRuns>
                              <Style />
@@ -7230,6 +7245,7 @@
                            <PaddingBottom>2pt</PaddingBottom>
                          </Style>
                        </Textbox>
+                        <rd:Selected>true</rd:Selected>
                      </CellContents>
                    </TablixCell>
                    <TablixCell>
@@ -7242,7 +7258,9 @@
                              <TextRuns>
                                <TextRun>
                                  <Value>=Fields!Envase.Value</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
                                </TextRun>
                              </TextRuns>
                              <Style />
@@ -7260,6 +7278,7 @@
                            <PaddingBottom>2pt</PaddingBottom>
                          </Style>
                        </Textbox>
+                        <rd:Selected>true</rd:Selected>
                      </CellContents>
                    </TablixCell>
                  </TablixCells>
@@ -7447,6 +7466,18 @@
      <AllowBlank>true</AllowBlank>
      <Prompt>ReportParameter1</Prompt>
    </ReportParameter>
+    <ReportParameter Name="Direccion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Cliente">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
  </ReportParameters>
  <EmbeddedImages>
    <EmbeddedImage Name="logojam">
--- a/GPS/EmbarqueManifiestoCartaPorte.rdlc
+++ b/GPS/EmbarqueManifiestoCartaPorte.rdlc
--- a/GPS/EmbarqueManifiestoRemision.rdlc
+++ b/GPS/EmbarqueManifiestoRemision.rdlc
@@ -41,6 +41,10 @@
          <DataField>Cultivo</DataField>
          <rd:TypeName>System.String</rd:TypeName>
        </Field>
+        <Field Name="Manifiesto">
+          <DataField>Manifiesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
        <Field Name="CultivoVariedad">
          <DataField>CultivoVariedad</DataField>
          <rd:TypeName>System.String</rd:TypeName>
@@ -307,10 +311,8 @@
                            <Paragraph>
                              <TextRuns>
                                <TextRun>
-                                  <Value>GROWER ALLIANCE</Value>
-                                  <Style>
-                                    <FontSize>8pt</FontSize>
-                                  </Style>
+                                  <Value>=Parameters!Cliente.Value</Value>
+                                  <Style />
                                </TextRun>
                              </TextRuns>
                              <Style />
@@ -413,9 +415,7 @@
                            <Paragraph>
                              <TextRuns>
                                <TextRun>
-                                  <Value>12 Ave. Acaponeta
-
-Rio Rico, AZ 85648</Value>
+                                  <Value>=Parameters!Direccion.Value</Value>
                                  <Style />
                                </TextRun>
                              </TextRuns>
@@ -437,138 +437,7 @@ Rio Rico, AZ 85648</Value>
                    </TablixCell>
                    <TablixCell>
                      <CellContents>
-                        <Textbox Name="Textbox38">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style />
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox38</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox39">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style />
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox39</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <RightBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>2pt</Width>
-                            </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                  </TablixCells>
-                </TablixRow>
-                <TablixRow>
-                  <Height>0.6cm</Height>
-                  <TablixCells>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox32">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style />
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox32</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <LeftBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>2pt</Width>
-                            </LeftBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox43">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style />
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox43</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox33">
+                        <Textbox Name="Textbox50">
                          <CanGrow>true</CanGrow>
                          <KeepTogether>true</KeepTogether>
                          <Paragraphs>
@@ -597,7 +466,7 @@ Rio Rico, AZ 85648</Value>
                    </TablixCell>
                    <TablixCell>
                      <CellContents>
-                        <Textbox Name="Textbox44">
+                        <Textbox Name="Textbox51">
                          <CanGrow>true</CanGrow>
                          <KeepTogether>true</KeepTogether>
                          <Paragraphs>
@@ -672,6 +541,7 @@ Rio Rico, AZ 85648</Value>
                          </Style>
                        </Textbox>
                        <ColSpan>2</ColSpan>
+                        <rd:Selected>true</rd:Selected>
                      </CellContents>
                    </TablixCell>
                    <TablixCell />
@@ -739,12 +609,11 @@ Rio Rico, AZ 85648</Value>
                <TablixMember />
                <TablixMember />
                <TablixMember />
-                <TablixMember />
              </TablixMembers>
            </TablixRowHierarchy>
-            <Top>4.15396cm</Top>
-            <Left>2.00862cm</Left>
-            <Height>3.6cm</Height>
+            <Top>3.38667cm</Top>
+            <Left>1.98216cm</Left>
+            <Height>3cm</Height>
            <Width>14.9871cm</Width>
            <Style>
              <Border>
@@ -2370,7 +2239,15 @@ Hermosillo, Sonora, Mexico
                            <Paragraph>
                              <TextRuns>
                                <TextRun>
-                                  <Value>CAAT: 32VU
+                                  <Value>CAAT:</Value>
+                                  <Style />
+                                </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!CAAT.Value</Value>
+                                  <Style />
+                                </TextRun>
+                                <TextRun>
+                                  <Value xml:space="preserve">
 </Value>
                                  <Style />
                                </TextRun>
@@ -2531,7 +2408,7 @@ Hermosillo, Sonora, Mexico
                            <Paragraph>
                              <TextRuns>
                                <TextRun>
-                                  <Value>LCT-03</Value>
+                                  <Value>=Parameters!Remolque1.Value</Value>
                                  <Style />
                                </TextRun>
                              </TextRuns>
@@ -2774,8 +2651,8 @@ Hermosillo, Sonora, Mexico
                <TablixMember />
              </TablixMembers>
            </TablixRowHierarchy>
-            <Top>9.57248cm</Top>
-            <Left>1.44748cm</Left>
+            <Top>6.74144cm</Top>
+            <Left>1.39456cm</Left>
            <Height>6cm</Height>
            <Width>16.05095cm</Width>
            <ZIndex>3</ZIndex>
@@ -2786,7 +2663,7 @@ Hermosillo, Sonora, Mexico
            </Style>
          </Tablix>
        </ReportItems>
-        <Height>8.9547in</Height>
+        <Height>5.96512in</Height>
        <Style />
      </Body>
      <Width>7.64435in</Width>
@@ -2977,6 +2854,18 @@ Hermosillo, Sonora, Mexico
      <AllowBlank>true</AllowBlank>
      <Prompt>ReportParameter1</Prompt>
    </ReportParameter>
+    <ReportParameter Name="Cliente">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Direccion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
  </ReportParameters>
  <EmbeddedImages>
    <EmbeddedImage Name="logojam">
--- a/Inventarios/CatUnidades.aspx
+++ b/Inventarios/CatUnidades.aspx
@@ -31,7 +31,7 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,CveConfigAutoTransporte,Anio,CveTipoCamion,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer"
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,CveConfigAutoTransporte,Anio,CveTipoCamion,CveProveedor,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer"
                EmptyDataText="No se Encontraron Unidades" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
                <Columns>
                    <asp:BoundField HeaderText="Unidad" DataField="Especificacion" ItemStyle-HorizontalAlign="Left" />
@@ -97,11 +97,11 @@
                                </div>

                            </div>
-                                <div class="form-group form-md-line-input input-iconright col-md-12" runat="server" visible="false" id="DvNumeroTrailler">
-                                    <asp:TextBox ID="TxtNumeroTrailer" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox>
-                                    <asp:Label AssociatedControlID="TxtNumeroTrailer" runat="server" Text="Número De Unidad"></asp:Label>
-                                    <i></i>
-                                </div>
+                            <div class="form-group form-md-line-input input-iconright col-md-12" runat="server" visible="false" id="DvNumeroTrailler">
+                                <asp:TextBox ID="TxtNumeroTrailer" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox>
+                                <asp:Label AssociatedControlID="TxtNumeroTrailer" runat="server" Text="Número De Unidad"></asp:Label>
+                                <i></i>
+                            </div>

                            <div class="form-group form-md-line-input input-iconright col-md-6">

@@ -230,8 +230,8 @@

                        </div>

-                        <div class="row"  runat="server" id="DVSCACCAAT" visible="false">
-                            <div class="col-md-6" >
+                        <div class="row" runat="server" id="DVSCACCAAT" visible="false">
+                            <div class="col-md-6">
                                <div class="form-group form-md-line-input input-iconright">
                                    <asp:TextBox ID="TxtSCAC" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
                                    <label for="<%= TxtSCAC.ClientID.ToString()%>">SCAC:</label>
@@ -248,10 +248,19 @@

                        </div>

+                        <div class="row">
+                            <div class="col-md-12">
+                                <div class="form-group form-md-line-input input-iconright" runat="server" id="Div1">
+                                    <asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm select2me " Width="100%" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataValueField="CveProveedor" DataTextField="RazonSocial" Style="padding: 0px">
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor:</label>
+                                    <asp:RequiredFieldValidator runat="server" ID="RequiredFieldValidator3" ControlToValidate="DdlTipoPermisoSCT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Permiso SCT''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
+                                    <i></i>
+                                </div>
+                            </div>
+                        </div>

                        <%--<asp:CheckBox ID="ChkesRemolque" Checked="true" TextAlign="Left" Text="¿Es remolque?:" runat="server" AutoPostBack="true" OnCheckedChanged="ChkesRemolque_CheckedChanged" />--%>
-
-
                    </div>

                    <div class="modal-footer">
--- a/Inventarios/CatUnidades.aspx.vb
+++ b/Inventarios/CatUnidades.aspx.vb
@@ -19,11 +19,17 @@ Partial Class Inventarios_CatUnidades
    Private Sub Catalogos_CatPtoSubFunsion_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CargaCombos()
+            CargaDdlProveedor()
            CargaDatos()
        End If
    End Sub


+    Private Sub CargaDdlProveedor()
+        DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.DataBind()
+    End Sub



@@ -88,6 +94,7 @@ Partial Class Inventarios_CatUnidades
        TxtEspecificacionNuevo.Text = ""
        TxtEspecificacionNuevo.Text = ""
        DdlConfigAuto.SelectedValueExist(-1)
+        DdlProveedor.SelectedValueExist(-1)

        TxtAnio.Text = ""
        'TxtTipoPermisoSCT.Text = ""
@@ -137,8 +144,9 @@ Partial Class Inventarios_CatUnidades
        TxtNumPolizaSeguroMedioAmbiente.Text = GvRow.DataKey("NumPolizaSeguroMedioAmbiente")
        TxtNombreAseguradoraCarga.Text = GvRow.DataKey("NombreAseguradoraCarga")
        TxtNumPolizaSeguroCarga.Text = GvRow.DataKey("NumPolizaSeguroCarga")
-
        DdlTiposRemolque.SelectedValueExist(CveTipoRemolque)
+        DdlProveedor.SelectedValueExist(-1)
+        DdlProveedor.SelectedValueExist(GvRow.DataKey("CveProveedor"))

        TxtNumeroTrailer.Text = GvRow.DataKey("NumeroTrailer")
        TxtLongitudCaja.Text = GvRow.DataKey("LongitudCaja")
@@ -207,6 +215,9 @@ Partial Class Inventarios_CatUnidades
                If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue.ToEntero, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero(), TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                                 TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text) Then
                    Alert("Unidad actualizada correctamente")
+                    Using objbase = New ClsClaseBase()
+                        objbase.runQuerystr(String.Format("UPDATE Inv_Camiones SET CveProveedor={1} WHERE  CveCamion={0}", CveCamion, DdlProveedor.SelectedValue))
+                    End Using
                Else
                    ErrorPrceso = True
                End If
@@ -214,6 +225,8 @@ Partial Class Inventarios_CatUnidades
        End Using


+
+
        If Not ErrorPrceso Then
            GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
            CargaDatos()
--- a/Nomina/Nomina.aspx
+++ b/Nomina/Nomina.aspx
@@ -4227,13 +4227,13 @@
                    <div class="modal-body">
                        

-                        <div class="form-group form-md-line-input">
+                     <%--   <div class="form-group form-md-line-input">
                             <asp:RadioButtonList runat="server" ID="RBLModalBancosLayout"  RepeatDirection="Horizontal"  CssClass=" form-control input-sm"  >
                                      <asp:ListItem Value="1" Selected="True">Generar Layout</asp:ListItem>
                                      <asp:ListItem Value="2">Altas Nomina</asp:ListItem>
                                  </asp:RadioButtonList>
                             <asp:Label runat="server" AssociatedControlID="RBLModalBancosLayout">Tipo Operacóon:</asp:Label>
-                        </div>
+                        </div>--%>

                        <div class="form-group form-md-line-input">
                            <asp:DropDownList ID="DdlModalBancosLayout" CssClass=" form-control input-sm select2me" runat="server" Width="100%">
--- 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<br>{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<br/>");
+    //            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<br/>");
+    //            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<br/>");
+    //            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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
+    //                    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<br/>");
-                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<br/>");
-                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<br/>");
-                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<br/>");
+                        SbErrores.AppendLine($"{Codigo} Codigo {Codigo} debe de tener una logitud de entre 1 y 10<br/>");
                        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
+}
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6231,7 +6231,13 @@ Partial Class Ventas

                'SI LA VENTA YA ESTA REGISTRADA NO DEBE HABILITAR ACCIONES
                If CveVenta <= 0 Then
-                    LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
+                    Dim EsModuloCotizacion As Boolean = False
+                    If Request("Op") IsNot Nothing AndAlso Request("Op").ToString() = "Cot" Then
+                        EsModuloCotizacion = True
+                    End If
+                    If Not EsModuloCotizacion Then
+                        LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
+                    End If
                End If

                If UsuarioActual.Empresa.CvePlataforma = 2 Then LnkOCs.Visible = False
@@ -7120,7 +7126,13 @@ Partial Class Ventas

        'SI LA VENTA YA ESTA REGISTRADA NO DEBE HABILITAR ACCIONES
        If CveVenta <= 0 Then
-            LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
+            Dim EsModuloCotizacion As Boolean = False
+            If Request("Op") IsNot Nothing AndAlso Request("Op").ToString() = "Cot" Then
+                EsModuloCotizacion = True
+            End If
+            If Not EsModuloCotizacion Then
+                LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
+            End If
        End If

        ObjCliente.Dispose()
@@ -7693,10 +7705,31 @@ Partial Class Ventas
                If ValidaExistencia AndAlso DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False AndAlso Not RegistroxOC Then
                    'VALIDA EXISTENCIA
                    If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 140, 153}) Then
-                        If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
-                            Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
-                            Exit Sub
+                        'SI ES VENTA NUEVA TOMA EN CUENTA LO DEL TMPDT
+                        If CveVenta <= 0 Then
+                            If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
+                                Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
+                                Exit Sub
+                            End If
+                        Else
+                            If DdlTipoComprobante.SelectedValue = "Rem" Then
+                                Dim CantidadVenta As Double = 0
+                                Using ObjVentas As New ClsVentas
+                                    If ObjVentas.GetVentaDetalle(CveVenta) Then
+                                        CantidadVenta = ObjVentas.DtResultados.SUM("Cantidad", $"CvePS = {CvePS}")
+                                    End If
+                                End Using
+
+                                'SUMA LO YA RESTADO EN PENDIENTE POR SURTIR QUE PERTENESCA A LA VENTA.
+                                'PARA QUE NO RESTE LA EXISTENCIA 2 VECES Y PUEDAS COMPARAR LO REAL
+                                If (Existencia + CantidadVenta) - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
+                                    Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
+                                    Exit Sub
+                                End If
+                            End If
+
                        End If
+
                    End If
                End If

@@ -14353,7 +14386,7 @@ Partial Class Ventas

                Dim DebeGenerarMovimiento As Boolean = TmpDT.COUNT("CvePS", "CveTipoPS = 2") > 0
                'VERIFICA QUE SE REALIZO EL MOVIMIENTO DE ALMACEN
-                If DebeGenerarMovimiento AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then
+                If DebeGenerarMovimiento AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Rem") Then
                    If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then
                        OcurrioError = True
                        ErrorList.Add("Ocurrió un error al verificar inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
@@ -17584,10 +17617,29 @@ Partial Class Ventas
                If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then
                    'VALIDA EXISTENCIA
                    If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153, 140}) Then
-                        If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
-                            Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
-                            Return False
+                        If CveVenta <= 0 OrElse Me.EsCreaApartirDe Then
+                            If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
+                                Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
+                                Return False
+                            End If
+                        Else
+                            If DdlTipoComprobante.SelectedValue = "Rem" Then
+                                Dim CantidadVenta As Double = 0
+                                Using ObjVentasE As New ClsVentas
+                                    If ObjVentasE.GetVentaDetalle(CveVenta) Then
+                                        CantidadVenta = ObjVentasE.DtResultados.SUM("Cantidad", $"CvePS = {CvePS}")
+                                    End If
+                                End Using
+
+                                'SUMA LO YA RESTADO EN PENDIENTE POR SURTIR QUE PERTENESCA A LA VENTA.
+                                'PARA QUE NO RESTE LA EXISTENCIA 2 VECES Y PUEDAS COMPARAR LO REAL
+                                If (Existencia + CantidadVenta) - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} And (EntregaDirecta Is NULL Or EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
+                                    Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
+                                    Return False
+                                End If
+                            End If
                        End If
+
                    End If
                End If

--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -474,6 +474,8 @@
    
  
    
+  
+