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

App_Code/ClsNominas.vb

@@ -2397,7 +2397,7 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-    Public Function GetNominaEmpleadoSimulador(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, SalarioDiario As Decimal) As Boolean
+    Public Function GetNominaEmpleadoSimulador(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, SalarioDiario As Decimal, CveTipoTrabajador As Integer) As Boolean
         Dim retorno As Boolean = False
         Try
             DTSet = New DataSet()
@@ -2410,6 +2410,7 @@ Public Class ClsNominas
                 .Add("@Agrupador", SqlDbType.VarChar).Value = Agrupador
                 .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
                 .Add("@SalarioDiario", SqlDbType.Decimal).Value = SalarioDiario
+                .Add("@CveTipoTrabajador", SqlDbType.Decimal).Value = CveTipoTrabajador
             End With
 
 

App_Code/ClsRH.vb

@@ -858,7 +858,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 
         Return Retorno
     End Function
-    Public Function UpdateEstatusPersonal(EstatusPersonal As String, Estatus As Boolean, CveEstatusPersonal As Integer) As Boolean
+    Public Function UpdateEstatusPersonal(EstatusPersonal As String, Estatus As Boolean, CveEstatusPersonal As Integer, CveUsuario As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_RH_EstatusPersonalUpdate")
@@ -867,6 +867,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@EstatusPersonal", SqlDbType.VarChar).Value = EstatusPersonal
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
         End With
 
         Try
@@ -1939,7 +1940,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
         CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1,
-        Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1) As Boolean
+        Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         Dim noguardoXcurp = False
@@ -2028,6 +2029,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte
             .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
             .Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado
+            .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
 
 
 
@@ -2073,7 +2075,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
         Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1,
-        Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1) As Boolean
+        Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -2168,6 +2170,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte
             .Add("@EsReserva", SqlDbType.Int).Value = EsReserva
             .Add("@Fiscalizable", SqlDbType.Int).Value = Fiscalizable
+            .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
 
         End With
 
@@ -2452,12 +2455,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
-    Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean, Optional Observaciones As String = "") As Boolean
+    Public Function UpPersonalAltas(CvePersonal As Integer, CveUsuario As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean, Optional Observaciones As String = "") As Boolean
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_RH_PersonalAltasUp")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@fechaInicio", SqlDbType.VarChar).Value = fechaInicio
             .Add("@fechaFin", SqlDbType.VarChar).Value = fechaFin
             .Add("@CvePeriodoFiniquito", SqlDbType.Int).Value = CvePeriodoFiniquito
@@ -2757,13 +2761,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
-    Public Function AddAsistenciaMasiva2(CvePeriodo As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AddAsistenciaMasiva2(CvePeriodo As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveTipoTrabajador As Integer) As Boolean
 
         Dim Retorno As Boolean = False
         Data = New DataTable
-        SqlDataAdapter("PA_RH_PersonalAsistenciasMasivaAddUpd2")
+        SqlDataAdapter("PA_RH_PersonalAsistenciasMasivas")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
+            .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
@@ -7578,7 +7583,69 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
-
+#Region "TipoTrabajador"
+#Region "CRUD_TiposTrabajador"
+    Public Function TiposTrabajadorGet(cveTipoTrabajador As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_RH_TiposTrabajadorGet", CommandType.StoredProcedure)
+        addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los tipos trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function TiposTrabajadorAdd(tipoTrabajador As String, estatus As Boolean, fechaIng As DateTime, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_RH_TiposTrabajadorAdd", CommandType.StoredProcedure)
+        addParameters("@TipoTrabajador", SqlDbType.VarChar, tipoTrabajador)
+        addParameters("@Estatus", SqlDbType.Bit, estatus)
+        addParameters("@CveUsuario", SqlDbType.Int, cveUsuario)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el tipo trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function TiposTrabajadorUp(cveTipoTrabajador As Int32, tipoTrabajador As String, estatus As Boolean, fechaIng As DateTime, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_RH_TiposTrabajadorUp", CommandType.StoredProcedure)
+        addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador)
+        addParameters("@TipoTrabajador", SqlDbType.VarChar, tipoTrabajador)
+        addParameters("@Estatus", SqlDbType.Bit, estatus)
+        addParameters("@CveUsuario", SqlDbType.Int, cveUsuario)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el tipo trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function TiposTrabajadorRemove(cveTipoTrabajador As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_RH_TiposTrabajadorRemove", CommandType.StoredProcedure)
+        addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador)
+        addParameters("@CveUsuario", SqlDbType.Int, cveUsuario)
+        addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa)
+        retorno = RunQuery("Ocurrió un error al eliminar el TiposTrabajador.")
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el tipo trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+#End Region
+#End Region
 
     'Public msgsError As New StringBuilder()
     'Public Sub OnError(Mensaje As String, Exeption As Exception, Optional InfoAdicional As String = "")

App_Code/Modelos.vb

@@ -2175,16 +2175,10 @@ Namespace Modelos
                     Resultado = False
                 Else
 
+                    Dim ImporteConcepto As Decimal = 0
 
                     For Each Dr As DataRow In factura.DtMovimientosUsados.Rows
 
-                        Dim ImporteConcepto As Decimal = 0
-                        If factura.CveConceptoMovimiento = 42 AndAlso factura.CveMoneda = 2 Then
-                            ImporteConcepto = Dr("PU").ToString.ToDecimal * GlobalTipoCambio(factura.Fecha).ToDecimal
-                        Else
-                            ImporteConcepto = Dr("PU").ToString.ToDecimal
-                        End If
-
                         If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                             'Mensaje = "Error al guardar los movimientos"
                             Resultado = False
@@ -2230,7 +2224,7 @@ Namespace Modelos
 
         End Function
 
-        Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, Optional GenerarPrePoliza As Boolean = True) As Integer
+        Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, Optional GenerarPrePoliza As Boolean = True, Optional Contabilizable As Boolean = True) As Integer
             Dim CveMovimiento As Integer = -1
             Try
                 Dim CveConceptoSalidaUsado As Integer = 45
@@ -2264,13 +2258,13 @@ Namespace Modelos
                             For Each RowInv As DataRow In DtMovimientosEntrada.Rows
                                 ValorInventario = DtMovimientosEntrada.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
 
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, -ValorInventario, -ValorInventario, tCveConcepto, Concepto, Concepto, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=tCveSubProyecto) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, -ValorInventario, -ValorInventario, tCveConcepto, Concepto, Concepto, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, CveSubProyecto:=tCveSubProyecto, Contabilizable:=Contabilizable) Then
                                     CveMovimiento = -1
                                     Exit For
                                 End If
                             Next
 
-                            If CveMovimiento > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, -DtMovimientosEntrada.SUMD("Total").RoundSQL, -DtMovimientosEntrada.SUMD("Total").RoundSQL, 68, Concepto, Concepto, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento) Then
+                            If CveMovimiento > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, -DtMovimientosEntrada.SUMD("Total").RoundSQL, -DtMovimientosEntrada.SUMD("Total").RoundSQL, 68, Concepto, Concepto, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, Contabilizable:=Contabilizable) Then
                                 CveMovimiento = -1
                             End If
                         End If
@@ -2572,7 +2566,17 @@ Namespace Modelos
                                         Else
                                             CveMovimientoReferencia = CveMovimiento
                                         End If
-                                        If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, 0, Referencia, 68, Concepto, FechaMovimiento, 0, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoReferencia, ImporteMX:=0, Contabilizable:=False) Then
+
+                                        If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then
+                                            Dim Importe68 As Decimal = 0
+
+                                            Dim IdCtaContable68 = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero
+
+                                            If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe68, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable68, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoReferencia, ImporteMX:=Importe68, Contabilizable:=False) Then
+                                                ErrorPrepoliza = True
+                                            End If
+
+                                        Else
                                             ErrorPrepoliza = True
                                         End If
                                     End If
@@ -5677,7 +5681,7 @@ Namespace Modelos
                                                     End If
 
                                                     If Not ErrorCancelar AndAlso CveMovimientoUsado > 0 AndAlso SaldoAlmacenUsados <> 0 Then
-                                                        If CancelarInventarioUsado(ObjRemision, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta) <= 0 Then
+                                                        If CancelarInventarioUsado(ObjRemision, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta, Contabilizable:=False) <= 0 Then
                                                             ErrorCancelar = True
                                                             MensajeError = "Ocurrió un error al cancelar los usados. Por favor vuelva a intentar."
                                                         End If
@@ -5788,7 +5792,7 @@ Namespace Modelos
 
                                     'CANCELAR MOVIMIENTOS DE USADOS SI TIENE
                                     If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not ErrorCancelar AndAlso CveMovimientoUsado > 0 AndAlso SaldoAlmacenUsados <> 0 Then
-                                        If CancelarInventarioUsado(ObjFactura, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta) <= 0 Then
+                                        If CancelarInventarioUsado(ObjFactura, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta, Contabilizable:=False) <= 0 Then
                                             ErrorCancelar = True
                                             MensajeError = "Ocurrió un error al cancelar los movimientos de usados."
                                         End If
@@ -6854,8 +6858,6 @@ Namespace Modelos
         Public Property Version As String = ""
         Public Property Serie As String = ""
         Public Property Folio As Integer
-        Public Property CveMesa As Integer
-
         <ComponentModel.DataAnnotations.Schema.NotMapped>
         Public ReadOnly Property SerieFolio As String
             Get

App_Code/modExtensiones.vb

@@ -2232,11 +2232,11 @@ Namespace Extensiones
 
                 Dim IndexEndTable As Integer = GridView.Rows.Count + TotalRowHeader + TotalRowFooter
 
-                worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió"
+                worksheet.Rows(IndexEndTable).Cells(1).Value = "Usuario Imprimió"
-                worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre
+                worksheet.Rows(IndexEndTable + 1).Cells(1).Value = Usuario.Nombre
 
-                worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
+                worksheet.Rows(IndexEndTable).Cells(3).Value = "Fecha Impresión"
-                worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")
+                worksheet.Rows(IndexEndTable + 1).Cells(3).Value = DateTime.Now.ToString("dd/MM/yyyy")
 
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
 

Ashx/GenerarPDFFactura.ashx

@@ -200,6 +200,10 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
         parametros.Add(New ReportParameter("complemento_CadenaOriginal", objxml.complemento.CadenaOriginal))
         parametros.Add(New ReportParameter("Observaciones", datos.Factura.Observaciones))
 
+        If datos.CFDIVersion = "4.0" Then
+            rutaReporte = "Empresas\Grales\Formatos\FacturaSALI40.rdlc"
+            parametros.Add(New ReportParameter("receptor_RegimenFiscal", objxml.receptor.RegimenFiscalReceptorTexto))
+        End If
 
         Dim ds As New List(Of ReportDataSource)
 
