Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2023-04-21 13:06:13 -07:00
parent 5670a7f6b2 9038591f8b
commit b505561795
16 changed files with 3813 additions and 6171 deletions
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -1413,21 +1413,49 @@ Partial Class Bancos_PopIECompras
                Pago.ImportePago = ImportePagado
                Pago.CveIE = CveIE

-                'If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
-                '                                Dim ObjCreditos As New ClsBancos
-                '                                ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero)
-                '                                If ObjCreditos.DtResultados.Rows.Count > 0 AndAlso (ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero > 0 Or ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjetaSIG").ToString.ToEntero > 0) Then
-                '                                    IdCtaContable = ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero
-                '                                Else
-                '                                    IdCtaContable = CtaProveedor
-                '                                End If
-                '                                ObjCreditos.Dispose()
-                '                            Else
-                '                                IdCtaContable = IdCuentaBancaria
-                '                            End If
-
                If MsgError = "" AndAlso AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then
                    MsgError = "No se pudo insertar la póliza"
+                End If
+                'AGREGO PREPOLIZA  BANCOS
+                Dim IdCuenta As Integer = 0
+                Dim UsaComplementariaBancos As Boolean = Not UsuarioActual.CveEmpresa.Contiene(7, 11, 122, 145, 13, 83)
+                Dim ConceptoMovimiento As String = $"{TxtPagueseA.Text.Trim} - {TxtObservaciones.Text} {If(Pago.TCPago > 1, $" TC:{Pago.TCPago}", "")}"
+                Dim Referencia As String = TxtFolio.Text.Trim
+                Dim tImporteMN As Decimal = TxtImporte.Text.ToDecimal
+                Pago.ImportePago = tImporteMN
+
+                If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
+                    Dim ObjCreditos As New ClsBancos
+                    ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero)
+
+                    If ObjCreditos.DtResultados.Rows.Count > 0 AndAlso (ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero > 0) Then
+                        IdCuenta = ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero
+                    End If
+
+                    Dim Importe42 As Decimal = Pago.ImportePago + Pago.OtroGastoIngreso
+                    tImporteMN = If(Pago.CveMonedaPago = 2, If(DivTipoCambio.Visible, Importe42 / TxtTipoCambio.Text.ToDecimal * Pago.TCPago, Importe42 * Pago.TCPago), Importe42)
+
+                    If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe42, tImporteMN, 42, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
+                        MsgError = "No se pudo insertar la póliza"
+                    End If
+
+                Else
+                    Dim ImporteME As Decimal = 0
+                    If Pago.CveMonedaPago = 2 Then ImporteME = Pago.ImportePago
+                    If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then
+                        ImporteME = tImporteMN
+                        tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
+                    End If
+
+                    If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then
+                        MsgError = "No se pudo insertar la póliza"
+                    End If
+
+                    If Pago.CveMonedaPago = 2 AndAlso UsaComplementariaBancos Then
+                        If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, (Pago.ImportePago * Pago.TCPago - Pago.ImportePago).RoundSQL, 204, Referencia, ConceptoMovimiento, IdCuentaBancariaComplementaria, CveIE:=CveIE, CveProveedor:=CveProveedor, ImporteME:=Pago.ImportePago, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
+                            MsgError = "No se pudo insertar la póliza"
+                        End If
+                    End If
                End If

            Case "2" 'FyE
--- a/Bancos/Transferencias.aspx
+++ b/Bancos/Transferencias.aspx
@@ -30,7 +30,7 @@
                            <tr>
                                <td>Tipo Movimiento:</td>
                                <td>
-                                    <asp:DropDownList ID="DdlTipoMovto" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true" Width="400px" ValidationGroup="GrpGuardar">
+                                    <asp:DropDownList ID="DdlTipoMovto" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true" Width="400px"    >
                                        <asp:ListItem Value="1">Cheque Emitido</asp:ListItem>
                                        <asp:ListItem Value="2" Selected="True">Transferencia Bancaria</asp:ListItem>
                                    </asp:DropDownList>
@@ -127,7 +127,12 @@
                            <tr id="trPagueseA">
                                <td>Paguese</td>
                                <td>
-                                    <asp:TextBox ID="TxtPaguese" CssClass="form-control input-sm " runat="server" Width="100%"></asp:TextBox></td>
+                                    <asp:TextBox ID="TxtPaguese" CssClass="form-control input-sm " runat="server" Width="100%"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RFVTxtPaguese" runat="server" ControlToValidate="TxtPaguese" CssClass="help-block errorimput"  Visible="false" Display="Dynamic"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Paguese''</b> es necesario, por favor ingr<67>selo." 
+                                        ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                </td>
+
                            </tr>
                            <tr>
                                <td>Observaciones:</td>
@@ -138,7 +143,7 @@
                            <tr>
                                <br />
                                <td colspan="2" style="text-align: center;">
-                                    <asp:Button ID="BtnGuardar" runat="server" Text="Aceptar" class="btn btn-primary" />
+                                    <asp:Button ID="BtnGuardar" runat="server" Text="Aceptar" class="btn btn-primary" ValidationGroup="GrpGuardar"  />
                                </td>
                            </tr>
                        </table>
