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

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

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>

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)

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,

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
 

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>

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, 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
-                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
                     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 ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
-            If MensajeAlert.ToString <> "" 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

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>

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)

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>
+            <Top>17.27869cm</Top>
-            <Height>6.03982cm</Height>
+            <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>

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>

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>

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);

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