@@ -479,6 +483,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
     End Class
 
     Public Class ParametroWS
+        Public Property CFDIVersion As String
         Public Property Factura As FacturaWS
         Public Property Cliente As ClienteWS
         Public Property Empresa As EmpresaWS

Bancos/PagoDeudor.aspx.cs

@@ -686,11 +686,12 @@ public partial class Bancos_PagoDeudor : ClsPaginas
                                       (Double)tipoCambio, TxtObservaciones.Text.Trim(), "", false, false, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
 
 
+            decimal ImporteMN=0;
 
             if (CveIE > 0)
             {
                 decimal Importe;
-                decimal ImporteMN;
+               
 
                 //GUARDA COMPROBANTE
                 if (!filemove.Equals(""))
@@ -834,6 +835,15 @@ public partial class Bancos_PagoDeudor : ClsPaginas
 
                 if (CveMoneda != 1 && UsaComplementaria)
                 {
+
+                    decimal difComplementaria = ImporteMN - (ImporteBanco + ImporteComplementaria);
+
+                    if (difComplementaria != 0)
+                    {
+                        ImporteComplementaria = difComplementaria > 0 ? (ImporteComplementaria+ difComplementaria) : (ImporteComplementaria- difComplementaria);
+                    }
+
+
                     if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, ImporteBanco, Ref, CveConceptoContableBancoComplementario, Conc, DateTime.Now, IDCtaContableBancosComplementario, -1, CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), ImporteMX: ImporteComplementaria, ImporteME: ImporteBanco, TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero()))
                     {
                         MsgError = "No se pudo insertar concepto de bancos complementaria";

Bancos/PopIECompras.aspx.vb

@@ -1464,7 +1464,7 @@ Partial Class Bancos_PopIECompras
             Case "5" 'Acreedores Diversos
                 ImportePagado = TxtImporte.Text.Trim.ToDecimal
                 CveConcepto = 17
-                CveConcepto2 = 41
+                CveConcepto2 = 56
                 CveProveedor2 = DdlAcreedor.SelectedValue.ToEntero
                 CveIE = -1
                 'verifica que se halla selccionado algun acreedor
@@ -1779,7 +1779,7 @@ Partial Class Bancos_PopIECompras
                                                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, TipoCambio:=If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion)) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
-
+                                                        '123456789
                                                         If CveMonedaCompra <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                             IdCtaContable = IdCtaContComplementaria
                                                             If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
@@ -2736,6 +2736,8 @@ Partial Class Bancos_PopIECompras
 
                                                         CveIE = rw.DataKey("CveIE").ToString.ToEntero
 
+                                                        ConceptoContable = If(CveMoneda <> 1, 346, 56)
+
                                                         IdCtaContable = CtaProveedorAcreedores
                                                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=tipoCambioPago) Then
                                                             MsgError = "No se pudo insertar la póliza"

Compras/Compras.aspx

@@ -3643,7 +3643,7 @@
             <!-- Modal content-->
             <div class="modal-content" style="width: 500px; margin-left: 50px;">
                 <div class="modal-header ">
-                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <%--<button type="button" class="close" data-dismiss="modal">&times;</button>--%>
                     <h4 class="modal-title">Impuestos en la Factura</h4>
                 </div>
 
@@ -3690,7 +3690,7 @@
                     <asp:UpdatePanel runat="server">
                         <ContentTemplate>
                             <asp:Button ID="BtnAgregarIEPS" OnClick="BtnAgregarIEPS_Click" runat="server" ClientIDMode="Static" Text="Agregar" ValidationGroup="GrpAgregar" CssClass="btn btn-primary" />
-                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                            <button type="button" class="btn btn-danger" data-dismiss="modal" runat="server" id="BtnCancelarotrosImpuestos" visible="false">Cancelar</button>
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>

Compras/Compras.aspx.vb

@@ -2359,7 +2359,15 @@ Partial Class Compras_Compras
         End If
 
         If TrasladoIEPS > 0 Or OtrosImpuestos > 0 Then
-            RegistraScript("$('#ModalIEPS').modal('show');")
+
+
+            If OtrosImpuestos > 0 Then
+                RegistraScript("$('#ModalIEPS').modal({ backdrop: 'static', keyboard: false },'show');")
+            Else
+                RegistraScript("$('#ModalIEPS').modal('show');")
+                BtnCancelarotrosImpuestos.Visible = True
+            End If
+
 
             If TrasladoIEPS > 0 Then
                 ChkIEPS.Visible = True
@@ -8627,6 +8635,7 @@ Partial Class Compras_Compras
                                         'vinculo la compra actual, y no la compra como si fuera nota de credito
                                         CveCompraNC = -1
                                         CveIE = gvr.DataKey("CveIE").ToEntero
+                                        CompraActual.IdCtaContableAnticipoProv = IdCtaContable
                                     Case "DD"
                                         CveConceptoCompra = If(CveMonedaAnticipo = 1, 37, 37)
                                         IdCtaContable = CtaProveedorDeudores
@@ -8637,10 +8646,9 @@ Partial Class Compras_Compras
 
                                 PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal
 
-                                Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo)
+
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), TipoCambio:=TipoCambioAnt, CveSubProyecto:=CveSubProyectoAnticipo) Then
+
-                                    ErrorMovtosCxP = 1
+
-                                End If
 
                                 If CveMonedaAnticipo > 1 Then
                                     Dim ImporteAntMN As Decimal = TipoCambioAnt * ImporteAnt - ImporteAnt

Contabilidad/RepAnexoCatalogo.aspx.vb

@@ -313,7 +313,17 @@ Partial Class AC_RepAnexoCatalogo
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString))
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+
         params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+
+
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}"))
+        Else
+            params.Add(New ReportParameter("pImg", ""))
+        End If
+
         params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
 
         ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)

Contabilidad2/RepAnexoCatalogo.aspx.vb

@@ -297,7 +297,14 @@ Partial Class AC2_RepAnexoCatalogo
         params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString))
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
         params.Add(New ReportParameter("usuarioImprimio", UsuarioActual.Nombre))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}"))
+        Else
+            params.Add(New ReportParameter("pImg", ""))
+        End If
+
         params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
         params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
 

Contabilidad2/RepAnexoCatalogoCC.aspx.vb

@@ -375,10 +375,10 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
         SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
         SbFiltros.AppendFormat("Estado de Resultados Horizontal por : {0}|", SubProyecto)
         SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
+        SbFiltros.AppendFormat("Periodo : {0}|", DdlPeriodo.SelectedItem.Text)
 
 
-        GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString())
+        GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", DatoTituloExtra:="", DatosFiltros:=SbFiltros.ToString())
-        'GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
 
     End Sub
 

Empresas/140/Formatos/Factura.mrt

@@ -176,20 +176,20 @@
     <Page1 Ref="7" type="Page" isKey="true">
       <Border>None;Black;2;Solid;False;4;Black</Border>
       <Brush>Transparent</Brush>
-      <Components isList="true" count="3">
+      <Components isList="true" count="4">
         <PageHeaderBand1 Ref="8" type="PageHeaderBand" isKey="true">
           <Brush>Transparent</Brush>
-          <ClientRectangle>0,0,21.1,5.4</ClientRectangle>
+          <ClientRectangle>0,0.4,21.1,5.4</ClientRectangle>
           <Components isList="true" count="1">
             <Panel4 Ref="9" type="Panel" isKey="true">
               <Brush>Transparent</Brush>
               <CanGrow>True</CanGrow>
               <CanShrink>True</CanShrink>
-              <ClientRectangle>0,0,21,6</ClientRectangle>
+              <ClientRectangle>0,0,21,5.6</ClientRectangle>
               <Components isList="true" count="14">
                 <Text5 Ref="10" type="Text" isKey="true">
                   <Brush>Transparent</Brush>
-                  <ClientRectangle>13,1.2,8,2.8</ClientRectangle>
+                  <ClientRectangle>13,1.2,8,2.6</ClientRectangle>
                   <Conditions isList="true" count="0" />
                   <Expressions isList="true" count="0" />
                   <Font>Myriad Pro,8,Regular,Point,False,0</Font>
@@ -223,7 +223,7 @@ Régimen fiscal: Regimen General de Ley Personas Morales
                   <Text>Facturado a:
 Cliente: {ClienteCodigo} - {ClienteNombre}
 RFC: {ClienteRFC}
-Calle: {ClienteCalle}
+Calle: {ClienteCalle} No.Ext:{ClienteNoExt}
 Colonia:  {ClienteColonia}
 Ciudad: {ClienteCiudad} Estado:  {ClienteEstado}
 Municipio y/o Delegación: {ClienteMunicipio} 
@@ -3457,7 +3457,7 @@ de Hermosillo SA de CV</Text>
                 <Textbox40 Ref="15" type="Text" isKey="true">
                   <Brush>Transparent</Brush>
                   <CanGrow>True</CanGrow>
-                  <ClientRectangle>12.6,4.12,8.43,1.42</ClientRectangle>
+                  <ClientRectangle>12,3.72,9.03,1.62</ClientRectangle>
                   <Conditions isList="true" count="0" />
                   <Expressions isList="true" count="0" />
                   <Font>Myriad Pro,6.7,Bold,Point,False,0</Font>
@@ -3475,7 +3475,7 @@ Vendedor: {VendedorNombre}</Text>
                 </Textbox40>
                 <Text4 Ref="16" type="Text" isKey="true">
                   <Brush>Transparent</Brush>
-                  <ClientRectangle>4,4,8.8,1.8</ClientRectangle>
+                  <ClientRectangle>4,4,8,1.4</ClientRectangle>
                   <Conditions isList="true" count="0" />
                   <Expressions isList="true" count="0" />
                   <Font>Myriad Pro,8,Regular,Point,False,0</Font>
@@ -3621,7 +3621,8 @@ de Hermosillo SA de CV</Text>
         </PageHeaderBand1>
         <PageFooterBand1 Ref="24" type="PageFooterBand" isKey="true">
           <Brush>Transparent</Brush>
-          <ClientRectangle>0,27,21.1,0.4</ClientRectangle>
+          <CanGrow>False</CanGrow>
+          <ClientRectangle>0,32.48,21.1,0.4</ClientRectangle>
           <Components isList="true" count="3">
             <Text35 Ref="25" type="Text" isKey="true">
               <Brush>Transparent</Brush>
@@ -3629,7 +3630,7 @@ de Hermosillo SA de CV</Text>
               <ClientRectangle>7.4,0,2.91,0.6</ClientRectangle>
               <Conditions isList="true" count="0" />
               <Expressions isList="true" count="0" />