--- a/Bancos/Transferencias.aspx.vb
+++ b/Bancos/Transferencias.aspx.vb
@@ -42,7 +42,9 @@ Partial Class Bancos_Transferencias
 #End Region

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
        If Not IsPostBack Then
+
            tCveMonedaOrigen = 0
            tCveMonedaDestino = 0
            If Request("OPC") IsNot Nothing AndAlso IsNumeric(Request("OPC")) Then
@@ -70,6 +72,8 @@ Partial Class Bancos_Transferencias

            TxtFechaDocumento.Text = Now.ToShortDateString

+            DdlTipoMovto_SelectedIndexChanged(Nothing, Nothing)
+
        End If
    End Sub

@@ -281,20 +285,26 @@ Partial Class Bancos_Transferencias
            Observaciones = TxtObservaciones.Text.Trim
        End If

-        If Opcion = 1 Then
+
+        If Opcion = 1 Then 'ESTO ES TRANSFERENCIA ENTRE
            CveIE = ObjIE.AddBancos_IE(DdlCuentaDestino.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, CuentaDestino, ImporteMXOrigen, CveMonedaOrigen, TipoCambio, Observaciones, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
            CveIEDestino = CveIE
        Else
+
            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                FolioDestino = TxtFolio.Text.Trim
                If TxtPaguese.Text.Trim <> "" Then
                    CuentaDestino = TxtPaguese.Text.Trim
                End If
-
+            Else
+                If DdlTipoMovto.SelectedValue.ToEntero = 1 Then
+                    CuentaDestino = TxtPaguese.Text.Trim
+                End If
            End If

            CveIE = ObjIE.AddBancos_IE(DdlCuentaOrigen.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, CuentaDestino, TxtImporte.Text.Trim.ToDouble, CveMonedaOrigen, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
            CveIEDestino = ObjIE.AddBancos_IE(DdlCuentaDestino.SelectedValue.ToEntero, If(DdlTipoMovto.SelectedValue = "2", 8, 3), TxtFechaDocumento.Text.Trim.ToDate, FolioDestino, String.Format("Transferencia Cta: {0}", DdlCuentaOrigen.SelectedItem.Text), ImporteDestino, CveMonedaDestino, TipoCambio, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
        End If

        Dim CveIEDevolucion As Integer = -1
@@ -636,12 +646,21 @@ Partial Class Bancos_Transferencias

    Private Sub DdlTipoMovto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoMovto.SelectedIndexChanged

+        RFVTxtPaguese.Visible = False
+
        If Opcion = 1 Then
            CargaFolio(DdlCuentaDestino.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
        Else
            CargaFolio(DdlCuentaOrigen.SelectedValue.ToEntero, DdlTipoMovto.SelectedValue.ToEntero)
+
+            If DdlTipoMovto.SelectedValue.ToEntero = 1 And Opcion <> 1 Then 'CHEQUE ACTIVA EL REQUIRED DE  TxtPaguese
+                RFVTxtPaguese.Visible = True
+            End If
+
        End If

+        UPPDatos.Update()
+
    End Sub

    Protected Sub RBLOpcion_SelectedIndexChanged(sender As Object, e As EventArgs)
--- a/CRM/RegPrePolizaS.aspx.vb
+++ b/CRM/RegPrePolizaS.aspx.vb
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -7,7 +7,7 @@ Imports System.Diagnostics
 Imports System.Globalization
 Imports System.IO
 Imports System.Threading.Tasks
-Imports Newtonsoft.Json
+Imports Newtonsoft.Jsonf
 Imports Extensiones
 Imports System.Activities.Expressions
 Imports iText.Barcodes.Dmcode
@@ -1853,6 +1853,7 @@ Partial Class Compras_Compras
                        'If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"

                        namespaces.AddNamespace(Prefijo, cfdVer)
+                        namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
                        namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
                        namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
                        namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
@@ -8106,7 +8107,7 @@ Partial Class Compras_Compras
                                    End If

                                    'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
-                                    If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
+                                    If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
                                        If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
                                            Dim CvePreComprobacion As Integer
                                            If ObjCompras.DtResultados.Rows.Count = 0 Then
@@ -9334,7 +9335,7 @@ Partial Class Compras_Compras
                    If (TxtRembolsoNumero.Text.Trim.Length > 0 AndAlso IdPoliza <= 0) AndAlso (NumeroReembolsoOriginal.Trim <> TxtRembolsoNumero.Text.Trim) Then

                        'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
-                        If UsuarioActual.CveEmpresa.Contiene(1, 119, 141) AndAlso TxtRembolsoNumero.Text.Trim <> "" AndAlso (DdlRembolsoPersonal.SelectedValue.ToEntero > 0 Or DdlRembolsoCajaChica.SelectedValue.ToEntero > 0) Then
+                        If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtRembolsoNumero.Text.Trim <> "" AndAlso (DdlRembolsoPersonal.SelectedValue.ToEntero > 0 Or DdlRembolsoCajaChica.SelectedValue.ToEntero > 0) Then
                            If ObjCompra.GetComprobacion(DdlRembolsoPersonal.SelectedValue.ToEntero, DdlRembolsoCajaChica.SelectedValue.ToEntero, TxtRembolsoNumero.Text.Trim, UsuarioActual.CveEmpresa) Then
                                Dim CvePreComprobacion As Integer
                                If ObjCompra.DtResultados.Rows.Count = 0 Then
@@ -20674,11 +20675,8 @@ Partial Class Compras_Compras

        TxtModalEliminarCompraDescripcion.Text = ""
        RegistraScript("$('#DvModalEliminarCompra').modal('show');")
-
        UpModalEliminarcompraCuerpo.Update()

-
-
    End Sub

    Protected Sub BtnModalEliminarCompra_Click(sender As Object, e As EventArgs)
@@ -20781,9 +20779,9 @@ Partial Class Compras_Compras
        SBEliminacionCompra.Append($"Capturó: {LblUsuarioCaptura.Text}, ")
        SBEliminacionCompra.Append($"F Captura: {LitFechCaptura.Text}, ")

-        SBEliminacionCompra.Append($"Dealles: ")
+        SBEliminacionCompra.Append($"Dealles:<br/>")
        For Each dRow As DataRow In TmpDT.Rows
-            SBEliminacionCompra.Append($"Cantidad: {dRow("Cantidad")}, PS: {dRow("PS")},  Obs: {dRow("Obs")}, Sub Proyecto: {dRow("SubProyecto")}, Tipo Gasto: {dRow("TipoGasto")}, IVA: {dRow("IVA").ToString.ToDecimal.ToString("###,###,###.00")}, IEPSPS: {dRow("IEPSPS").ToString.ToDecimal.ToString("###,###,###.00") }  ")
+            SBEliminacionCompra.Append($"-Cantidad: {dRow("Cantidad").ToString.ToDecimal().ToString("###,###,###.00") }, PS: {dRow("PS")},  Obs: {dRow("Obs")}, Sub Proyecto: {dRow("SubProyecto")}, Tipo Gasto: {dRow("TipoGasto")}, IVA: {dRow("IVA").ToString.ToDecimal.ToString("###,###,###.00")}, IEPSPS: {dRow("IEPSPS").ToString.ToDecimal.ToString("###,###,###.00") }<br/>")
        Next

        If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveCompra, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1,
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -2674,7 +2674,7 @@ Partial Class Compras_Proveedores
            End If
            If e.Row.RowIndex > 0 Then e.Row.FCLiteral("LtlAux").Text = String.Format("<a class=""Texto thickbox"" href=""/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxPProveedor&CveProveedor={0}&CveCompra={1}&TB_iframe=true&height=370&width=900"" />Ir</a>", CveProveedor, e.Row.DBCampo("CveCompra"))
            'DirectCast(e.Row.FindControl("ImgAbonar"), Image).Attributes.Add("onclick", String.Format("$get('HdnCveVenta').value='{0}';$get('HdnCveVentaAbono').value='{0}';$('#DivAddPago').show(1000);PosicionaObjeto('{1}', 'DivAddPago');", e.Row.DBCampo("CveCompra"), DirectCast(e.Row.FindControl("ImgAbonar"), Image).ClientID))
-            If e.Row.FCHyperLink("ImgAbonar") IsNot Nothing Then e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Bancos/PopIECompras.aspx?CveCompra={0}&TB_iframe=true&height=450&width=790", e.Row.DBCampo("CveCompra"))
+            If e.Row.FCHyperLink("ImgAbonar") IsNot Nothing Then e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Bancos/PopIECompras.aspx?CveCompra={0}&TB_iframe=true&height=510&width=800", e.Row.DBCampo("CveCompra"))

            If CType(sender, GridView).ID = "GvCxPHistorial" Then

--- a/Compras/RepNotasCredito.aspx
+++ b/Compras/RepNotasCredito.aspx
@@ -108,7 +108,7 @@
        <ContentTemplate>
            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Notas de Crédito" OnRowDataBound="GvDatos_RowDataBound"
                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None"
-                DataKeyNames="CveCompra,Saldo,CveIE,CveProveedor,CvePersonal,CveMoneda,CveTipoConcepto,IdCtaContProveedores,IdCtaContExtranjera,IdCtaContComplementaria,TipoCambio,CveSubProyecto">
+                DataKeyNames="CveCompra,Saldo,CveIE,CveProveedor,CvePersonal,CveMoneda,CveTipoConcepto,IdCtaContProveedores,IdCtaContExtranjera,IdCtaContComplementaria,TipoCambio,CveSubProyecto,SerieFolio">
                <Columns>
                    <asp:TemplateField ItemStyle-Width="2%">
                        <ItemTemplate>
--- a/Compras/RepNotasCredito.aspx.vb
+++ b/Compras/RepNotasCredito.aspx.vb
@@ -156,20 +156,19 @@ Partial Class Compras_RepNotasCredito
                'Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False)


-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -Importe, "", 18, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContable, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, ImporteMX:=-If(CveMoneda > 1 AndAlso UsaComplementaria, Importe, ImporteMN), ImporteME:=-If(CveMoneda > 1, Importe, 0), CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -Importe, gr.DataKey("SerieFolio"), 18, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContable, -1, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, ImporteMX:=-If(CveMoneda > 1 AndAlso UsaComplementaria, Importe, ImporteMN), ImporteME:=-If(CveMoneda > 1, Importe, 0), CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, TipoCambio:=TCCompra, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
                    MsgError = "Ocurrio un Error al saldar el movimiento"
                End If

                If UsaComplementaria AndAlso CveMoneda > 1 Then
                    ImporteComplementaria = (Importe * TCCompra - Importe).RoundSQL
                    IdCtaContableComplementaria = gr.DataKey("IdCtaContComplementaria").ToEntero
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -ImporteComplementaria, "", 235, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContableComplementaria, -1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, ImporteMX:=-ImporteComplementaria, ImporteME:=-Importe, TipoCambioPago:=TC, TipoCambio:=TCCompra) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, -ImporteComplementaria, "", 235, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContableComplementaria, -1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveCompraAmortizacion:=gr.DataKey("CveCompra").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, ImporteMX:=-ImporteComplementaria, ImporteME:=-Importe, TipoCambioPago:=TC, TipoCambio:=TCCompra) Then
                        MsgError = "Ocurrio un Error al saldar el movimiento"
                    End If
                End If

-                IdCtaContable = UsuarioActual.Empresa.Funcionalidad(266).ToString.ToEntero
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, "", 211, Concepto, TxtFechaSaldar.Text.ToDate, IdCtaContable, -1, gr.DataKey("CveIE").ToEntero, ImporteMX:=If(CveMoneda > 1, (Importe * TC), Importe).RoundSQL, CveCuenta:=-1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero) Then
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, gr.DataKey("SerieFolio"), 211, Concepto, TxtFechaSaldar.Text.ToDate, 0, -1, gr.DataKey("CveIE").ToEntero, ImporteMX:=If(CveMoneda > 1, (Importe * TC), Importe).RoundSQL, CveCuenta:=-1, CveCompra:=gr.DataKey("CveCompra").ToEntero, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero) Then
                    MsgError = "Ocurrio un Error al saldar el movimiento"
                End If

@@ -191,44 +190,45 @@ Partial Class Compras_RepNotasCredito
                        MsgError = "Ocurrio un Error al saldar el movimiento"
                    End If
                End If
-
-                If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
-                    If ObjConta.ValorPolizaDescuadre > 0 Then
-                        MsgError = ObjConta.MensajePolizaDescuadre
-                        GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                    End If
-                End If
-
-                If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
-                    If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                        If MensajeAlert.ToString = "" Then
-                            MensajeAlert.AppendFormat("Los siguientes movimientos fueron saldados correctamente: <br/>")
-                        End If
-                        MensajeAlert.AppendFormat("<ul><li><a Class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Poliza {1}</a></li></ul>", ObjConta.ContaIdPoliza, ObjConta.ContaFolio)
-                    End If
-                End If
-
+                 
                If MsgError <> "" Then Exit For

            End If
        Next

-
        If MsgError = "" Then
-            ObjConta.Commit()
-            If MensajeAlert.ToString <> "" Then
+            If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
+                If ObjConta.ValorPolizaDescuadre > 0 Then
+                    MsgError = ObjConta.MensajePolizaDescuadre
+                    GuardaLogAD($"Ventas/Ventas-ProcesoPrePolizas | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                End If
+            End If
+
+            If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
+                If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+                    If MensajeAlert.ToString = "" Then
+                        MensajeAlert.AppendFormat("Los siguientes movimientos fueron saldados correctamente: <br/>")
+                    End If
+                    MensajeAlert.AppendFormat("<ul><li><a Class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Poliza {1}</a></li></ul>", ObjConta.ContaIdPoliza, ObjConta.ContaFolio)
+                End If
+            End If
+
+            If MsgError = "" Then
+                ObjConta.Commit()
+                If MensajeAlert.ToString <> "" Then
+                    Alert(MensajeAlert.ToString)
+                Else
+                    Alert("Los movimientos fueron saldados correctamente.")
+                End If
                Alert(MensajeAlert.ToString)
+                CargaDatos()
+                HLSaldar.Visible = False
+                RegistraScript("$('#DivSaldar').modal('hide')")
+                LnkHabilitarSaldar.Visible = True
            Else
-                Alert("Los movimientos fueron saldados correctamente.")
+                ObjConta.RollBack()
+                Alert(MsgError, TipoMensaje.MsgError)
            End If
-            Alert(MensajeAlert.ToString)
-            CargaDatos()
-            HLSaldar.Visible = False
-            RegistraScript("$('#DivSaldar').modal('hide')")
-            LnkHabilitarSaldar.Visible = True
-        Else
-            ObjConta.RollBack()
-            Alert(MsgError, TipoMensaje.MsgError)
        End If
        ObjConta.Dispose()
    End Sub
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -578,14 +578,17 @@
                            </div>
                            <div class="actions">
                                <div class="btn-group">
+
+                                    <asp:LinkButton ID="BtnMostrar" runat="server" Text="Mostrar" class="btn btn-primary" />
+                                    <asp:LinkButton ID="BtnOcultar" Visible="false" runat="server" Text="Ocultar" class="btn btn-primary" />
+
                                </div>
                            </div>
                        </div>
                        <div class="portlet-body">
                            <div class="row">
                                <div class="col-md-12" align="right">
-                                    <asp:Button ID="BtnMostrar" runat="server" Text="Mostrar" class="btn btn-primary" />
-                                    <asp:Button ID="BtnOcultar" Visible="false" runat="server" Text="Ocultar" class="btn btn-primary" />
+                                    
                                </div>
                            </div>
                            <br />
@@ -596,7 +599,13 @@
                                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
                                        </ItemTemplate>
                                    </asp:TemplateField>
-                                    <asp:BoundField DataField="Id_Clave" HeaderText="Folio / Proveedor" ItemStyle-HorizontalAlign="Left" />
+
+                                    <asp:TemplateField HeaderText="Folio / Proveedor" ItemStyle-HorizontalAlign="Left">
+                                        <ItemTemplate>
+                                            <asp:Label ID="LblId_Clave" runat="server" Text='<%# Eval("Id_Clave") %>'></asp:Label>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    
                                    <asp:BoundField DataField="Descripcion" HeaderText="Descripcion" ItemStyle-HorizontalAlign="Left" />
                                    <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
                                </Columns>
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -1907,6 +1907,7 @@ Partial Class Compras_eFacturas
                    cfdVer = "http://www.sat.gob.mx/cfd/2"
                End If
                namespaces.AddNamespace(Prefijo, cfdVer)
+                namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
                namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
                namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
                namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
@@ -1963,6 +1964,7 @@ Partial Class Compras_eFacturas
            cfdVer = "http://www.sat.gob.mx/cfd/2"
        End If
        namespaces.AddNamespace(Prefijo, cfdVer)
+        namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
        namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
        namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
        namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
@@ -2180,6 +2182,7 @@ Partial Class Compras_eFacturas
            cfdVer = "http://www.sat.gob.mx/cfd/2"
        End If
        namespaces.AddNamespace(Prefijo, cfdVer)
+        namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
        namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
        namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
        namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
@@ -3302,6 +3305,7 @@ Partial Class Compras_eFacturas
            End If


+            namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
            namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")


@@ -4498,6 +4502,7 @@ Partial Class Compras_eFacturas
                Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)

                namespaces.AddNamespace(XMLDoc.DocumentElement.Prefix, "http://www.sat.gob.mx/cfd/3")
+                namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
                namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
                namespaces.AddNamespace("pago10", "http://www.sat.gob.mx/Pagos")
                nodeComp = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", XMLDoc.DocumentElement.Prefix), namespaces)
--- a/Empresas/13/Formatos/Factura.rdlc
+++ b/Empresas/13/Formatos/Factura.rdlc
--- a/Empresas/76/Formatos/Factura.rdlc
+++ b/Empresas/76/Formatos/Factura.rdlc
@@ -250,7 +250,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox3</rd:DefaultName>
            <Top>0.90692in</Top>
-            <Left>5.72826in</Left>
+            <Left>5.73259in</Left>
            <Height>0.5cm</Height>
            <Width>2.2in</Width>
            <Style>
@@ -314,7 +314,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox3</rd:DefaultName>
            <Top>0.45372in</Top>
-            <Left>5.72826in</Left>
+            <Left>5.73259in</Left>
            <Height>0.5cm</Height>
            <Width>2.2in</Width>
            <ZIndex>1</ZIndex>
@@ -365,7 +365,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox3</rd:DefaultName>
            <Top>0.21413in</Top>
-            <Left>5.72826in</Left>
+            <Left>5.73259in</Left>
            <Height>0.60856cm</Height>
            <Width>2.2in</Width>
            <ZIndex>2</ZIndex>
@@ -415,7 +415,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox3</rd:DefaultName>
            <Top>0.01474cm</Top>
-            <Left>5.72826in</Left>
+            <Left>5.73259in</Left>
            <Height>0.5cm</Height>
            <Width>2.2in</Width>
            <ZIndex>3</ZIndex>
@@ -481,7 +481,7 @@
              </Paragraph>
            </Paragraphs>
            <rd:DefaultName>Textbox4</rd:DefaultName>
-            <Left>1.77389in</Left>
+            <Left>1.77822in</Left>
            <Height>0.51102in</Height>
            <Width>3.9084in</Width>
            <ZIndex>4</ZIndex>
@@ -500,7 +500,7 @@
            <Value>LOGO</Value>
            <Sizing>FitProportional</Sizing>
            <Top>0.19995cm</Top>
-            <Left>0.13893cm</Left>
+            <Left>0.14992cm</Left>
            <Height>2.11686cm</Height>
            <Width>5.69451cm</Width>
            <ZIndex>5</ZIndex>
@@ -531,7 +531,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox3</rd:DefaultName>
            <Top>0.66099in</Top>
-            <Left>5.72826in</Left>
+            <Left>5.73259in</Left>
            <Height>0.25114in</Height>
            <Width>2.2in</Width>
            <ZIndex>6</ZIndex>
@@ -583,7 +583,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox3</rd:DefaultName>
            <Top>1.10364in</Top>
-            <Left>5.72826in</Left>
+            <Left>5.73259in</Left>
            <Height>0.25635in</Height>
            <Width>2.2in</Width>
            <ZIndex>7</ZIndex>
@@ -658,7 +658,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox10</rd:DefaultName>
            <Top>0.51102in</Top>
-            <Left>1.77389in</Left>
+            <Left>1.77822in</Left>
            <Height>0.65513in</Height>
            <Width>2.01842in</Width>
            <ZIndex>8</ZIndex>
@@ -708,7 +708,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox10</rd:DefaultName>
            <Top>0.51102in</Top>
-            <Left>3.79231in</Left>
+            <Left>3.79664in</Left>
            <Height>0.65513in</Height>
            <Width>1.88998in</Width>
            <ZIndex>9</ZIndex>
@@ -737,7 +737,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox19</rd:DefaultName>
            <Top>1.13777in</Top>
-            <Left>0.19516cm</Left>
+            <Left>0.20615cm</Left>
            <Height>0.22222in</Height>
            <Width>0.81128in</Width>
            <ZIndex>10</ZIndex>
@@ -779,7 +779,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox19</rd:DefaultName>
            <Top>1.13777in</Top>
-            <Left>0.88811in</Left>
+            <Left>0.89244in</Left>
            <Height>0.22222in</Height>
            <Width>4.84015in</Width>
            <ZIndex>11</ZIndex>
@@ -822,7 +822,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox19</rd:DefaultName>
            <Top>1.35478in</Top>
-            <Left>0.07683in</Left>
+            <Left>0.08116in</Left>
            <Height>0.23611in</Height>
            <Width>0.81128in</Width>
            <ZIndex>12</ZIndex>
@@ -865,7 +865,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox19</rd:DefaultName>
            <Top>1.35999in</Top>
-            <Left>0.88811in</Left>
+            <Left>0.89244in</Left>
            <Height>0.2309in</Height>
            <Width>7.0427in</Width>
            <ZIndex>13</ZIndex>
@@ -908,7 +908,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox19</rd:DefaultName>
            <Top>1.59089in</Top>
-            <Left>0.07683in</Left>
+            <Left>0.08116in</Left>
            <Height>0.23611in</Height>
            <Width>0.81128in</Width>
            <ZIndex>14</ZIndex>
@@ -950,7 +950,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox19</rd:DefaultName>
            <Top>1.59089in</Top>
-            <Left>0.88811in</Left>
+            <Left>0.89244in</Left>
            <Height>0.23611in</Height>
            <Width>2.56955in</Width>
            <ZIndex>15</ZIndex>
@@ -976,389 +976,6 @@
          </Textbox>
          <Rectangle Name="Rectangle1">
            <ReportItems>
-              <Textbox Name="Textbox77">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value>P A G A R E con Folio </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>=Parameters!Serie.Value</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>-</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>=Parameters!Folio.Value</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de VALPA SUPERVISIONES SA DE CV, a su vencimiento  el  </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>=Parameters!Vencimiento.Value</Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>, en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>=Parameters!Total.Value</Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value> SON: ( </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>=Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value)</Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value> ). Valor recibido a mi (nuestra) entera satisfacción. la falta de pago de éste documento a su vencimiento dará derecho a VALPA SUPERVISIONES SA DE CV o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a  </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>=CDATE(Parameters!Fecha.Value).ToString("dd/MM/yyyy")</Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value xml:space="preserve"> </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value />
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value xml:space="preserve">  </Value>
-                        <Style>
-                          <FontStyle>Normal</FontStyle>
-                          <FontFamily>ARIAL</FontFamily>
-                          <FontSize>7pt</FontSize>
-                          <FontWeight>Normal</FontWeight>
-                          <Format>dd/MM/yyyy</Format>
-                          <TextDecoration>None</TextDecoration>
-                          <Color>#000000</Color>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>Textbox75</rd:DefaultName>
-                <Top>0.18503in</Top>
-                <Left>0.06904in</Left>
-                <Height>0.64213in</Height>
-                <Width>7.82181in</Width>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
-              <Textbox Name="Textbox64">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value>Nombre:</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>Textbox64</rd:DefaultName>
-                <Top>0.82716in</Top>
-                <Left>0.12614cm</Left>
-                <Height>0.25in</Height>
-                <Width>0.6875in</Width>
-                <ZIndex>1</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
-              <Textbox Name="Textbox65">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value>Dirección:</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7.5pt</FontSize>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>Textbox64</rd:DefaultName>
-                <Top>1.07716in</Top>
-                <Left>0.12614cm</Left>
-                <Height>0.26414in</Height>
-                <Width>0.6875in</Width>
-                <ZIndex>2</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
-              <Textbox Name="Textbox66">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value>=Parameters!ClienteNombre.Value</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7pt</FontSize>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>Textbox66</rd:DefaultName>
-                <Top>0.82716in</Top>
-                <Left>0.76004in</Left>
-                <Height>0.25in</Height>
-                <Width>5.10049in</Width>
-                <ZIndex>3</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
-              <Textbox Name="Textbox67">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value>=Parameters!ClienteDireccion.Value</Value>
-                        <Style>
-                          <FontFamily>calibri</FontFamily>
-                          <FontSize>7pt</FontSize>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>Textbox66</rd:DefaultName>
-                <Top>1.09105in</Top>
-                <Left>0.76004in</Left>
-                <Height>0.25in</Height>
-                <Width>5.10049in</Width>
-                <ZIndex>4</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
-              <Textbox Name="Textbox69">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value>Acepto de conformidad</Value>
-                        <Style>
-                          <FontSize>8pt</FontSize>
-                          <FontWeight>Bold</FontWeight>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style />
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>Textbox69</rd:DefaultName>
-                <Top>1.2in</Top>
-                <Left>6.20737in</Left>
-                <Height>0.25in</Height>
-                <Width>1.4375in</Width>
-                <ZIndex>5</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
-              <Line Name="Line1">
-                <Top>3.15cm</Top>
-                <Left>15.1696cm</Left>
-                <Height>0cm</Height>
-                <Width>4.87315cm</Width>
-                <ZIndex>6</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>Solid</Style>
-                  </Border>
-                </Style>
-              </Line>
              <Rectangle Name="Rectangle5">
                <ReportItems>
                  <Textbox Name="Textbox75">
@@ -1533,10 +1150,8 @@
                  </Textbox>
                </ReportItems>
                <KeepTogether>true</KeepTogether>
-                <Top>3.58328cm</Top>
                <Height>1.82156cm</Height>
                <Width>20.12951cm</Width>
-                <ZIndex>7</ZIndex>
                <Visibility>
                  <Hidden>=Microsoft.VisualBasic.Interaction.iif(Parameters!TipoRelacionTexto.Value &lt;&gt; "" Or Parameters!FolioFiscalRelacionado.Value &lt;&gt; "", False, True)</Hidden>
                </Visibility>
@@ -1573,11 +1188,11 @@
                  </Paragraph>
                </Paragraphs>
                <rd:DefaultName>Textbox5</rd:DefaultName>
-                <Top>5.54595cm</Top>
+                <Top>1.96267cm</Top>
                <Left>15.89718cm</Left>
                <Height>0.49387cm</Height>
                <Width>4.14557cm</Width>
-                <ZIndex>8</ZIndex>
+                <ZIndex>1</ZIndex>
                <Style>
                  <Border>
                    <Style>None</Style>
@@ -1590,8 +1205,8 @@
              </Textbox>
            </ReportItems>
            <KeepTogether>true</KeepTogether>
-            <Top>17.24694cm</Top>
-            <Height>6.03982cm</Height>
+            <Top>17.27869cm</Top>
+            <Height>2.45654cm</Height>
            <Width>20.18336cm</Width>
            <ZIndex>16</ZIndex>
            <Visibility>
@@ -1602,7 +1217,7 @@
                <Style>None</Style>
              </Border>
              <TopBorder>
-                <Style>Dotted</Style>
+                <Style>None</Style>
                <Width>1.5pt</Width>
              </TopBorder>
            </Style>
@@ -1636,7 +1251,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox19</rd:DefaultName>
            <Top>1.60478in</Top>
-            <Left>6.03032in</Left>
+            <Left>6.03465in</Left>
            <Height>0.22222in</Height>
            <Width>1.89794in</Width>
            <ZIndex>17</ZIndex>
@@ -2462,7 +2077,7 @@
                                <Paragraph>
                                  <TextRuns>
                                    <TextRun>
-                                      <Value>=Parameters!Moneda.Value</Value>
+                                      <Value>=IIF(Parameters!Moneda.Value="Pesos", "Peso Mexicano",Parameters!Moneda.Value)</Value>
                                      <Style>
                                        <FontFamily>Calibri</FontFamily>
                                        <FontSize>9pt</FontSize>
@@ -2485,6 +2100,7 @@
                                <PaddingBottom>2pt</PaddingBottom>
                              </Style>
                            </Textbox>
+                            <rd:Selected>true</rd:Selected>
                          </CellContents>
                        </TablixCell>
                      </TablixCells>
@@ -2593,7 +2209,7 @@
            </ReportItems>
            <KeepTogether>true</KeepTogether>
            <Top>6.48302cm</Top>
-            <Left>0.17537cm</Left>
+            <Left>0.18636cm</Left>
            <Height>7.01685cm</Height>
            <Width>20.00799cm</Width>
            <ZIndex>18</ZIndex>
@@ -3107,7 +2723,7 @@
            </ReportItems>
            <KeepTogether>true</KeepTogether>
            <Top>13.60571cm</Top>
-            <Left>0.17537cm</Left>
+            <Left>0.18636cm</Left>
            <Height>3.53187cm</Height>
            <Width>20.00799cm</Width>
            <ZIndex>19</ZIndex>
@@ -4522,9 +4138,9 @@
            </TablixRowHierarchy>
            <DataSetName>DsOC</DataSetName>
            <Top>4.62939cm</Top>
-            <Left>0.17537cm</Left>
+            <Left>0.18636cm</Left>
            <Height>1.75603cm</Height>
-            <Width>19.86738cm</Width>
+            <Width>19.86739cm</Width>
            <ZIndex>20</ZIndex>
            <Style>
              <Border>
@@ -4549,7 +4165,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox19</rd:DefaultName>
            <Top>1.59089in</Top>
-            <Left>4.13348in</Left>
+            <Left>4.13781in</Left>
            <Height>0.23611in</Height>
            <Width>1.89684in</Width>
            <ZIndex>21</ZIndex>
@@ -4596,7 +4212,7 @@
            </Paragraphs>
            <rd:DefaultName>Textbox19</rd:DefaultName>
            <Top>1.59089in</Top>
-            <Left>3.45766in</Left>
+            <Left>3.46199in</Left>
            <Height>0.23611in</Height>
            <Width>0.642in</Width>
            <ZIndex>22</ZIndex>
@@ -4617,10 +4233,10 @@
            </Style>
          </Textbox>
        </ReportItems>
-        <Height>23.28676cm</Height>
+        <Height>19.73523cm</Height>
        <Style />
      </Body>
-      <Width>20.18336cm</Width>
+      <Width>20.19435cm</Width>
      <Page>
        <PageFooter>
          <Height>0.79403cm</Height>
@@ -4648,7 +4264,7 @@
              </Paragraphs>
              <rd:DefaultName>Textbox3</rd:DefaultName>
              <Top>0.03528cm</Top>
-              <Left>16.2244cm</Left>
+              <Left>16.23539cm</Left>
              <Height>0.6cm</Height>
              <Width>3.95896cm</Width>
              <Style>
--- a/Nomina/ChecadorAsistencia.aspx
+++ b/Nomina/ChecadorAsistencia.aspx
@@ -49,6 +49,7 @@
    </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Asistencia Cheador
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
--- a/RH/ChecadorAsistencia.aspx
+++ b/RH/ChecadorAsistencia.aspx
@@ -5,7 +5,7 @@
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
-    ASistencia Cheador
+    Asistencia Cheador
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
 </asp:Content>
--- a/TareasProgramadas/Tareas119.ashx
+++ b/TareasProgramadas/Tareas119.ashx
@@ -26,7 +26,7 @@ public class TareasJam : IHttpHandler
        switch (Metodo)
        {
            case "TestConexion":
-                retorno  = PruebaConexionFTP("ftp://thalamus.exavault.com", "agrojam", "A12345678");
+                retorno  = PruebaConexionFTP("ftp://ftp.thalamuslive.com", "agrojam", "A12345678");
                break;
            case "EjecutaThalamus":

@@ -112,7 +112,7 @@ public class TareasJam : IHttpHandler
        //string FTPPass = "agj-3500";


-        string FTPServer = "ftp://thalamus.exavault.com";
+        string FTPServer = "ftp://ftp.thalamuslive.com";
        string TFPUsr = "agrojam";
        string FTPPass = "A12345678";

@@ -677,7 +677,7 @@ public class TareasJam : IHttpHandler
    {
        bool Respuesta = false;

-        FtpWebRequest request =(FtpWebRequest)WebRequest.Create($"{FTPServer}/Test.log");
+        FtpWebRequest request =(FtpWebRequest)WebRequest.Create($"{FTPServer}/clientes/Test.xlsx");
        request.Method = WebRequestMethods.Ftp.ListDirectory;

        request.Credentials = new NetworkCredential(FTPUsr, FTPPass);
--- a/Ventas/CatUnidadesMedida.aspx.vb
+++ b/Ventas/CatUnidadesMedida.aspx.vb
@@ -31,7 +31,7 @@ Partial Class CatUnidadesMedida

        Dim ObjUnidadesMedida As New ClsUnidadesMedida
        If ObjUnidadesMedida.GetUnidadesMedida(UsuarioActual.CveEmpresa) Then
-            GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
+            GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
            ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            GvDatos.DataSource = ViewState("DTUnidadesMedida")
            GvDatos.DataBind()
@@ -293,7 +293,7 @@ Partial Class CatUnidadesMedida
            If ObjUnidadesMedida.UpdateUnidadMedida(TxtUnidadMedida.Text.Trim, TxtAbreviatura.Text.Trim, "", "", "", CBool(Estatus),
                                                        UsuarioActual.CveUsuario, HdnID.Value.ToEntero, DdlSATUnidadMedida.SelectedValue.ToEntero) Then
                GvDatos.EditIndex = -1
-                GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
+                GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
                ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
                Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
            End If