-              <Font>Myriad Pro,8,Bold</Font>
+              <Font>Myriad Pro,8,Bold,Point,False,0</Font>
               <HorAlignment>Right</HorAlignment>
               <Margins>2,2,2,2</Margins>
               <Name>Text35</Name>
@@ -3644,7 +3645,7 @@ de Hermosillo SA de CV</Text>
               <ClientRectangle>10.31,0,4.89,0.6</ClientRectangle>
               <Conditions isList="true" count="0" />
               <Expressions isList="true" count="0" />
-              <Font>Myriad Pro,8</Font>
+              <Font>Myriad Pro,8,Regular,Point,False,0</Font>
               <Margins>2,2,2,2</Margins>
               <Name>Textbox37</Name>
               <Page isRef="7" />
@@ -3661,7 +3662,7 @@ de Hermosillo SA de CV</Text>
               <ClientRectangle>17.31,0,3.69,0.6</ClientRectangle>
               <Conditions isList="true" count="0" />
               <Expressions isList="true" count="0" />
-              <Font>Myriad Pro,8,Bold</Font>
+              <Font>Myriad Pro,8,Bold,Point,False,0</Font>
               <HorAlignment>Right</HorAlignment>
               <Margins>2,2,2,2</Margins>
               <Name>Text37</Name>
@@ -3683,14 +3684,14 @@ de Hermosillo SA de CV</Text>
         </PageFooterBand1>
         <Panel1 Ref="30" type="Panel" isKey="true">
           <Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
-          <Brush>Transparent</Brush>
+          <Brush>[255:255:0]</Brush>
           <CanGrow>True</CanGrow>
           <CanShrink>True</CanShrink>
-          <ClientRectangle>0,6.2,21,3.2</ClientRectangle>
+          <ClientRectangle>0,6.2,21.1,13.6</ClientRectangle>
           <Components isList="true" count="3">
             <HeaderBand1 Ref="31" type="HeaderBand" isKey="true">
               <Brush>Transparent</Brush>
-              <ClientRectangle>0,0,21,0.5</ClientRectangle>
+              <ClientRectangle>0,0.4,21.1,0.5</ClientRectangle>
               <Components isList="true" count="9">
                 <Textbox23 Ref="32" type="Text" isKey="true">
                   <Brush>[58:65:115]</Brush>
@@ -3840,7 +3841,7 @@ de Hermosillo SA de CV</Text>
               <Brush>Transparent</Brush>
               <BusinessObjectGuid isNull="true" />
               <CanShrink>True</CanShrink>
-              <ClientRectangle>0,0.5,21,0.42</ClientRectangle>
+              <ClientRectangle>0,1.7,21.1,0.42</ClientRectangle>
               <Components isList="true" count="9">
                 <Cantidad1 Ref="42" type="Text" isKey="true">
                   <Brush>Transparent</Brush>
@@ -4024,8 +4025,9 @@ de Hermosillo SA de CV</Text>
             </DataBand3>
             <FooterBand1 Ref="57" type="FooterBand" isKey="true">
               <Brush>Transparent</Brush>
-              <ClientRectangle>0,0.92,21,16.8</ClientRectangle>
+              <CanBreak>True</CanBreak>
-              <Components isList="true" count="15">
+              <ClientRectangle>0,2.92,21.1,10.6</ClientRectangle>
+              <Components isList="true" count="14">
                 <Panel3 Ref="58" type="Panel" isKey="true">
                   <Border>Bottom;Transparent;5;Solid;False;4;Black;True</Border>
                   <Brush>Transparent</Brush>
@@ -4037,7 +4039,7 @@ de Hermosillo SA de CV</Text>
                       <Border>None;[247:150:70];1;Solid;False;8;[247:150:70]</Border>
                       <Brush>Transparent</Brush>
                       <BusinessObjectGuid isNull="true" />
-                      <ClientRectangle>0,0,5.2,0.4</ClientRectangle>
+                      <ClientRectangle>0,0.4,5.2,0.4</ClientRectangle>
                       <Components isList="true" count="2">
                         <Text2 Ref="60" type="Text" isKey="true">
                           <Brush>Transparent</Brush>
@@ -4109,7 +4111,6 @@ de Hermosillo SA de CV</Text>
                   <Name>Text21</Name>
                   <Page isRef="7" />
                   <Parent isRef="57" />
-                  <PrintOn>OnlyLastPage</PrintOn>
                   <TextBrush>Black</TextBrush>
                 </Text21>
                 <Text6 Ref="64" type="Text" isKey="true">
@@ -4126,7 +4127,6 @@ de Hermosillo SA de CV</Text>
                   <Name>Text6</Name>
                   <Page isRef="7" />
                   <Parent isRef="57" />
-                  <PrintOn>OnlyLastPage</PrintOn>
                   <Text>{ImporteLetra}</Text>
                   <TextBrush>Black</TextBrush>
                   <Type>Expression</Type>
@@ -4138,7 +4138,7 @@ de Hermosillo SA de CV</Text>
                   <Components isList="true" count="2">
                     <HeaderBand2 Ref="66" type="HeaderBand" isKey="true">
                       <Brush>Transparent</Brush>
-                      <ClientRectangle>0,0,5.2,0.6</ClientRectangle>
+                      <ClientRectangle>0,0.4,5.2,0.4</ClientRectangle>
                       <Components isList="true" count="3">
                         <Textbox25 Ref="67" type="Text" isKey="true">
                           <Brush>[58:65:115]</Brush>
@@ -4195,7 +4195,7 @@ de Hermosillo SA de CV</Text>
                     <DataBand8 Ref="70" type="DataBand" isKey="true">
                       <Brush>Transparent</Brush>
                       <BusinessObjectGuid isNull="true" />
-                      <ClientRectangle>0,0.6,5.2,0</ClientRectangle>
+                      <ClientRectangle>0,1.6,5.2,0</ClientRectangle>
                       <Components isList="true" count="3">
                         <Cantidad2 Ref="71" type="Text" isKey="true">
                           <Brush>Transparent</Brush>
@@ -4256,7 +4256,6 @@ de Hermosillo SA de CV</Text>
                       <Name>DataBand8</Name>
                       <Page isRef="7" />
                       <Parent isRef="65" />
-                      <PrintOn>OnlyLastPage</PrintOn>
                       <Sort isList="true" count="0" />
                     </DataBand8>
                   </Components>
@@ -4265,7 +4264,6 @@ de Hermosillo SA de CV</Text>
                   <Name>Panel2</Name>
                   <Page isRef="7" />
                   <Parent isRef="57" />
-                  <PrintOn>OnlyLastPage</PrintOn>
                 </Panel2>
                 <Text23 Ref="75" type="Text" isKey="true">
                   <Brush>Transparent</Brush>
@@ -4294,7 +4292,6 @@ de Hermosillo SA de CV</Text>
                   <Name>Text7</Name>
                   <Page isRef="7" />
                   <Parent isRef="57" />
-                  <PrintOn>OnlyLastPage</PrintOn>
                   <TextBrush>Black</TextBrush>
                 </Text7>
                 <Textbox48 Ref="77" type="Text" isKey="true">
@@ -4404,18 +4401,14 @@ Sello digital  del SAT:
                   <Name>Panel5</Name>
                   <Page isRef="7" />
                   <Parent isRef="57" />
-                  <PrintOn>OnlyLastPage</PrintOn>
                 </Panel5>
                 <Panel6 Ref="84" type="Panel" isKey="true">
                   <Brush>Transparent</Brush>
-                  <CanBreak>True</CanBreak>
+                  <ClientRectangle>2,8.15,17.3,1.2</ClientRectangle>
-                  <CanGrow>True</CanGrow>
-                  <CanShrink>True</CanShrink>
-                  <ClientRectangle>2,8.28,17.2,1</ClientRectangle>
                   <Components isList="true" count="2">
                     <HeaderBand3 Ref="85" type="HeaderBand" isKey="true">
                       <Brush>Transparent</Brush>
-                      <ClientRectangle>0,0,17.2,0.6</ClientRectangle>
+                      <ClientRectangle>0,0.4,17.3,0.6</ClientRectangle>
                       <Components isList="true" count="4">
                         <Text24 Ref="86" type="Text" isKey="true">
                           <Brush>[58:65:115]</Brush>
@@ -4490,7 +4483,7 @@ Sello digital  del SAT:
                     <DataBand2 Ref="90" type="DataBand" isKey="true">
                       <Brush>Transparent</Brush>
                       <BusinessObjectGuid isNull="true" />
-                      <ClientRectangle>0,0.6,17.2,0.4</ClientRectangle>
+                      <ClientRectangle>0,1.8,17.3,0.4</ClientRectangle>
                       <Components isList="true" count="4">
                         <Text27 Ref="91" type="Text" isKey="true">
                           <Brush>Transparent</Brush>
@@ -4549,7 +4542,7 @@ Sello digital  del SAT:
                         <Text30 Ref="95" type="Text" isKey="true">
                           <Brush>Transparent</Brush>
                           <CanGrow>True</CanGrow>
-                          <ClientRectangle>9.2,0,8,0.37</ClientRectangle>
+                          <ClientRectangle>9.4,0,7.82,0.37</ClientRectangle>
                           <Conditions isList="true" count="0" />
                           <Expressions isList="true" count="0" />
                           <Font>Myriad Pro,7.5,Regular,Point,False,0</Font>
@@ -4560,6 +4553,9 @@ Sello digital  del SAT:
                           <Parent isRef="90" />
                           <Text>{DtDocumentosRelacionados.FolioFiscal}</Text>
                           <TextBrush>Black</TextBrush>
+                          <TextFormat Ref="96" type="CustomFormat" isKey="true">
+                            <StringFormat>#,0.00</StringFormat>
+                          </TextFormat>
                           <Type>DataColumn</Type>
                         </Text30>
                       </Components>
@@ -4577,15 +4573,14 @@ Sello digital  del SAT:
                   </Components>
                   <Conditions isList="true" count="0" />
                   <Expressions isList="true" count="0" />
-                  <GrowToHeight>True</GrowToHeight>
                   <Name>Panel6</Name>
                   <Page isRef="7" />
                   <Parent isRef="57" />
                   <PrintOn>OnlyLastPage</PrintOn>
                 </Panel6>
-                <Text32 Ref="96" type="Text" isKey="true">
+                <Text32 Ref="97" type="Text" isKey="true">
                   <Brush>[58:65:115]</Brush>
-                  <ClientRectangle>0,7.28,21.2,0.5</ClientRectangle>
+                  <ClientRectangle>0,7.28,21,0.5</ClientRectangle>
                   <Conditions isList="true" count="0" />
                   <Enabled>False</Enabled>
                   <Expressions isList="true" count="2">
@@ -4603,9 +4598,9 @@ Sello digital  del SAT:
                   <TextBrush>[255:255:255]</TextBrush>
                   <Type>Expression</Type>
                 </Text32>
-                <Text33 Ref="97" type="Text" isKey="true">
+                <Text33 Ref="98" type="Text" isKey="true">
                   <Brush>Transparent</Brush>
-                  <ClientRectangle>5.6,7.88,2.4,0.4</ClientRectangle>
+                  <ClientRectangle>5.4,7.8,2.4,0.35</ClientRectangle>
                   <Conditions isList="true" count="0" />
                   <Enabled>False</Enabled>
                   <Expressions isList="true" count="2">
@@ -4623,9 +4618,9 @@ Sello digital  del SAT:
                   <TextBrush>Black</TextBrush>
                   <Type>Expression</Type>
                 </Text33>
-                <Text34 Ref="98" type="Text" isKey="true">
+                <Text34 Ref="99" type="Text" isKey="true">
                   <Brush>Transparent</Brush>
-                  <ClientRectangle>8,7.88,9.4,0.4</ClientRectangle>
+                  <ClientRectangle>7.8,7.8,9.4,0.35</ClientRectangle>
                   <Conditions isList="true" count="0" />
                   <Enabled>False</Enabled>
                   <Expressions isList="true" count="2">
@@ -4642,20 +4637,55 @@ Sello digital  del SAT:
                   <TextBrush>Black</TextBrush>
                   <Type>Expression</Type>
                 </Text34>
-                <Rectangle2 Ref="99" type="Panel" isKey="true">
+                <Line4 Ref="100" type="HorizontalLinePrimitive" isKey="true">
-                  <Anchor>Bottom, Right</Anchor>
+                  <ClientRectangle>14.45,6.88,6.6,0.0254</ClientRectangle>
+                  <Color>Black</Color>
+                  <Conditions isList="true" count="0" />
+                  <EndCap Ref="101" type="Cap" isKey="true">
+                    <Color>Black</Color>
+                  </EndCap>
+                  <Expressions isList="true" count="0" />
+                  <Name>Line4</Name>
+                  <Page isRef="7" />
+                  <Parent isRef="57" />
+                  <StartCap Ref="102" type="Cap" isKey="true">
+                    <Color>Black</Color>
+                  </StartCap>
+                </Line4>
+              </Components>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <KeepFooterTogether>False</KeepFooterTogether>
+              <Name>FooterBand1</Name>
+              <Page isRef="7" />
+              <Parent isRef="30" />
+            </FooterBand1>
+          </Components>
+          <Conditions isList="true" count="0" />
+          <DockStyle>Top</DockStyle>
+          <Expressions isList="true" count="0" />
+          <GrowToHeight>True</GrowToHeight>
+          <Name>Panel1</Name>
+          <Page isRef="7" />
+          <Parent isRef="7" />
+        </Panel1>
+        <FooterBand2 Ref="103" type="FooterBand" isKey="true">
+          <Brush>Transparent</Brush>
+          <ClientRectangle>0,20.2,21.1,5.4</ClientRectangle>
+          <Components isList="true" count="1">
+            <Pagare Ref="104" type="Panel" isKey="true">
+              <Brush>Transparent</Brush>
+              <CanGrow>True</CanGrow>
+              <CanShrink>True</CanShrink>
+              <ClientRectangle>0,0,21.1,5.2</ClientRectangle>
+              <Components isList="true" count="11">
+                <Image1 Ref="105" type="Image" isKey="true">
                   <Brush>Transparent</Brush>
-                  <CanBreak>True</CanBreak>
+                  <ClientRectangle>0.6,0,2.58,1.41</ClientRectangle>
-                  <CanGrow>True</CanGrow>
+                  <Conditions isList="true" count="0" />
-                  <ClientRectangle>0,11.8,21,5</ClientRectangle>
+                  <Expressions isList="true" count="0" />
-                  <Components isList="true" count="11">
+                  <IconColor>68, 114, 196</IconColor>
-                    <Image1 Ref="100" type="Image" isKey="true">
+                  <ImageBytes>iVBORw0KGgoAAAANSUhEUgAAEHQAAAgICAYAAAC1Y1ExAAAABGdBTUEAALGPC/xhBQAAAAlwSFlz
-                      <Brush>Transparent</Brush>
-                      <ClientRectangle>0.6,0,2.58,1.41</ClientRectangle>
-                      <Conditions isList="true" count="0" />
-                      <Expressions isList="true" count="0" />
-                      <IconColor>68, 114, 196</IconColor>
-                      <ImageBytes>iVBORw0KGgoAAAANSUhEUgAAEHQAAAgICAYAAAC1Y1ExAAAABGdBTUEAALGPC/xhBQAAAAlwSFlz
 AAAuIgAALiIBquLdkgAAABl0RVh0U29mdHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAP+NSURB
 VHhe7N3NeSJZsy7QawLPsYDJmWOCTMAETMAEmYAJMgETZAImMLlzPDg38rTqfuro6CoJ8bMjcw3W
 JAZVApI3iGSz9//5n//5HwAAAAAAAAAAAAAAAAAAAABuqCwCAAAAAAAAAAAAAAAAAAAAcL2yCAAA
@@ -7831,221 +7861,197 @@ AADgdsODAAAAAAAAAAAAAAAAAAAAANxueBAAAAAAAAAAAAAAAAAAAACA2w0PAgAAAAAAAAAAAAAA
 AAAAAHC74UEAAAAAAAAAAAAAAAAAAAAAbjc8CAAAAAAAAAAAAAAAAAAAAMDthgcBAAAAAAAAAAAA
 AAAAAAAAuN3wIAAAAAAAAAAAAAAAAAAAAAC3Gx4EAAAAAAAAAAAAAAAAAAAA4Fb/v//P/x94RXrG
 /wp7ygAAAABJRU5ErkJggg==</ImageBytes>
-                      <Linked>True</Linked>
+                  <Linked>True</Linked>
-                      <Margins>2,2,2,2</Margins>
+                  <Margins>2,2,2,2</Margins>
-                      <Name>Image1</Name>
+                  <Name>Image1</Name>
-                      <Page isRef="7" />
+                  <Page isRef="7" />
-                      <Parent isRef="99" />
+                  <Parent isRef="104" />
-                      <Stretch>True</Stretch>
+                  <Stretch>True</Stretch>
-                    </Image1>
+                </Image1>
-                    <Textbox36 Ref="101" type="Text" isKey="true">
+                <Textbox36 Ref="106" type="Text" isKey="true">
-                      <Brush>Transparent</Brush>
+                  <Brush>Transparent</Brush>
-                      <CanGrow>True</CanGrow>
+                  <CanGrow>True</CanGrow>
-                      <ClientRectangle>3.36,0.56,14.88,0.85</ClientRectangle>
+                  <ClientRectangle>3.36,0.56,14.88,0.85</ClientRectangle>
-                      <Conditions isList="true" count="0" />
+                  <Conditions isList="true" count="0" />
-                      <Expressions isList="true" count="0" />
+                  <Expressions isList="true" count="0" />
-                      <Font>Myriad Pro,8.5,Regular,Point,False,0</Font>
+                  <Font>Myriad Pro,8.5,Regular,Point,False,0</Font>
-                      <Linked>True</Linked>
+                  <Linked>True</Linked>
-                      <Margins>2,2,2,2</Margins>
+                  <Margins>2,2,2,2</Margins>
-                      <Name>Textbox36</Name>
+                  <Name>Textbox36</Name>
-                      <Page isRef="7" />
+                  <Page isRef="7" />
-                      <Parent isRef="99" />
+                  <Parent isRef="104" />
-                      <Text>    Cliente:  {ClienteCodigo} - {ClienteNombre} - {ClienteRFC}
+                  <Text>    Cliente:  {ClienteCodigo} - {ClienteNombre} - {ClienteRFC}
 Domicilio:  {ClienteDireccion}, {ClienteCiudad}, {ClienteEstado}</Text>
-                      <TextBrush>Black</TextBrush>
+                  <TextBrush>Black</TextBrush>
-                    </Textbox36>
+                </Textbox36>
-                    <Textbox76 Ref="102" type="Text" isKey="true">
+                <Textbox76 Ref="107" type="Text" isKey="true">
-                      <Brush>Transparent</Brush>
+                  <Brush>Transparent</Brush>
-                      <CanGrow>True</CanGrow>
+                  <CanGrow>True</CanGrow>
-                      <ClientRectangle>0,1.54,20.96,2.27</ClientRectangle>
+                  <ClientRectangle>0,1.54,20.96,2.27</ClientRectangle>
-                      <Conditions isList="true" count="0" />
+                  <Conditions isList="true" count="0" />
-                      <Expressions isList="true" count="0" />
+                  <Expressions isList="true" count="0" />
-                      <Font>Myriad Pro,7,Bold,Point,False,0</Font>
+                  <Font>Myriad Pro,7,Bold,Point,False,0</Font>
-                      <Linked>True</Linked>
+                  <Linked>True</Linked>
-                      <Margins>2,2,2,2</Margins>
+                  <Margins>2,2,2,2</Margins>
-                      <Name>Textbox76</Name>
+                  <Name>Textbox76</Name>
-                      <Page isRef="7" />
+                  <Page isRef="7" />
-                      <Parent isRef="99" />
+                  <Parent isRef="104" />
-                      <Text>POR ESTE PAGARÉ PROMETO(EMOS), Y ME (NOS) OBLIGO (AMOS) A PAGAR INCONDICIONALMENTE A LA ORDEN DE BDH BATERIAS DISTRIBUCIONES DE 
+                  <Text>POR ESTE PAGARÉ PROMETO(EMOS), Y ME (NOS) OBLIGO (AMOS) A PAGAR INCONDICIONALMENTE A LA ORDEN DE BDH BATERIAS DISTRIBUCIONES DE 
 HERMOSILLO SA DE CV, EN LA CIUDAD DE HERMOSILLO, SONORA, O CUALQUIER OTRA CIUDAD QUE DESIGNE EL TITULAR DEL DOCUMENTO, 
 LA CANTIDAD DE $ {Total}  ***SON {ImporteLetra}*** VALOR QUE RECONOZCO (EMOS) ADEUDARLE OBLIGÁNDOME (NOS) A CUBRIR A SU 
 VENCIMIENTO  {Vencimiento}, DE NO PAGARSE CAUSARÍA UN INTERÉS MORATORIO DEL 10% POR CIENTO MENSUAL, POR EL TIEMPO QUE PERMANEZCA 
 INSOLUTO EL ADEUDO EXISTENTE, QUEDANDO EXPRESAMENTE CONVENIDO QUE LA FALTA DE PAGO OPORTUNO OCASIONA AL DEUDOR GASTOS DE COBRO 
 JUDICIALES O EXTRAJUDICIALES Y LOS QUE SE OCASIONEN, RENUNCIANDO EL DEUDOR AL FUERO DE SU DOMICILIO QUE PUDIERA CORRESPONDERLE, 
 ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPERACIONES DE CRÉDITO.</Text>
-                      <TextBrush>[0:0:0]</TextBrush>
+                  <TextBrush>[0:0:0]</TextBrush>
-                      <Type>Expression</Type>
+                  <Type>Expression</Type>
-                    </Textbox76>
+                </Textbox76>
-                    <Textbox47 Ref="103" type="Text" isKey="true">
+                <Textbox47 Ref="108" type="Text" isKey="true">
-                      <Brush>Transparent</Brush>
+                  <Brush>Transparent</Brush>
-                      <CanGrow>True</CanGrow>
+                  <CanGrow>True</CanGrow>
-                      <ClientRectangle>6.86,4.43,6.65,0.47</ClientRectangle>
+                  <ClientRectangle>6.86,4.63,6.65,0.47</ClientRectangle>
-                      <Conditions isList="true" count="0" />
-                      <Expressions isList="true" count="0" />
-                      <Font>Microsoft Sans Serif,8,Regular,Point,False,0</Font>
-                      <HorAlignment>Center</HorAlignment>
-                      <Linked>True</Linked>
-                      <Margins>2,2,2,2</Margins>
-                      <Name>Textbox47</Name>
-                      <Page isRef="7" />
-                      <Parent isRef="99" />
-                      <Text>ACEPTO (AMOS) DE CONFORMIDAD</Text>
-                      <TextBrush>Black</TextBrush>
-                    </Textbox47>
-                    <Textbox44 Ref="104" type="Text" isKey="true">
-                      <Brush>Transparent</Brush>
-                      <CanGrow>True</CanGrow>
-                      <ClientRectangle>6.86,3.67,6.65,0.54</ClientRectangle>
-                      <Conditions isList="true" count="0" />
-                      <Expressions isList="true" count="0" />
-                      <Font>Microsoft Sans Serif,8,Regular,Point,False,0</Font>
-                      <HorAlignment>Center</HorAlignment>
-                      <Linked>True</Linked>
-                      <Margins>2,2,2,2</Margins>
-                      <Name>Textbox44</Name>
-                      <Page isRef="7" />
-                      <Parent isRef="99" />
-                      <Text>Obligado</Text>
-                      <TextBrush>[0:0:0]</TextBrush>
-                    </Textbox44>
-                    <Text15 Ref="105" type="Text" isKey="true">
-                      <AutoWidth>True</AutoWidth>
-                      <Brush>Transparent</Brush>
-                      <CanGrow>True</CanGrow>
-                      <ClientRectangle>17,0.2,1,0.4</ClientRectangle>
-                      <Conditions isList="true" count="0" />
-                      <Expressions isList="true" count="0" />
-                      <Font>Myriad Pro,10,Bold,Point,False,0</Font>
-                      <Margins>0,0,0,0</Margins>
-                      <Name>Text15</Name>
-                      <Page isRef="7" />
-                      <Parent isRef="99" />
-                      <Text>{Serie}</Text>
-                      <TextBrush>[255:0:0]</TextBrush>
-                      <Type>Expression</Type>
-                      <VertAlignment>Bottom</VertAlignment>
-                    </Text15>
-                    <Text16 Ref="106" type="Text" isKey="true">
-                      <Brush>Transparent</Brush>
-                      <ClientRectangle>18,0.2,1,0.4</ClientRectangle>
-                      <Conditions isList="true" count="0" />
-                      <Expressions isList="true" count="0" />
-                      <Font>Myriad Pro,9,Bold,Point,False,0</Font>
-                      <HorAlignment>Right</HorAlignment>
-                      <Margins>0,0,0,0</Margins>
-                      <Name>Text16</Name>
-                      <Page isRef="7" />
-                      <Parent isRef="99" />
-                      <Text>Folio:</Text>
-                      <TextBrush>Black</TextBrush>
-                      <Type>Expression</Type>
-                      <VertAlignment>Bottom</VertAlignment>
-                    </Text16>
-                    <Text17 Ref="107" type="Text" isKey="true">
-                      <AutoWidth>True</AutoWidth>
-                      <Brush>Transparent</Brush>
-                      <CanGrow>True</CanGrow>
-                      <ClientRectangle>19,0.2,1,0.4</ClientRectangle>
-                      <Conditions isList="true" count="0" />
-                      <Expressions isList="true" count="0" />
-                      <Font>Myriad Pro,10,Bold,Point,False,0</Font>
-                      <Margins>0,0,0,0</Margins>
-                      <Name>Text17</Name>
-                      <Page isRef="7" />
-                      <Parent isRef="99" />
-                      <Text>{Folio}</Text>
-                      <TextBrush>[255:0:0]</TextBrush>
-                      <Type>Expression</Type>
-                      <VertAlignment>Bottom</VertAlignment>
-                    </Text17>
-                    <Text18 Ref="108" type="Text" isKey="true">
-                      <Brush>Transparent</Brush>
-                      <ClientRectangle>15.4,0.2,1.6,0.4</ClientRectangle>
-                      <Conditions isList="true" count="0" />
-                      <Expressions isList="true" count="0" />
-                      <Font>Myriad Pro,9,Bold,Point,False,0</Font>
-                      <HorAlignment>Right</HorAlignment>
-                      <Margins>0,0,0,0</Margins>
-                      <Name>Text18</Name>
-                      <Page isRef="7" />
-                      <Parent isRef="99" />
-                      <Text>Serie:</Text>
-                      <TextBrush>Black</TextBrush>
-                      <Type>Expression</Type>
-                      <VertAlignment>Bottom</VertAlignment>
-                    </Text18>
-                    <Line1 Ref="109" type="HorizontalLinePrimitive" isKey="true">
-                      <ClientRectangle>0,1.44,21,0.0254</ClientRectangle>
-                      <Color>Black</Color>
-                      <Conditions isList="true" count="0" />
-                      <EndCap Ref="110" type="Cap" isKey="true">
-                        <Color>Black</Color>
-                      </EndCap>
-                      <Expressions isList="true" count="0" />
-                      <Linked>True</Linked>
-                      <Name>Line1</Name>
-                      <Page isRef="7" />
-                      <Parent isRef="99" />
-                      <StartCap Ref="111" type="Cap" isKey="true">
-                        <Color>Black</Color>
-                      </StartCap>
-                    </Line1>
-                    <Line3 Ref="112" type="HorizontalLinePrimitive" isKey="true">
-                      <ClientRectangle>6.86,4.46,6.65,0.0254</ClientRectangle>
-                      <Color>Black</Color>
-                      <Conditions isList="true" count="0" />
-                      <EndCap Ref="113" type="Cap" isKey="true">
-                        <Color>Black</Color>
-                      </EndCap>
-                      <Expressions isList="true" count="0" />
-                      <Linked>True</Linked>
-                      <Name>Line3</Name>
-                      <Page isRef="7" />
-                      <Parent isRef="99" />
-                      <StartCap Ref="114" type="Cap" isKey="true">
-                        <Color>Black</Color>
-                      </StartCap>
-                    </Line3>
-                  </Components>
                   <Conditions isList="true" count="0" />
-                  <DockStyle>Bottom</DockStyle>
                   <Expressions isList="true" count="0" />
-                  <Name>Rectangle2</Name>
+                  <Font>Microsoft Sans Serif,8,Regular,Point,False,0</Font>
+                  <HorAlignment>Center</HorAlignment>
+                  <Linked>True</Linked>
+                  <Margins>2,2,2,2</Margins>
+                  <Name>Textbox47</Name>
                   <Page isRef="7" />
-                  <Parent isRef="57" />
+                  <Parent isRef="104" />
-                  <PrintOn>OnlyLastPage</PrintOn>
+                  <Text>ACEPTO (AMOS) DE CONFORMIDAD</Text>
-                  <ShiftMode>None</ShiftMode>
+                  <TextBrush>Black</TextBrush>
-                </Rectangle2>
+                </Textbox47>
-                <Line4 Ref="115" type="HorizontalLinePrimitive" isKey="true">
+                <Textbox44 Ref="109" type="Text" isKey="true">
-                  <ClientRectangle>14.45,6.88,6.6,0.0254</ClientRectangle>
+                  <Brush>Transparent</Brush>
+                  <CanGrow>True</CanGrow>
+                  <ClientRectangle>6.86,3.67,6.65,0.54</ClientRectangle>
+                  <Conditions isList="true" count="0" />
+                  <Expressions isList="true" count="0" />
+                  <Font>Microsoft Sans Serif,8,Regular,Point,False,0</Font>
+                  <HorAlignment>Center</HorAlignment>
+                  <Linked>True</Linked>
+                  <Margins>2,2,2,2</Margins>
+                  <Name>Textbox44</Name>
+                  <Page isRef="7" />
+                  <Parent isRef="104" />
+                  <Text>Obligado</Text>
+                  <TextBrush>[0:0:0]</TextBrush>
+                </Textbox44>
+                <Text15 Ref="110" type="Text" isKey="true">
+                  <AutoWidth>True</AutoWidth>
+                  <Brush>Transparent</Brush>
+                  <CanGrow>True</CanGrow>
+                  <ClientRectangle>17,0.2,1,0.4</ClientRectangle>
+                  <Conditions isList="true" count="0" />
+                  <Expressions isList="true" count="0" />
+                  <Font>Myriad Pro,10,Bold,Point,False,0</Font>
+                  <Margins>0,0,0,0</Margins>
+                  <Name>Text15</Name>
+                  <Page isRef="7" />
+                  <Parent isRef="104" />
+                  <Text>{Serie}</Text>
+                  <TextBrush>[255:0:0]</TextBrush>
+                  <Type>Expression</Type>
+                  <VertAlignment>Bottom</VertAlignment>
+                </Text15>
+                <Text16 Ref="111" type="Text" isKey="true">
+                  <Brush>Transparent</Brush>
+                  <ClientRectangle>18,0.2,1,0.4</ClientRectangle>
+                  <Conditions isList="true" count="0" />
+                  <Expressions isList="true" count="0" />
+                  <Font>Myriad Pro,9,Bold,Point,False,0</Font>
+                  <HorAlignment>Right</HorAlignment>
+                  <Margins>0,0,0,0</Margins>
+                  <Name>Text16</Name>
+                  <Page isRef="7" />
+                  <Parent isRef="104" />
+                  <Text>Folio:</Text>
+                  <TextBrush>Black</TextBrush>
+                  <Type>Expression</Type>
+                  <VertAlignment>Bottom</VertAlignment>
+                </Text16>
+                <Text17 Ref="112" type="Text" isKey="true">
+                  <AutoWidth>True</AutoWidth>
+                  <Brush>Transparent</Brush>
+                  <CanGrow>True</CanGrow>
+                  <ClientRectangle>19,0.2,1,0.4</ClientRectangle>
+                  <Conditions isList="true" count="0" />
+                  <Expressions isList="true" count="0" />
+                  <Font>Myriad Pro,10,Bold,Point,False,0</Font>
+                  <Margins>0,0,0,0</Margins>
+                  <Name>Text17</Name>
+                  <Page isRef="7" />
+                  <Parent isRef="104" />
+                  <Text>{Folio}</Text>
+                  <TextBrush>[255:0:0]</TextBrush>
+                  <Type>Expression</Type>
+                  <VertAlignment>Bottom</VertAlignment>
+                </Text17>
+                <Text18 Ref="113" type="Text" isKey="true">
+                  <Brush>Transparent</Brush>
+                  <ClientRectangle>15.4,0.2,1.6,0.4</ClientRectangle>
+                  <Conditions isList="true" count="0" />
+                  <Expressions isList="true" count="0" />
+                  <Font>Myriad Pro,9,Bold,Point,False,0</Font>
+                  <HorAlignment>Right</HorAlignment>
+                  <Margins>0,0,0,0</Margins>
+                  <Name>Text18</Name>
+                  <Page isRef="7" />
+                  <Parent isRef="104" />
+                  <Text>Serie:</Text>
+                  <TextBrush>Black</TextBrush>
+                  <Type>Expression</Type>
+                  <VertAlignment>Bottom</VertAlignment>
+                </Text18>
+                <Line1 Ref="114" type="HorizontalLinePrimitive" isKey="true">
+                  <ClientRectangle>0,1.44,21,0.0254</ClientRectangle>
                   <Color>Black</Color>
                   <Conditions isList="true" count="0" />
-                  <EndCap Ref="116" type="Cap" isKey="true">
+                  <EndCap Ref="115" type="Cap" isKey="true">
                     <Color>Black</Color>
                   </EndCap>
                   <Expressions isList="true" count="0" />
-                  <Name>Line4</Name>
+                  <Linked>True</Linked>
+                  <Name>Line1</Name>
                   <Page isRef="7" />
-                  <Parent isRef="57" />
+                  <Parent isRef="104" />
-                  <StartCap Ref="117" type="Cap" isKey="true">
+                  <StartCap Ref="116" type="Cap" isKey="true">
                     <Color>Black</Color>
                   </StartCap>
-                </Line4>
+                </Line1>
+                <Line3 Ref="117" type="HorizontalLinePrimitive" isKey="true">
+                  <ClientRectangle>6.86,4.66,6.65,0.0254</ClientRectangle>
+                  <Color>Black</Color>
+                  <Conditions isList="true" count="0" />
+                  <EndCap Ref="118" type="Cap" isKey="true">
+                    <Color>Black</Color>
+                  </EndCap>
+                  <Expressions isList="true" count="0" />
+                  <Linked>True</Linked>
+                  <Name>Line3</Name>
+                  <Page isRef="7" />
+                  <Parent isRef="104" />
+                  <StartCap Ref="119" type="Cap" isKey="true">
+                    <Color>Black</Color>
+                  </StartCap>
+                </Line3>
               </Components>
               <Conditions isList="true" count="0" />
               <Expressions isList="true" count="0" />
-              <Name>FooterBand1</Name>
+              <GrowToHeight>True</GrowToHeight>
+              <Name>Pagare</Name>
               <Page isRef="7" />
-              <Parent isRef="30" />
+              <Parent isRef="103" />
-            </FooterBand1>
+              <PrintOn>OnlyLastPage</PrintOn>
+            </Pagare>
           </Components>
           <Conditions isList="true" count="0" />
           <Expressions isList="true" count="0" />
-          <GrowToHeight>True</GrowToHeight>
+          <Name>FooterBand2</Name>
-          <Name>Panel1</Name>
           <Page isRef="7" />
           <Parent isRef="7" />
-        </Panel1>
+        </FooterBand2>
       </Components>
       <Conditions isList="true" count="0" />
       <Expressions isList="true" count="0" />
@@ -8069,10 +8075,10 @@ ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPE
     <value>Stimulsoft.Report.Dll</value>
   </ReferencedAssemblies>
   <ReportAlias>Factura</ReportAlias>
-  <ReportChanged>12/3/2022 4:12:16 PM</ReportChanged>
+  <ReportChanged>12/9/2022 10:44:46 AM</ReportChanged>
   <ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
   <ReportFile>C:\inetpub\wwwSIGGIT\Empresas\140\Formatos\Factura.mrt</ReportFile>
-  <ReportGuid>37b51e78986c4b0a95ef37a74df287a1</ReportGuid>
+  <ReportGuid>3135a03f0de04b128f910e44a3c041ce</ReportGuid>
   <ReportName>Factura</ReportName>
   <ReportUnit>Centimeters</ReportUnit>
   <ReportVersion>2022.4.5.0</ReportVersion>

Inventarios/RecepcionUsados.aspx.vb

@@ -1301,12 +1301,6 @@ Partial Class Inventarios_RecepcionUsados
 
                             For Each Dr As DataRow In DtMovimientos.Rows
 
-                                If CveConcepto = 42 AndAlso DdlMoneda.SelectedValue.ToEntero = 2 Then
-                                    ImporteConcepto = Dr("PU").ToString.ToDecimal * GlobalTipoCambio(TxtFecha.Text.ToDate).ToDecimal
-                                Else
-                                    ImporteConcepto = Dr("PU").ToString.ToDecimal
-                                End If
-
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     Mensaje = "Error al guardar los movimientos"
                                     ErrorMovInv = True
@@ -1355,7 +1349,7 @@ Partial Class Inventarios_RecepcionUsados
 
                             ''GENERA LA PREPOLIZA DE ALMACEN VS EL CONCEPTO DE RNC
                             If Not ErrorMovInv Then
-                                ErrorMovInv = Not GeneraPrePoliza(CveMovimiento, ObjInventario, ObjConta, True)
+                                ErrorMovInv = Not GeneraPrePoliza(CveMovimiento, ObjInventario, ObjConta, False)
                             End If
 
                         End If

Inventarios/RepExistenciasCostos.aspx.vb

@@ -273,12 +273,12 @@ Partial Class Inventarios_RepExistenciasCostos
     Private Sub impimir(Optional reporte As String = "PDF")
 
 
-        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedItem.Text}")
+        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {If(DdlProveedor.SelectedItem Is Nothing, "", DdlProveedor.SelectedItem.Text)}")
-        Dim Moneda = If(DdlMoneda.SelectedValue = "-1", "", $"&emsp;<b>Moneda:</b> {DdlMoneda.SelectedItem.Text}")
+        Dim Moneda = If(DdlMoneda.SelectedValue = "-1", "", $"&emsp;<b>Moneda:</b> {If(DdlMoneda.SelectedItem Is Nothing, "", DdlMoneda.SelectedItem.Text)}")
-        Dim Concepto = If(DdlTipoMovimiento.SelectedValue = "-1", "", $"&emsp;<b>Concepto:</b> {DdlTipoMovimiento.SelectedItem.Text}")
+        Dim Concepto = If(DdlTipoMovimiento.SelectedValue = "-1", "", $"&emsp;<b>Concepto:</b> {If(DdlTipoMovimiento.SelectedItem Is Nothing, "", DdlTipoMovimiento.SelectedItem.Text)}")
         Dim PS = If(HFProducto.Value.ToEntero > 0, $"&emsp;<b>Producto/Servicio:</b> {GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=HFProducto.Value.ToEntero).Rows(0)("PSCodigo").ToString}", "")
-        Dim Almacen = If(DdlAlmacen.SelectedValue = " - 1", "", $"&emsp;<b>Almacen: </b> {DdlAlmacen.SelectedItem.Text}")
+        Dim Almacen = If(DdlAlmacen.SelectedValue = " - 1", "", $"&emsp;<b>Almacen: </b> {If(DdlAlmacen.SelectedItem Is Nothing, "", DdlAlmacen.SelectedItem.Text)}")
-        Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificacion:</b> {DdlClasificacion.SelectedItem.Text}")
+        Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificacion</b>{If(DdlClasificacion.SelectedItem Is Nothing, "", DdlClasificacion.SelectedItem.Text)}")
         Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {TxtFechaI.Text}"
         Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {TxtFechaF.Text}"
         If TxtFechaI.Text = "" Then FechaIn = ""

Nomina/Finiquito.aspx.cs

@@ -1087,7 +1087,7 @@ public partial class Nomina_Finiquito : ClsPaginas
             using (ClsRH ObjPersonal = new ClsRH())
             using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL()))
             {
-                if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked,TxtObservaciones.Text ) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0)
+                if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked,TxtObservaciones.Text ) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0)
                 {
                     DataRow da = ObjPersonal.DtResultados.Rows[0];
                     CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
@@ -1340,7 +1340,7 @@ public partial class Nomina_Finiquito : ClsPaginas
             using (ClsRH ObjPersonal = new ClsRH())
             using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL()))
             {
-                if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0)
+                if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0)
                 {
                     DataRow da = ObjPersonal.DtResultados.Rows[0];
                     CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();

Nomina/FiniquitoOld.aspx.cs

@@ -362,7 +362,7 @@ partial class Nomina_Finiquito : ClsPaginas
 
         using (ClsRH ObjPersonal = new ClsRH())
         {
-            if (ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) && ObjPersonal.DtResultados.Rows.Count > 0)
+            if (ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) && ObjPersonal.DtResultados.Rows.Count > 0)
             {
             }
         }

Nomina/FiniquitoOld.aspx.vb

@@ -308,7 +308,7 @@ Partial Class Nomina_FiniquitoVB
 
 
         Using ObjPersonal As New ClsRH()
-            If ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
+            If ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
 
             End If
         End Using

RH/CatEstatusPersonal.aspx.vb

@@ -139,7 +139,7 @@ Partial Class RH_CatEstatusPersonal
         Dim EstatusPersonal As String = PersonalEstatTxt.Text
         Dim Estatus As Boolean = ChkEstatus.Checked
         Dim CveEstatusPersonal As Integer = CveEstatusPerAEditar 'aquí obtenemos el valor de la propiedad que utilizamos en el metodo "GvDatos_RowEditing"
-        If ObjEstatusPersonal.UpdateEstatusPersonal(EstatusPersonal, Estatus, CveEstatusPersonal) Then
+        If ObjEstatusPersonal.UpdateEstatusPersonal(EstatusPersonal, Estatus, CveEstatusPersonal, UsuarioActual.CveUsuario) Then
             GvDatos.EditIndex = -1
             ViewState("DTEstatusPersonal") = ObjEstatusPersonal.DtResultados
             GlobalDTEstatusPersonal = ObjEstatusPersonal.DtResultados

RH/Personal.aspx.vb

@@ -932,6 +932,7 @@ Partial Class RH_Personal
                 divBitacora.Visible = True
                 CargaGvBitacora()
             Else
+                cargatipoTrabajador()
                 MostrarOcultarFechasEstatus()
                 LoadDefaultValues()
                 'Configuración de Modalidad Insert
@@ -1080,29 +1081,43 @@ Partial Class RH_Personal
 
     Public Sub cargatipoTrabajador()
         Using objrh As New ClsRH()
-            If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+            If UsuarioActual.CveEmpresa <> 158 Then
-                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
+                If (objrh.TiposTrabajadorGet(-1, UsuarioActual.CveEmpresa)) Then
-                Dim drow As DataRow = dt.NewRow()
+                    Dim dt As DataTable = objrh.DtResultados
-                If UsuarioActual.CveEmpresa <> 158 Then
+                    Dim drow As DataRow = dt.NewRow()
-                    drow = dt.NewRow()
+                    drow("CveTipoTrabajador") = "-1"
-                    drow("CveTipoTrabajador") = "2"
+                    drow("TipoTrabajadorB") = "Seleccione"
-                    drow("TipoTrabajadorB") = "Operativo"
-                    dt.Rows.InsertAt(drow, 0)
-                    drow = dt.NewRow()
-                    drow("CveTipoTrabajador") = "3"
-                    drow("TipoTrabajadorB") = "Administrativo"
                     dt.Rows.InsertAt(drow, 0)
+                    DdlTipoTrabajador.DataSource = dt
+                    DdlTipoTrabajador.DataBind()
+                End If
 
-                End If
+            Else
-                drow = dt.NewRow()
+
-                drow("CveTipoTrabajador") = "-1"
+                'If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
-                drow("TipoTrabajadorB") = "Seleccione"
+                '    Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
-                dt.Rows.InsertAt(drow, 0)
+                '    Dim drow As DataRow = dt.NewRow()
-                If DdlTipoTrabajador.Items.Count() > 0 Then
+                '    If UsuarioActual.CveEmpresa <> 158 Then
-                    DdlTipoTrabajador.SelectedValueExist("-1")
+                '        drow = dt.NewRow()
-                End If
+                '        drow("CveTipoTrabajador") = "2"
-                DdlTipoTrabajador.DataSource = dt
+                '        drow("TipoTrabajadorB") = "Operativo"
-                DdlTipoTrabajador.DataBind()
+                '        dt.Rows.InsertAt(drow, 0)
+                '        drow = dt.NewRow()
+                '        drow("CveTipoTrabajador") = "3"
+                '        drow("TipoTrabajadorB") = "Administrativo"
+                '        dt.Rows.InsertAt(drow, 0)
+
+                '    End If
+                '    drow = dt.NewRow()
+                '    drow("CveTipoTrabajador") = "-1"
+                '    drow("TipoTrabajadorB") = "Seleccione"
+                '    dt.Rows.InsertAt(drow, 0)
+                '    If DdlTipoTrabajador.Items.Count() > 0 Then
+                '        DdlTipoTrabajador.SelectedValueExist("-1")
+                '    End If
+                '    DdlTipoTrabajador.DataSource = dt
+                '    DdlTipoTrabajador.DataBind()
+                'End If
             End If
         End Using
     End Sub
@@ -1938,7 +1953,7 @@ Partial Class RH_Personal
                DdlSupervisor.SelectedValue.ToEntero(), TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero(), DdlViaticos.SelectedValue.ToEntero(), DdlViaticos.SelectedItem.Text,
                DdlPrestamos.SelectedValue.ToEntero(), DdlPrestamos.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
                TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(),
-               Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero) Then
+               Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero()) Then
 
                 If Archivo.Exists Then
 
@@ -2023,7 +2038,7 @@ Partial Class RH_Personal
                DdlPrestamos.SelectedValue.ToEntero(), DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
                TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
                CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(),
-               CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1)) Then
+               CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero()) Then
 
                 'Funsion usa RH Familiares
                 If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then

Ventas/Ventas.aspx.vb

@@ -2346,7 +2346,7 @@ Partial Class Ventas
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
-
+        If UsuarioActual.CveEmpresa.Contiene(141, 152, 153, 160, 161, 162) Then System.Threading.Thread.Sleep(2000)
         If Not IsPostBack Then
 
             If IfNull(Request("Opcionx"), "").ToString = "Saldar" And UsuarioActual.CveUsuario = 100 Then
@@ -6040,7 +6040,7 @@ Partial Class Ventas
         DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago
         DdlMetodoCliente.DataBind()
 
-        If CveMetodoPago = 1 AndAlso DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TbDescuentosAdicionales.Visible Then
+        If UsuarioActual.CveRol = 1 AndAlso CveMetodoPago = 1 AndAlso DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TbDescuentosAdicionales.Visible Then
             If TmpDT.SUMD("Descuento") > 0 Then
                 Dim TotalDescuento As Decimal = TmpDT.SUMD("Total", "Descuento > 0") * 0.05D
                 Dim RowDescuentos = TmpDT.Select("Descuento > 0")
@@ -6211,7 +6211,6 @@ Partial Class Ventas
     End Sub
 
 
-
     Private Sub CargaEmpresaCRM(CveEmpresaCRM As Integer)
         Dim ObjCRM As New ClsCRM
         If ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa, CveEmpresaCRM) Then
@@ -6283,7 +6282,6 @@ Partial Class Ventas
         ObjCRM.Dispose()
     End Sub
 
-
     Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = -1)
 
         If CveCliente <= 0 Then Exit Sub
@@ -6511,10 +6509,6 @@ Partial Class Ventas
                     ChkEmitirComercioExterior.Checked = True
                     ChkEmitirComercioExterior_CheckedChanged(ChkEmitirComercioExterior, EventArgs.Empty)
 
-                    If CveCliente = 665317 Then
-                        ChkAplicaDestinatario.Checked = True
-                        ChkAplicaDestinatario_CheckedChanged(ChkAplicaDestinatario, EventArgs.Empty)
-                    End If
 
                 End If
 
@@ -9143,15 +9137,15 @@ Partial Class Ventas
                         EsValido = True
                     End If
 
-                    'If UsuarioActual.Empresa.Funcionalidad(133).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
+                    If UsuarioActual.Empresa.Funcionalidad(133).ToEntero() > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then
-                    '    CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo)
+                        CostoMayor = Costo + ((UsuarioActual.Empresa.Funcionalidad(133).ToDecimal / 100) * Costo)
-                    '    'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
+                        'SI EL PRECIO ES MAYOR AL COSTO, SI PASA
-                    '    If PU <= CostoMayor Then
+                        If PU <= CostoMayor Then
-                    '        EsValidoMayor = True
+                            EsValidoMayor = True
-                    '    End If
+                        End If
-                    'Else
+                    Else
-                    '    EsValidoMayor = True
+                        EsValidoMayor = True
-                    'End If
+                    End If
 
                     'VALIDA PROMOCION: SI TIENE PROMOCION Y EL PRECIO ES MENOR AL PRECIO DE PROMOCION, NO PASA | SI YA CUMPLE NO VUELVE A VALIDAR
                     If Not EsValido Or PU = 0 Then
@@ -9167,24 +9161,24 @@ Partial Class Ventas
                     End If
                     'NO DEJA REGISTRAR CON VALIDACION DE COSTO ALMACEN O PROMOCION
                     Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
-                    'If Not EsValido Then
+                    If Not EsValido Then
 
-                    '    MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo ni a un precio mayor de su rango aceptado<br/>", dr("PS").ToString())
+                        MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio menor de su Costo ni a un precio mayor de su rango aceptado<br/>", dr("PS").ToString())
-                    '    If TienePermisoImportes Then
+                        If TienePermisoImportes Then
-                    '        MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
-                    '        MensajeCosto.AppendFormat("El rango menor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero(), CostoMenor)
+                            MensajeCosto.AppendFormat("El rango menor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(129).ToEntero(), CostoMenor)
-                    '        MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
-                    '    End If
+                        End If
-                    'End If
+                    End If
 
-                    'If Not EsValidoMayor Then
+                    If Not EsValidoMayor Then
-                    '    MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", dr("PS").ToString())
+                        MensajeCosto.AppendFormat("El Producto <b>{0}</b>. No se puede vender a un precio mayor de su rango aceptado<br/>", dr("PS").ToString())
-                    '    If TienePermisoImportes Then
+                        If TienePermisoImportes Then
-                    '        MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
+                            MensajeCosto.AppendFormat("El costo del producto es: <b>{0:#,###.00}$</b> <br/>", Costo)
-                    '        MensajeCosto.AppendFormat("El rango mayor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero(), CostoMayor)
+                            MensajeCosto.AppendFormat("El rango mayor aceptado es: {0} <b>{1:#,###.00}$</b> <br/>", UsuarioActual.Empresa.Funcionalidad(133).ToEntero(), CostoMayor)
-                    '        MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
+                            MensajeCosto.AppendFormat("El precio indicado es: <b>{0:#,###.00}$</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, If(Costo > 0, ((PU - Costo) * 100) / Costo, 0))
-                    '    End If
+                        End If
-                    'End If
+                    End If
 
                     ' SOLO SI TIENE LA FUNCIONALIDAD DE RESTRICCION VALIDA EL IMPORTE CERO
                     If UsuarioActual.Empresa.Funcionalidad(139).ToString().ToEntero() > 0 Then
@@ -9359,7 +9353,7 @@ Partial Class Ventas
             TmpDTError = TmpDT.Copy()
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TbDescuentosAdicionales.Visible Then
+        If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso TbDescuentosAdicionales.Visible Then
             If LblDescuentoAdicional.Text.ToDecimal() > 0 Then
                 Dim TotalDescuento As Decimal = LblDescuentoAdicional.Text.ToDecimal() / (1D + TmpDT.MAX("PorcentajeIVA").ToString().ToDecimal())
                 Dim RowDescuentos = TmpDT.Select("Descuento > 0")
@@ -10167,6 +10161,21 @@ Partial Class Ventas
                             End If
                         End If
 
+                        If DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveEmpresaCRM > 0 AndAlso CveAcercamientoCRM > 0 Then
+
+                            Dim ArchivoCotRdlc As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.rdlc", UsuarioActual.Empresa.Ruta))
+                            Dim ArchivoCotMrt As New System.IO.FileInfo(String.Format("{0}Formatos/Cotizacion.mrt", UsuarioActual.Empresa.Ruta))
+
+                            If ArchivoCotRdlc.Exists Or ArchivoCotMrt.Exists Then
+                                MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))
+                            Else
+                                MensajeAlert.Append("Ocurrió un error al generar el PDF. Por favor vuelva a entrar a la factura para imprimir el PDF. ")
+                            End If
+                        End If
+
+
+
+
                         'ERROR DE NO TIMBRADO
                         If Not SeTimbro And (DdlTipoComprobante.SelectedValue = "Ing" Or DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") Or DdlTipoComprobante.SelectedValue = "Ant") Then
                             MensajeAlert.AppendFormat("La factura no se pudo timbrar.</b> Por favor intentelo de nuevo a traves del boton Emitir.")
@@ -10188,17 +10197,12 @@ Partial Class Ventas
                         End Select
 
 
-                        'AUTO DESCARGAR PDF
-                        If UsuarioActual.CveEmpresa.Contiene(72) Then
-                            If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") Then
-                                RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta))}'", "Imprimir")
-                            End If
-                        End If
 
                         If DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveEmpresaCRM > 0 AndAlso CveAcercamientoCRM > 0 Then
                             RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta))}'", "Imprimir")
                         End If
 
+
                         'DESCARGAR PDF DE CICOVISA
                         'If UsuarioActual.CveEmpresa = 72 And CveCliente = 70381 Then
                         '    If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
@@ -10295,8 +10299,6 @@ Partial Class Ventas
                             Liga2 = $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}"";"
                         End If
 
-
-
                         If DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveEmpresaCRM > 0 AndAlso CveAcercamientoCRM > 0 Then
                             Liga = $"document.location.href=""/CRM/Acercamiento.aspx?CveAcercamiento={CveAcercamientoCRM}&OPTAB=COT"";"
                             Alert(MensajeAlert.ToString(), TipoMensaje.MsgInformacion, Liga, TextoConfirmacion:="Aceptar", TextoSegundoBoton:=Nothing, JSBtn2:=Nothing, ShowCloseButton:=False)
@@ -10305,9 +10307,6 @@ Partial Class Ventas
                         End If
 
 
-
-
-
                         MensajeAlert.Clear()
 
                         Try
@@ -16232,8 +16231,47 @@ Partial Class Ventas
                     For Each gvr As GridViewRow In GVAnticipos.Rows
                         If gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked Then
 
+
+                            Dim FechaUltimaFluctuacion As Date = MinFecha
+                            Dim TipoCambioFluctuacion As Decimal = 1
+                            Dim tFecha As Date = Now
+
+                            Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
+
+
+                            If UsuarioActual.Empresa.Funcionalidad(703) = "1" AndAlso UltimaFluctuacion IsNot Nothing Then
+                                If UltimaFluctuacion.FechaFluctuacion <= tFecha Then
+                                    FechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
+                                    TipoCambioFluctuacion = UltimaFluctuacion.TCFluctuacion
+                                End If
+                            End If
+
+
+                            If DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 1 Then 'SI LA VENTA VIENE EN PESOS Y SE VA A PAGAR EN PESOS
+                                tipoCambioPago = 1
+                                tipoCambioVenta = 1
+                                tipoCambioVentaValuacion = 1
+                                PorcentajePago = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal
+                            ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 1 Then 'SI LA VENTA VIENE EN DOLARES Y SE VA A PAGAR EN PESOS
+                                tipoCambioPago = gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
+                                tipoCambioVenta = TxtTipoCambio.Text.ToDecimal
+                                tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal)
+                                PorcentajePago = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal) / gvr.DataKey("Original").ToDecimal
+                            ElseIf DdlMoneda.SelectedValue.ToEntero() = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then 'SI LA VENTA VIENE EN DOLARES Y SE VA A PAGAR EN DOLARES
+                                tipoCambioPago = gvr.DataKey("TipoCambio").ToString().ToDecimal
+                                tipoCambioVenta = TxtTipoCambio.Text.ToDecimal
+                                tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal)
+                                PorcentajePago = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("Original").ToDecimal
+                            ElseIf DdlMoneda.SelectedValue.ToEntero() = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero() = 2 Then 'SI LA VENTA VIENE EN PESOS Y SE VA A PAGAR EN DOLARES
+                                tipoCambioPago = gvr.DataKey("TipoCambioHoy").ToDecimal() ' gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
+                                tipoCambioVenta = 1
+                                tipoCambioVentaValuacion = If(TxtFecha.Text.ToDate < FechaUltimaFluctuacion, TipoCambioFluctuacion, TxtTipoCambio.Text.ToDecimal)
+                                PorcentajePago = (gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal) / gvr.DataKey("Original").ToDecimal
+                            End If
+
                             Dim importeMovimiento As Decimal = 0
                             Dim importeMN As Decimal = 0
+                            Dim TC As Decimal
                             Dim IdCtaContable As Integer
                             Dim TipoMovimiento As Boolean = True
                             Dim Concepto As String = VentaActual.SerieFolio
@@ -16266,14 +16304,23 @@ Partial Class Ventas
 
                                     If CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
+                                        importeMN = importeMovimiento
+                                        TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
                                     ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 2 Then
                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
+                                        importeMN = importeMovimiento * gvr.DataKey("TipoCambio").ToString().ToDecimal
+                                        TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
                                     ElseIf CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToEntero = 2 Then
                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
+                                        importeMN = importeMovimiento * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
+                                        TC = TipoCambioFluctuacion
                                     ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
+                                        importeMN = importeMovimiento
+                                        TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
                                     End If
                                     importeMovimiento = importeMovimiento.RoundSQL
+                                    importeMN = importeMN.RoundSQL
 
                                     If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(12, CveCliente) Then
                                         If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -16305,22 +16352,81 @@ Partial Class Ventas
                                     If gvr.DataKey("CveIE").ToEntero() > 0 Then
 
                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
+                                        IdCtaContable = IdCtaContClientes
 
                                         If importeMovimiento <> 0 Then
 
                                             Dim Pago As New VentaPago
-                                            Pago.ImportePagoVenta = importeMovimiento
                                             Pago.ImportePago = importeMovimiento
                                             Pago.CveIE = CveIEAnticipo
                                             Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero()
-                                            Pago.TCPago = gvr.DataKey("TipoCambio").ToDecimal
+                                            Pago.TipoPago = "A"
-                                            Pago.TipoPago = "I"
-                                            Pago.FechaDocumentoRelacionado = gvr.DataKey("Fecha").ToDate
                                             Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero()
+                                            Pago.AplicaTraslado = gvr.DataKey("RegresarImpuesto") = "1"
                                             Pago.Referencia = gvr.DataKey("Folio")
 
                                             ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
 
+                                            ' Agregamos el 2
+                                            If tipoCambioPago = 1 Then
+                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContClientes, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                    ErrorConta = True
+                                                End If
+                                            Else 'Cuando son dolares
+                                                If importeMovimiento <> 0 Then
+                                                    If IdCtaContComplementaria > 0 Or 0 > 0 Then
+                                                        'Agregamos la Complementaria
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, 0, Concepto, 207, Concepto, Now, IdCtaContComplementaria, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                            ErrorConta = True
+                                                        End If
+                                                        'Agregamos la Extranjera
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                            ErrorConta = True
+                                                        End If
+                                                    Else
+                                                        'Agregamos la Extranjera
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                            ErrorConta = True
+                                                        End If
+                                                    End If
+                                                End If
+                                            End If
+
+                                            importeMovimiento = ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / TxtTotal.Text.ToDecimal) * TxtIVA.Text.ToDecimal)
+                                            importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
+
+
+                                            'Agregamos el 92
+                                            importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal 'gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo" & gvr.RowIndex).ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
+                                            importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
+                                            IdCtaContable = IdCtaContAnticipos
+
+                                            If ObjCliente.GetClientes(gvr.DataKey("CveCliente").ToEntero(), "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+                                                If ObjCliente.DtResultados.Rows.Count > 0 Then
+                                                    If Not tipoCambioPago = 1 Then
+                                                        IdCtaContable = ObjCliente.IdCtaMonedaExtranjeraAnticipos
+                                                    Else
+                                                        IdCtaContable = ObjCliente.IdCtaContAnticipos
+                                                    End If
+                                                End If
+                                            End If
+
+                                            If UsuarioActual.CveEmpresa.Contiene(119) Then
+                                                If gvr.DataKey("Fecha").ToDate.Year <= 2017 AndAlso TxtFechaAnticipoCliente.Text.ToDate.Year >= 2018 Then
+                                                    If ObjCliente.DtResultados.Rows.Count > 0 Then
+                                                        If Not tipoCambioPago = 1 Then
+                                                            IdCtaContable = ObjCliente.IdCtaContMonedaExtranjera
+                                                        Else
+                                                            IdCtaContable = ObjCliente.IdCtaContClientes
+                                                        End If
+                                                    End If
+                                                End If
+                                            End If
+
+                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, 555, Concepto, Now, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMN, CveCuenta:=-1, TipoCambio:=tipoCambioPago, CveSubProyecto:=CveSubProyectoVenta) Then
+                                                ErrorConta = True
+                                            End If
+
                                         End If
                                     End If
                             End Select
@@ -18253,7 +18359,7 @@ Partial Class Ventas
                 Return ObjDescuento
             End If
 
-            If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Cot") AndAlso CveRinTamañoPS > 0 Then
+            If UsuarioActual.CveRol = 1 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Cot") AndAlso CveRinTamañoPS > 0 Then
                 If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Not TbDescuentosAdicionales.Visible Then
                     TbDescuentosAdicionales.Visible = True
                 End If
@@ -20601,6 +20707,7 @@ Partial Class Ventas
             Dim DtCostos As DataTable = Nothing
             Dim DtCostosDistinct As DataTable = Nothing
             Dim IdCtaContable As Integer = 0
+
             Dim ValorInventario As Decimal = 0D
             Dim TotalCostoAcumulado As Decimal = 0D
             Dim Cont As Integer = 1
@@ -22636,7 +22743,7 @@ Partial Class Ventas
             VieneDeCotizacion = True
         End If
 
-        If DdlTipoComprobante.SelectedValue = "Ing" AndAlso (Not VieneDeCotizacion) AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DtPagos IsNot Nothing AndAlso TbDescuentosAdicionales.Visible Then
+        If UsuarioActual.CveRol = 1 AndAlso DdlTipoComprobante.SelectedValue = "Ing" AndAlso (Not VieneDeCotizacion) AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DtPagos IsNot Nothing AndAlso TbDescuentosAdicionales.Visible Then
             If TmpDT.SUMD("Descuento") > 0 AndAlso DtPagos.SUMD("Importe", "MesesSinIntereses <=0") = TxtTotal.Text.ToDecimal() Then
                 Dim TotalDescuento As Decimal = TmpDT.SUMD("Total", "Descuento > 0") * 0.05D
                 Dim RowDescuentos = TmpDT.Select("Descuento > 0")