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

Acumuladores/RepUsados.aspx.cs

@@ -20,17 +20,8 @@ public partial class Ventas_RepUsados : ClsPaginas
 
     private void InicializaValores()
     {
-        CargaCliente();
+        CargaCliente();
-        txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
+        txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
-        txtFechaF.Text = DateTime.Now.LastDayOfMonth().ToShortDateString();
-        UpFiltros.Update();
-    }
-
-    private void CargaCliente()
-    {
-        if (UsuarioActual.CveEmpresa == 119) {
-            DdlClientes.setEsWebService(true);
-        }else
         txtFechaF.Text = DateTime.Now.LastDayOfMonth().ToShortDateString();
         UpFiltros.Update();
     }

App_Code/ClsBancos.vb

@@ -4807,7 +4807,7 @@ Public Class ClsBancos
             strBody.AppendFormat("                            <td>Cuenta:</td>")
             strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", NumCuenta)
             strBody.AppendFormat("                        </tr>")
-            If CuentaDepositado.ToString <> "" Then
+            If CuentaDepositado IsNot Nothing AndAlso CuentaDepositado.ToString <> "" Then
                 strBody.AppendFormat("                        <tr class='Texto'>")
                 strBody.AppendFormat("                            <td>Cuenta Destino:</td>")
                 strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", CuentaDepositado)
@@ -4926,6 +4926,7 @@ Public Class ClsBancos
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_PagosNoBancarios")
 
+        SqlAdapter.SelectCommand.CommandTimeout = 0
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor

App_Code/ClsContabilidad.vb

@@ -1032,6 +1032,9 @@ Public Class ClsContabilidad
                         If dr("AplicaProveedor").ToString = "True" Then
                             StrMsg = StrMsg + " - Proveedor: " + ClsPaginas.GlobalDTCompProveedores(tCveEmp, CveProveedor:=CveProveedor).FiltroPrimeroValor("NombreComercial", "")
                         End If
+                        If dr("AplicaPersonal").ToString = "True" Then
+                            StrMsg = StrMsg + " - Personal: " + ClsPaginas.GlobalDTRHPersonal(tCveEmp, CvePersonal:=CvePersonal).FiltroPrimeroValor("NombreCompleto", "")
+                        End If
                     End If
                 End If
                 OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", StrMsg), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
@@ -3627,7 +3630,7 @@ Public Class ClsContabilidad
 
 
 
-    Public Function GetSituacionFinanciera(FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveSubProyecto As String, TipoMovtos As Integer, Optional SAT As Integer = 0) As Boolean
+    Public Function GetSituacionFinanciera(FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveSubProyecto As String, TipoMovtos As Integer, Optional SAT As Integer = 0, Optional Opcion As Integer = 1) As Boolean
         Dim Retorno = False
 
         'SqlAdapter.SelectCommand.t
@@ -3641,6 +3644,7 @@ Public Class ClsContabilidad
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@SAT", SqlDbType.Int).Value = SAT
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
         SqlAdapter.SelectCommand.CommandTimeout = 0
 
@@ -3851,7 +3855,7 @@ Public Class ClsContabilidad
     End Function
 
     'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
-    Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
+    Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0, Optional Opcion As Integer = 1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_EstadoActividadesGet")
@@ -3864,6 +3868,7 @@ Public Class ClsContabilidad
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@SAT", SqlDbType.Int).Value = SAT
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
 
         SqlAdapter.SelectCommand.CommandTimeout = 0
@@ -5986,7 +5991,8 @@ Public Class ClsContabilidad
     Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
                                            Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
                                            Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1,
-                                           Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional RegeneraCuenta As Boolean = False,
+                                           Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional CveCredito As Integer = -1,
+                                           Optional RegeneraCuenta As Boolean = False,
                                            Optional OpActualizarClasificacion As Boolean = False) As Boolean
         Dim Retorno = False
 
@@ -6008,6 +6014,7 @@ Public Class ClsContabilidad
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
             .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
+            .Add("@CveCredito", SqlDbType.Int).Value = CveCredito
             .Add("@RegeneraCuenta", SqlDbType.Bit).Value = RegeneraCuenta
             .Add("@OpActualizarClasificacion", SqlDbType.Bit).Value = OpActualizarClasificacion
         End With
@@ -6027,7 +6034,7 @@ Public Class ClsContabilidad
                                               Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1,
                                               Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1,
                                               Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1,
-                                              Optional RegeneraCuenta As Boolean = False) As Boolean
+                                              Optional CveCredito As Integer = -1, Optional RegeneraCuenta As Boolean = False) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesUpdate")
@@ -6048,6 +6055,7 @@ Public Class ClsContabilidad
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
             .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
+            .Add("@CveCredito", SqlDbType.Int).Value = CveCredito
             .Add("@RegeneraCuenta", SqlDbType.Bit).Value = RegeneraCuenta
         End With
 

App_Code/ClsEncuestas.vb

@@ -568,6 +568,7 @@ Public Class ClsEncuestas
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@Fecha", SqlDbType.Date).Value = Now
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveEncuestaAplicada", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
         Try

App_Code/ClsPaginas.vb

@@ -6,6 +6,7 @@ Imports System.IO
 Imports System.Net.Http
 Imports System.Xml
 Imports CrystalDecisions.CrystalReports.Engine
+Imports CrystalDecisions.ReportSource
 Imports CrystalDecisions.Shared
 Imports Extensiones
 Imports iText.Kernel.Pdf
@@ -6040,7 +6041,8 @@ Public Class ClsPaginas
                     If UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 163) Then
                         Dim QRDescarga As String = ""
                         Dim cfdi As New RVCFDI33.GeneraCFDI()
-                        Dim b As Byte() = cfdi.ConvertirQrCode($"http://econollantas.adssistemas.mx/Ashx/E141.ashx?P={Encripta($"File={Vta.SerieFolio}.pdf")}")
+                        Dim Parametros As String = Encripta($"SerieFolio={Vta.SerieFolio}&TipoDocto={Vta.TipoDocto}&CveEmpresa={Vta.CveEmpresa}")
+                        Dim b As Byte() = cfdi.ConvertirQrCode($"http://econollantas.adssistemas.mx/Ashx/E141.ashx?PV={Parametros}")
                         QRDescarga = Convert.ToBase64String(b)
                         params.Add(New ReportParameter("QRDescarga", QRDescarga))
                     End If
@@ -7667,7 +7669,6 @@ Public Class ClsPaginas
 #Region "P A G O    D E   C O M P R A S "
     Public Function AplicaPrePolizaPagoCompra(CompraActual As Compra, Pago As CompraPago, CvePrePoliza As Integer, ByRef ObjConta As ClsContabilidad) As Boolean
         Dim ErrorMovtos As Boolean = False
-        Dim PorcentajePago As Decimal = Pago.ImportePago / CompraActual.Total
         Dim ImporteMovimiento As Decimal = 0
         Dim ImporteMN As Decimal = 0
         Dim ImporteME As Decimal = 0
@@ -7677,6 +7678,14 @@ Public Class ClsPaginas
         Dim tFechaUltimaFluctuacion As Date
         Dim tImportePago As Decimal
         Dim tImporteCompra As Decimal = Pago.ImportePago
+        Dim PorcentajePago As Decimal = Pago.ImportePago / CompraActual.Total
+        'VALIDACIONES A CONSIDERAR
+        If CompraActual.CveMoneda = Pago.CveMonedaPago Then
+            Pago.TCCambioMoneda = 1 ' si la moneda es igual, el importe debe ser 1
+        ElseIf CompraActual.CveMoneda <> Pago.CveMonedaPago AndAlso Pago.TCCambioMoneda = 1 Then
+            ErrorMovtos = True
+            Return ErrorMovtos
+        End If
 
         Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, CompraActual.CveMoneda, True, CompraActual.CveTipoConceptoProveedor)
         'cuando el Pago viene por NC, se utiliza un concepto
@@ -7698,28 +7707,40 @@ Public Class ClsPaginas
                 If Pago.Fecha < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion
             End If
         End If
-        If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then  'factura pesos, pago en dolares 
+
-            tImportePago = ((Pago.ImportePago * TCValuacionCompra / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL
+        tImporteCompra = (Pago.ImportePagoCompra * TCValuacionCompra).RoundSQL
-            tImporteCompra = (Pago.ImportePago * TCValuacionCompra).RoundSQL
+        tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
-        ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago <> 1 Then  'factura dolares, pago en dolares
+        PorcentajePago = Pago.ImportePago * Pago.TCCambioMoneda / CompraActual.Total
-            tImporteCompra = (Pago.ImportePago * TCValuacionCompra).RoundSQL
+
-            tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
+        'If CompraActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then  'factura pesos, pago en dolares 
-        ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago = 1 Then  'factura dolares, pago en pesos
+        '    tImportePago = ((Pago.ImportePago * TCValuacionCompra / Pago.TCPago).RoundSQL * Pago.TCPago).RoundSQL
-            tImporteCompra = (Pago.ImportePago * TCValuacionCompra).RoundSQL
+        '    tImporteCompra = (Pago.ImportePagoCompra * TCValuacionCompra).RoundSQL
-            tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
+        '    PorcentajePago = Pago.ImportePago * Pago.TCCambioMoneda / CompraActual.Total
-        End If
+        'ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago = 1 Then  'factura dolares, pago en pesos
-        Dim ImportePagoMN As Decimal = Pago.ImportePago
+        '    tImporteCompra = (Pago.ImportePagoCompra * TCValuacionCompra).RoundSQL
+        '    tImportePago = (Pago.ImportePago).RoundSQL
+        '    PorcentajePago = Pago.ImportePago * Pago.TCCambioMoneda / CompraActual.Total
+        'ElseIf CompraActual.CveMoneda <> 1 And Pago.CveMonedaPago <> 1 Then  'factura dolares, pago en dolares
+        '    tImporteCompra = (Pago.ImportePagoCompra * TCValuacionCompra).RoundSQL
+        '    tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
+        '    PorcentajePago = Pago.ImportePago / CompraActual.Total
+        'ElseIf CompraActual.CveMoneda = 1 And Pago.CveMonedaPago = 1 Then  'factura dolares, pago en pesos
+        '    tImporteCompra = Pago.ImportePagoCompra
+        '    tImportePago = Pago.ImportePago
+        '    PorcentajePago = Pago.ImportePago / CompraActual.Total
+        'End If
+        Dim ImportePagoMN As Decimal = Pago.ImportePagoCompra
         Dim UsaComplementaria As Boolean = True
-        If CompraActual.CveMoneda > 1 Then ImporteME = Pago.ImportePago
+        If CompraActual.CveMoneda > 1 Then ImporteME = Pago.ImportePagoCompra
         If UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'caso excepcional de complementarias
             UsaComplementaria = False
-            ImportePagoMN = (Pago.ImportePago * TCValuacionCompra).RoundSQL
+            ImportePagoMN = (Pago.ImportePagoCompra * TCValuacionCompra).RoundSQL
         End If
         'movimiento de pago proveedor
-        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImportePagoMN, ConPreP.CveConcepto, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto, CveVenta:=Pago.CveVentaRelacionada) Then ErrorMovtos = True
+        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePagoCompra, ImportePagoMN, ConPreP.CveConcepto, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto, CveVenta:=Pago.CveVentaRelacionada) Then ErrorMovtos = True
         'movimiento de pago proveedor Complementaria
         If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 AndAlso UsaComplementaria Then
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (ImporteME * TCValuacionCompra - ImporteME).RoundSQL, ConPreP.CveConceptoComplementario, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto, CveVenta:=Pago.CveVentaRelacionada) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePagoCompra, (ImporteME * TCValuacionCompra - ImporteME).RoundSQL, ConPreP.CveConceptoComplementario, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto, CveVenta:=Pago.CveVentaRelacionada) Then ErrorMovtos = True
         End If
         If Pago.AplicaAcreditable Then
             'si tiene iva y su proporcion
@@ -7886,6 +7907,12 @@ Public Class ClsPaginas
         Public Property CveIE As Integer = -1
         Public Property CvePersonal As Integer = -1
         Public Property ImportePago As Decimal = 0
+        Public ReadOnly Property ImportePagoCompra As Decimal
+            Get
+                Return (ImportePago * TCCambioMoneda).RoundSQL
+            End Get
+        End Property
+        Public Property TCCambioMoneda As Decimal = 1
         Public Property CveMonedaPago As Integer = 1
         Public Property TCPago As Decimal = 1
         Public Property CveCompraAmortizacion As Integer = 0
@@ -8037,43 +8064,53 @@ Public Class ClsPaginas
             End Get
         End Property
     End Class
-    ' 1. Proveedores, 11. anticipos proveedores, 15. Notas de crédito de proveedores
+    ' 1. Proveedores, 11. anticipos proveedores, 15. Notas de crédito de proveedores, 6. Clientes
-    Public Shared ReadOnly Property ObtenerCveConceptoPrePoliza(CveTipoSaldo As Integer, CveMoneda As Integer, EsAplicacionPago As Boolean, CveTipoProveedor As Integer) As ConceptosTipoSaldo
+    'CveTipoProveedorTipoDocto: cuando es TipoSaldo=2: 1. Proveedor, 2. Acreedor, TipoSaldo=6: 1.Factura, 2.NC 
+    Public Shared ReadOnly Property ObtenerCveConceptoPrePoliza(CveTipoSaldo As Integer, CveMoneda As Integer, EsAplicacionPago As Boolean, CveTipoProveedorTipoDocto As Integer) As ConceptosTipoSaldo
         Get
+
             Dim Retorno As New ConceptosTipoSaldo
             If EsAplicacionPago Then
                 Select Case CveTipoSaldo
                     Case 1 ' proveedores/acreedores
                         Select Case CveMoneda
                             Case 1 'pesos
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 17, 308)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 17, 308)
                             Case 2 'dólares
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 312, 309)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 312, 309)
-                                Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 206, 310)
+                                Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 206, 310)
                         End Select
                     Case 11 ' anticipos
                         Select Case CveMoneda
                             Case 1 'pesos
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 21, 56)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 21, 56)
                             Case 2 'dólares
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 339, 346)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 339, 346)
-                                Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 340, 347)
+                                Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 340, 347)
                         End Select
                     Case 15 ' notas de crédito
                         Select Case CveMoneda
                             Case 1 'pesos
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 60, 324)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 60, 324)
                             Case 2 'dólares
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 342, 344)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 342, 344)
-                                Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 235, 235)
+                                Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 235, 235)
                         End Select
                     Case 17 ' deudores
                         Select Case CveMoneda
                             Case 1 'pesos
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 37, 37)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 37, 37)
                             Case 2 'dólares
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 37, 37)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 37, 37)
-                                Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 256, 256)
+                                Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 256, 256)
+                        End Select
+                    Case 6 ' clientes
+                        Select Case CveMoneda
+                            Case 1 'pesos
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 2, 91) '1.Venta.2.NC
+                            Case 2 'dólares
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 292, 294) '1.Venta.2.NC
+                                Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 207, 203) '1.Venta.2.NC
                         End Select
                 End Select
             Else 'cuando es la provisión
@@ -8081,35 +8118,44 @@ Public Class ClsPaginas
                     Case 1 ' proveedores/acreedores
                         Select Case CveMoneda
                             Case 1 'pesos
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 5, 305)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 5, 305)
                             Case 2 'dólares
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 311, 306)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 311, 306)
-                                Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 201, 307)
+                                Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 201, 307)
                         End Select
                     Case 11 ' anticipos
                         Select Case CveMoneda
                             Case 1 'pesos
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 10, 48)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 10, 48)
                             Case 2 'dólares
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 338, 345)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 338, 345)
-                                Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 340, 347)
+                                Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 340, 347)
                         End Select
                     Case 15 ' notas de crédito
                         Select Case CveMoneda
                             Case 1 'pesos
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 18, 323)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 18, 323)
                             Case 2 'dólares
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 341, 343)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 341, 343)
-                                Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 234, 234)
+                                Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 234, 234)
                         End Select
                     Case 17 ' deudores
                         Select Case CveMoneda
                             Case 1 'pesos
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 43, 43)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 43, 43)
                             Case 2 'dólares
-                                Retorno.CveConcepto = If(CveTipoProveedor = 1, 43, 43)
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 43, 43)
-                                Retorno.CveConceptoComplementario = If(CveTipoProveedor = 1, 256, 256)
+                                Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 256, 256)
                         End Select
+                    Case 6 ' clientes
+                        Select Case CveMoneda
+                            Case 1 'pesos
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 1, 12) '1.Venta.2.NC
+                            Case 2 'dólares
+                                Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 291, 293) '1.Venta.2.NC
+                                Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 203, 203) '1.Venta.2.NC
+                        End Select
+
                 End Select
 
             End If
@@ -8401,6 +8447,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Nomina/ISRCalculoAnual.aspx".ToUpper(), 918)
             PaginaDict.Add("/Nomina/MovimientosSUA.aspx".ToUpper(), 919)
             PaginaDict.Add("/Nomina/Acumulados.aspx".ToUpper(), 916)
+
             PaginaDict.Add("/RH/CalculoSBC.aspx".ToUpper(), 915)
             PaginaDict.Add("/Inicio.aspx".ToUpper(), -1)
             PaginaDict.Add("/reporteador.aspx".ToUpper(), -1)

App_Code/ClsVentas.vb

@@ -1325,7 +1325,7 @@ Public Class ClsVentas
                                     CvePresupuestoIngreso As Integer, Optional TiempoEntrega As String = "", Optional CveVentaDetallePadre As Integer = -1,
                                     Optional CveContratoDetalle As Integer = -1, Optional PorcentajeIVA As Decimal = 0, Optional IEPS As Double = -1, Optional PorcentajeIEPS As Double = 0, Optional CvePromocionDetalle As Integer = -1,
                                     Optional CveMovimientoDetallePedido As Integer = -1, Optional ImporteRetIVA As Double = 0, Optional PorcentajeRetIVA As Double = 0,
-                                    Optional ImporteRetISR As Double = 0, Optional PorcentajeRetISR As Double = 0, Optional CuentaPredial As String = "") As Boolean
+                                    Optional ImporteRetISR As Double = 0, Optional PorcentajeRetISR As Double = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasDetalleAdd")
 
@@ -1355,6 +1355,7 @@ Public Class ClsVentas
             .Add("@CvePromocionDetalle", SqlDbType.Int).Value = CvePromocionDetalle
             .Add("@CveMovimientoDetallePedido", SqlDbType.Int).Value = CveMovimientoDetallePedido
             .Add("@CuentaPredial", SqlDbType.VarChar).Value = CuentaPredial
+            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
         End With
 
         Try

App_Code/Modelos.vb

@@ -301,6 +301,11 @@ Namespace Modelos
 
 
 #Region "  OBJETOS  Ventas"
+    <Serializable>
+    Public Class MPrecioSugerido
+        Public Property CvePrecioLista As Integer
+        Public Property PrecioSugerido As Decimal
+    End Class
     <Serializable>
     Public Class VentaDescuentos
         Public Consec As Integer
@@ -3324,27 +3329,12 @@ Namespace Modelos
                                         CveVentaAmortizacionAplicar = ObjFactura.CveVenta
                                     End If
 
-                                    ''código fijo en base el porcentaje iva, que se afecten las clasificaciones
-                                    'For i = 0 To TmpDTDetalle.Rows.Count - 1
-
-                                    '    'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
-                                    '    If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933") Then
-
-                                    '        'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva
-                                    '        If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows.Count > 0 Then
-                                    '            TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString.ToDecimal).Rows(0)("CveClasificacion").ToString
-                                    '        End If
-
-                                    '    End If
-
-                                    'Next
-
                                     DT = TmpDTDetalle.FiltraParametros($"CvePS <> {ObjFactura.CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"})
 
                                     If DT.Rows.Count > 0 Then
                                         'Se agrega movimiento separado por la cuenta de ventas (ER)
                                         For Each Row2 As DataRow In DT.Rows
-                                            importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal) * ValorMultiplicador)
+                                            importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString.ToDecimal) * ValorMultiplicador)
                                             importeMX = importeMovimiento * tipoCambio * Multiplicador
                                             FechaMovimiento = ObjFactura.FechaPago
                                             Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString.ToEntero > 0, ClsPaginas.GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString}"), "")} - {If(Row2("CveSubProyecto").ToString.ToEntero > 0, ClsPaginas.GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString}"), "Sin SubProyecto Asignado")}"
@@ -3388,37 +3378,12 @@ Namespace Modelos
                                         CveVentaAmortizacionAplicar = ObjFactura.CveVenta
                                     End If
 
-                                    'If UsuarioActual.CveEmpresa = 119 Then
-
-                                    '    'código fijo en base el porcentaje iva, que se afecten las clasificaciones
-                                    '    For i = 0 To TmpDTDetalle.Rows.Count - 1
-
-                                    '        'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
-                                    '        If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "20242") Then
-
-                                    '            If ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
-                                    '                TmpDTDetalle(i)("CveClasificacion") = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString
-                                    '            End If
-
-                                    '        End If
-
-                                    '    Next
-
-                                    'End If
-
                                     DT = TmpDTDetalle.FiltraParametros($"CvePS <> {ObjFactura.CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"})
 
                                     If DT.Rows.Count > 0 Then
                                         'Se agrega movimiento separado por la cuenta de ventas (ER)
                                         For Each Row2 As DataRow In DT.Rows
-                                            importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal) * ValorMultiplicador)
+                                            importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString.ToDecimal) * ValorMultiplicador)
-
-                                            'If ObjFactura.TipoDocto = "Egs" Then
-                                            '    importeMovimiento += (TmpDTDetalle.SUM("ImporteIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
-                                            '    importeMovimiento += (TmpDTDetalle.SUM("ImporteIEPS", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
-                                            '    importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
-                                            '    importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetISR", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
-                                            'End If
 
                                             importeMX = importeMovimiento * tipoCambio * Multiplicador
                                             FechaMovimiento = ObjFactura.FechaPago

App_Code/Timbrado.vb

@@ -865,7 +865,7 @@ Public Class Timbrado
                                                     <usuario xmlns="""">{UsuarioServicio}</usuario>
                                                     <passwd xmlns="""">{PassServicio}</passwd>
                                                     <rfcEmisor xmlns="""">{rfcEmisor}</rfcEmisor>
-                                                    <arregloUUID xmlns="""">{arregloUUID}|{rfcReceptor}|{rfcEmisor}|{Total}|{MotivoCancelacion}|{FolioSustitucion}</arregloUUID>
+                                                    <arregloUUID xmlns="""">{arregloUUID}|{rfcReceptor.ToEscapeXML()}|{rfcEmisor.ToEscapeXML()}|{Total}|{MotivoCancelacion}|{FolioSustitucion}</arregloUUID>
                                                     <cert xmlns="""">{certBase64}</cert>
                                                     <key xmlns="""">{keyBase64}</key>
                                                     <keyPass xmlns="""">{keyPass}</keyPass>

App_Code/modExtensiones.vb

@@ -3960,6 +3960,19 @@ Namespace Extensiones
 
             Return text
         End Function
+
+
+        <Runtime.CompilerServices.Extension()>
+        Function ToEscapeXML(ByVal str As String) As String
+            Dim text As String = ""
+
+            text = str.Replace("'", "&apos;")
+            text = str.Replace("<", "&lt;")
+            text = str.Replace(">", "&gt;")
+            text = str.Replace("&", "&amp;")
+
+            Return text
+        End Function
     End Module
 #End Region
 

Ashx/E141.ashx

@@ -99,16 +99,36 @@ Public Class E141 : Implements IHttpHandler
         Dim retorno As String = ""
         Try
             Dim Params = If(context.Request("P") = Nothing, "", context.Request("P").ToString())
+            Dim ParamsV = If(context.Request("PV") = Nothing, "", context.Request("PV").ToString())
+
+            Dim ParametrosNuevos As Boolean = False
+            If Not String.IsNullOrEmpty(ParamsV) Then
+                ParametrosNuevos = True
+                Params = ParamsV
+            End If
 
             'DESCARGA DEL PDF
             If Not String.IsNullOrEmpty(Params) Then
                 Try
-                    Dim UrlParametros As Hashtable = Parametros(Decripta(Params))
+                    If ParametrosNuevos Then
+                        Dim UrlParametros As Hashtable = Parametros(Decripta(Params))
 
-                    Dim File As String = UrlParametros("FILE").ToString()
+                        Dim File As String = String.Format("{0}.pdf", UrlParametros("SERIEFOLIO").ToString())
-                    If Not String.IsNullOrEmpty(File) Then
+                        Dim TipoDocto As String = UrlParametros("TIPODOCTO").ToString()
-                        ImprimirbytesPDF(context, DescargarFactura(File), File)
+                        Dim CveEmpresaParam As Integer = UrlParametros("CVEEMPRESA").ToString().ToEntero()
+
+                        If Not String.IsNullOrEmpty(File) AndAlso Not String.IsNullOrEmpty(TipoDocto) AndAlso CveEmpresaParam > 0 Then
+                            ImprimirbytesPDF(context, DescargarFactura(File, CveEmpresaParam, TipoDocto), File)
+                        End If
+                    Else
+                        Dim UrlParametros As Hashtable = Parametros(Decripta(Params))
+
+                        Dim File As String = UrlParametros("FILE").ToString()
+                        If Not String.IsNullOrEmpty(File) Then
+                            ImprimirbytesPDF(context, DescargarFactura(File, Me.CveEmpresa), File)
+                        End If
                     End If
+
                 Catch ex As Exception
                     GuardaLogAD("Ocurrió un error al descargar el pdf. " + ex.ToString() + ".parametros: " + Params, "LogE141")
                 End Try
@@ -2202,8 +2222,8 @@ Public Class E141 : Implements IHttpHandler
 
 #Region "D E S C A R G A  - P  D F"
 
-    Private Function DescargarFactura(FilePDF As String) As Byte()
+    Private Function DescargarFactura(FilePDF As String, CveEmpresa As Integer, Optional TipoDocto As String = "Ing") As Byte()
-        Dim Url = New Uri(String.Format("{0}://{1}:{2}/Compras/PopUpVerFactura.aspx?TipoDocto=Ing&File={3}&TipoArchivo=PDF", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, FilePDF))
+        Dim Url = New Uri(String.Format("{0}://{1}:{2}/Compras/PopUpVerFactura.aspx?TipoDocto={4}&File={3}&TipoArchivo=PDF", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, FilePDF, TipoDocto))
         Dim File As Byte() = Nothing
         Try
             Using httpClient = New HttpClient()

Bancos/Creditos.aspx

@@ -493,7 +493,7 @@
                                                         <ajax:ValidatorCalloutExtender ID="VCEProveedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVProveedor" Width="300px"></ajax:ValidatorCalloutExtender>
                                                     </td>
                                                 </tr>
-                                                <tr>
+                                                  <tr runat="server" id="trClasifContable" visible="false">
                                                     <td colspan="2">
                                                         <asp:RadioButtonList runat="server" ID="RBLClasificacionContable" AutoPostBack="true" RepeatDirection="Horizontal">
                                                             <asp:ListItem Text="Doc x Pagar" Value="1" Selected="True"></asp:ListItem>
@@ -501,7 +501,7 @@
                                                         </asp:RadioButtonList>
                                                     </td>
                                                 </tr>
-                                                <tr>
+                                                 <tr runat="server" id="trCtaContable" visible="false">
                                                     <td>Cuenta Contable:</td>
                                                     <td>
                                                         <asp:UpdatePanel runat="server" ID="UpCtaContable" UpdateMode="Conditional">

Bancos/Creditos.aspx.vb

@@ -549,7 +549,7 @@ Partial Class Bancos_Creditos
         DdlCtaContable.Items.Clear()
         Dim IdCuentaPadre As Integer = If(RBLClasificacionContable.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(203).ToEntero, UsuarioActual.Empresa.Funcionalidad(202).ToEntero)
 
-        If IdCuentaPadre > 0 Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso IdCuentaPadre > 0 Then
             Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
             If ObjContabilidad.GetCuentasRecursiva(IdCuentaPadre, 1) Then
                 DdlCtaContable.DataSource = ObjContabilidad.DtResultados

Bancos/IE.aspx.vb

@@ -1034,34 +1034,28 @@ Partial Class Bancos_IE
                 IDPoliza = ObjIE.IDPoliza
                 IDCtaContable = ObjIE.IdCtaContable
 
+                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                    If ObjIE.IDPoliza > 0 Then
 
-                If ObjIE.IDPoliza > 0 Then
+                        If UsuarioActual.TienePermisoProceso(107) Then
-
+                            BtnDescontabilizar.Visible = True
-                    If UsuarioActual.TienePermisoProceso(107) Then
+                        End If
-                        BtnDescontabilizar.Visible = True
+                        BtnContabilizar.Visible = False
+                        HplIrPoliza.Visible = True
+                        HplIrPoliza.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", ObjIE.IDPoliza)
+                        'ImgEliminarMovimiento.OnClientClick = "return confirm('Esta seguro de eliminar el documento y su póliza?');"
+                        LnkEliminar.OnClientClick = "return confirm('¿Está seguro de eliminar el documento y su póliza?');"
+                        EstaContabilizado = True
+                        TxtFechaDocumento.Enabled = False
+                        ImgCalendario.Visible = False
+                    Else
+                        BtnContabilizar.Visible = True
+                        BtnDescontabilizar.Visible = False
+                        HplIrPoliza.Visible = False
+                        EstaContabilizado = False
                     End If
-                    BtnContabilizar.Visible = False
-                    HplIrPoliza.Visible = True
-                    HplIrPoliza.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", ObjIE.IDPoliza)
-                    'ImgEliminarMovimiento.OnClientClick = "return confirm('Esta seguro de eliminar el documento y su póliza?');"
-                    LnkEliminar.OnClientClick = "return confirm('¿Está seguro de eliminar el documento y su póliza?');"
-
-                    EstaContabilizado = True
-
-                    TxtFechaDocumento.Enabled = False
-                    ImgCalendario.Visible = False
-
-
-                Else
-                    BtnContabilizar.Visible = True
-                    BtnDescontabilizar.Visible = False
-                    HplIrPoliza.Visible = False
-                    EstaContabilizado = False
-
-                    'TxtFechaDocumento.Enabled = True
-                    'ImgCalendario.Visible = True
-
                 End If
+
                 UPPDesContabilizar.Update()
 
                 'ImgImprimir.Visible = True
@@ -1416,9 +1410,9 @@ Partial Class Bancos_IE
 
                     IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor
 
-                    If Not IDCtaBeneficiario > 0 Then
+                    'If Not IDCtaBeneficiario > 0 Then
-                        Alert("No se pudo cargar IDCtaBeneficiario", TipoMensaje.MsgAdvertencia)
+                    '    Alert("No se pudo cargar IDCtaBeneficiario", TipoMensaje.MsgAdvertencia)
-                    End If
+                    'End If
 
                 End If
 
@@ -2651,6 +2645,7 @@ Partial Class Bancos_IE
                     Case "P"  'Proveedores
                         If CveProveedor > 0 Then
                             CveConceptoCompra = 10 'Anticipo a proveedor 
+                            If CveMoneda = 2 Then CveConceptoCompra = 338
                             CveConceptoContable = 30 'Pago a Proveedor
                             CvePlantillaPoliza = 3
                         End If
@@ -2665,6 +2660,7 @@ Partial Class Bancos_IE
                     Case "AC" ' Acreedores Diversos
                         If CveProveedor > 0 Then
                             CveConceptoCompra = 48  'anticipo a acreedor diverso
+                            If CveMoneda = 2 Then CveConceptoCompra = 345
                             CveConceptoContable = 30 'Bancos
                             'limpio el iva
                             HdnProvPorIVA.Value = "0"
@@ -2720,7 +2716,11 @@ Partial Class Bancos_IE
             Dim FolioFijo As Integer = 0
             Dim tCveMoneda As Integer = CveMoneda
             Dim tImporteMonedaExtranjera As Decimal = TxtImporte.Text.ToDecimal
-            If tCveMoneda <> 1 Then tImporteMonedaExtranjera = (TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal).RoundSQL
+            Dim tImporteMonedaME As Decimal = 0
+            If tCveMoneda <> 1 Then
+                tImporteMonedaExtranjera = (TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal).RoundSQL
+                tImporteMonedaME = TxtImporte.Text.ToDecimal
+            End If
             Dim PagueseA = ""
 
             If HdnCveCliente.Value.ToEntero > 0 Then
@@ -2884,7 +2884,7 @@ Partial Class Bancos_IE
 
                                         Select Case ConceptoContable
 
-                                            Case 10
+                                            Case 10, 338, 345
                                                 If RBL.SelectedValue = "P" AndAlso CveProveedor > 0 Then
                                                     importeMovimiento = TxtImporte.Text.ToDecimal
                                                     importeMX = importeMovimiento
@@ -3596,71 +3596,46 @@ Partial Class Bancos_IE
 
                                 Dim ConceptoContable As Integer
                                 Dim TipoMovimiento As Boolean
-                                Dim importeMovimiento As Decimal
+                                Dim importeMovimiento As Decimal = TxtImporte.Text.ToDecimal
                                 Dim FechaMovimiento As Date = Now
                                 Dim Concepto As String = ""
                                 Dim Referencia As String = PagueseA
+                                Dim CveCredito As Integer
 
-                                Dim importeMX As Decimal
+                                CveCredito = IfNull(Request("CveCredito"), "-1").ToString.ToEntero
-                                Dim Multiplicador As Integer
+                                CveCreditoDetalle = IfNull(Request("CveCreditoDetalle"), "-1").ToString.ToEntero
+                                Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio)
 
-                                If ObjMov.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Concepto, 57, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCredito:=CveCredito) Then
-
+                                    MsgError = "Ocurrió un error al registrar el asiento del ingreso."
-                                    For Each Row As DataRow In ObjMov.DtResultados.Rows
-
-                                        ConceptoContable = Row("CveConcepto").ToString.ToEntero
-                                        TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
-                                        importeMovimiento = 0
-                                        Multiplicador = (Row("Multiplicador").ToString.ToEntero)
-                                        Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio)
-
-                                        Select Case ConceptoContable
-
-                                            Case 30
-                                                importeMovimiento = TxtImporte.Text.ToDecimal
-                                                importeMX = importeMovimiento
-                                                If tCveMoneda > 1 Then
-                                                    'Agregamos complementaria
-                                                    Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
-
-                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC) Then
-                                                        MsgError = "Ocurrió un error al registrar el asiento del ingreso."
-                                                    End If
-                                                End If
-                                            Case 42
-
-                                                importeMovimiento = TxtImporte.Text.ToDecimal
-                                                importeMX = importeMovimiento
-                                                If tCveMoneda > 1 Then
-                                                    importeMovimiento = TxtImporte.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal
-                                                    importeMX = importeMovimiento
-                                                End If
-
-
-                                            Case 46
-                                                If TxtInteresMoratorio.Text.ToDecimal > 0 Then
-                                                    importeMovimiento = TxtInteresMoratorio.Text.ToDecimal
-                                                    importeMX = importeMovimiento
-                                                Else
-                                                    importeMovimiento = 0
-                                                    importeMX = 0
-                                                End If
-                                            Case 48
-
-                                                importeMovimiento = TxtImporte.Text.ToDecimal
-                                                importeMX = importeMovimiento
-
-                                        End Select
-
-                                        If importeMovimiento <> 0 Then
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
-                                                MsgError = "Ocurrió un error al registrar el asiento del ingreso."
-                                            End If
-                                        End If
-
-                                    Next
                                 End If
 
+                                If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Concepto, 30, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCredito:=CveCredito) Then
+                                    MsgError = "Ocurrió un error al registrar el asiento del ingreso."
+                                End If
+
+                                If MsgError = "" AndAlso tCveMoneda > 1 Then
+                                    'Agregamos complementaria
+                                    Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
+
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCredito:=CveCredito) Then
+                                        MsgError = "Ocurrió un error al registrar el asiento del ingreso."
+                                    End If
+                                End If
+
+
+                                '        Case 46
+                                '            If TxtInteresMoratorio.Text.ToDecimal > 0 Then
+                                '                importeMovimiento = TxtInteresMoratorio.Text.ToDecimal
+                                '                importeMX = importeMovimiento
+                                '            Else
+                                '                importeMovimiento = 0
+                                '                importeMX = 0
+                                '            End If
+
+
+
+
                             Case Else
                                 Dim TipoMovimiento As Boolean = True
 
@@ -3681,7 +3656,7 @@ Partial Class Bancos_IE
 
 
                                 'MOVIMIENTOS EGRESOS
-                                If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=Importe30, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
+                                If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=Importe30, ImporteME:=tImporteMonedaME, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
                                     Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
                                     If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=If(UsaComplementariaBancos, TxtImporte.Text.ToDecimal, tImporteMonedaExtranjera), ImporteME:=TxtImporte.Text.ToDecimal, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then
                                         If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
@@ -3702,12 +3677,12 @@ Partial Class Bancos_IE
                                 If tCveMoneda > 1 And UsaComplementariaBancos Then
                                     Dim ImporteAplicar As Decimal = TxtImporte.Text.ToDecimal
                                     Dim ImporteAplicarMN = (ImporteAplicar * TxtTipoCambio.Text.ToDecimal - ImporteAplicar).RoundSQL()
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=tImporteMonedaME, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
                                         MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                     End If
 
-                                    If CveConceptoCompra = 10 Then
+                                    If CveConceptoCompra.Contiene(10, 338, 48, 345) Then
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, 266, Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, If(CveConceptoCompra = 10, 266, 340), Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
                                             MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                         End If
                                     End If
@@ -3873,8 +3848,12 @@ Partial Class Bancos_IE
                 End If
             End If
 
-            If IDPoliza > 0 Then
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
-                Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza)
+                Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza)
+            Else
+                If IDPoliza > 0 Then
+                    Msg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza)
+                End If
             End If
 
             'AUTO DESCARGAR PDF PARA COMPU
@@ -3888,7 +3867,7 @@ Partial Class Bancos_IE
         Else
             ObjIE.RollBack()
             Alert(MsgError, TipoMensaje.MsgAdvertencia)
-            If Opcion = "INGPC" Then
+            If Opcion.Contiene("INGPC", "EGSCREDITO") Then
                 CveIE = -1
             End If
         End If

Bancos/PolizaCheque.aspx

@@ -24,7 +24,7 @@
                             <div class="row">
                                 <label class="col-md-2">Tipo Mov:</label>
                                 <div class="col-md-10">
-                                    <asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" Width="156px" ValidationGroup="GrpGuardar">
+                                    <asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" Width="250px" ValidationGroup="GrpGuardar">
                                     </asp:DropDownList>
                                     <asp:HiddenField ID="HdnTipoTransaccion" runat="server" Value="" />
                                 </div>
@@ -213,7 +213,7 @@
             </table>--%>
             <br />
             <div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
-                <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CveSubProyecto,CvePersonal" ShowHeaderWhenEmpty="true" Width="100%" CssClass="table table-striped table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CveSubProyecto,CvePersonal,CveCuenta" ShowHeaderWhenEmpty="true" Width="100%" CssClass="table table-striped table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None">
                     <Columns>
                         <asp:TemplateField>
                             <HeaderTemplate>Código</HeaderTemplate>

Bancos/PolizaCheque.aspx.vb

@@ -155,6 +155,7 @@ Partial Class Bancos_PolizaCheque
             Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True
             With DtMovimientos.Columns
                 .Add("IdCuenta", Type.GetType("System.Int32"))
+                .Add("CveCuenta", Type.GetType("System.Int32"))
                 .Add("CodigoCuenta", Type.GetType("System.String"))
                 .Add("Cuenta", Type.GetType("System.String"))
                 .Add("Referencia", Type.GetType("System.String"))
@@ -401,6 +402,7 @@ Partial Class Bancos_PolizaCheque
         Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden")
         Dim Cuenta As String = ""
         Dim IdCuenta As Integer = 0
+        Dim CveCuenta As Integer = 0
         Dim CodigoCuenta As String = ""
         Dim NombreCuenta As String = ""
         Dim EsComodin As Integer = 0
@@ -412,6 +414,7 @@ Partial Class Bancos_PolizaCheque
 
             Cuenta = drt("ConceptoContable").ToString
             IdCuenta = 0
+            CveCuenta = 0
             CodigoCuenta = ""
             NombreCuenta = ""
 
@@ -420,7 +423,7 @@ Partial Class Bancos_PolizaCheque
                     Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", drt("CveCuenta").ToString))
 
                     If drr IsNot Nothing Then
-                        IdCuenta = drt("IdCtaContable").ToString.ToEntero
+                        CveCuenta = drt("CveCuenta").ToString.ToEntero
                         CodigoCuenta = drr("CuentaFormato").ToString()
                         NombreCuenta = drr("Nombre").ToString()
                         'Cuenta = drr("Nombre").ToString()
@@ -469,7 +472,8 @@ Partial Class Bancos_PolizaCheque
 
 
             Dim dr As DataRow = DtMovimientos.NewRow
-            dr("IdCuenta") = IdCuenta
+            dr("IdCuenta") = IdCuenta
+            dr("CveCuenta") = CveCuenta
             dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
             dr("Cuenta") = Cuenta  'TxtCuentaContable.Text
             dr("RazonSocial") = drt("RazonSocial")
@@ -566,24 +570,8 @@ Partial Class Bancos_PolizaCheque
                 dr("CvePersonal") = drt("CvePersonal")
 
                 DtMovimientos.Rows.Add(dr)
-            Next
+            Next
-            'Dim drtt As DataRow = DtMovimientos.NewRow
+
-            'drtt("IdCuenta") = 0
-            'drtt("CodigoCuenta") = ""
-            'drtt("Cuenta") = Cuenta
-            'drtt("RazonSocial") = ""
-            'drtt("Concepto") = ""
-            'drtt("TipoMovto") = 0
-            'drtt("EsComodin") = EsComodin
-            'drtt("CveConcepto") = 44
-            'drtt("CveProveedor") = "-1"
-            'drtt("SubProyecto") = ""
-            'drtt("Proyecto") = ""
-            'drtt("Personal") = ""
-            'drtt("CveSubProyecto") = -1
-            'drtt("CvePersonal") = -1
-            'DtMovimientos.Rows.Add(drtt)
-
             ObjNomina.Dispose()
             ObjConta.Dispose()
 
@@ -809,20 +797,8 @@ Partial Class Bancos_PolizaCheque
             If UsuarioActual.CveEmpresa = 119 Then
                 e.Row.FCLiteral("LtlSP").Visible = False
                 e.Row.FCDropDownList("DdlSubProyecto").Visible = True
-            End If
+            End If
-            'cuando se modifica el importe de la cuenta bancaria que se actualice el importe del documento
+
-            'If e.Row.DBCampo("EsComodin") = "1" Then
-            '    If e.Row.DBCampo("TipoMovto") = "1" Then
-            '        e.Row.FCTextBox("TxtAbono").Attributes.Add("onkeyup", "FncImporte('TxtImporte',this.id,2)")
-            '        e.Row.FCTextBox("TxtAbono").Text = TxtImporte.Text
-            '    Else
-            '        e.Row.FCTextBox("TxtCargo").Attributes.Add("onkeyup", "FncImporte('TxtImporte',this.id,2)")
-            '        e.Row.FCTextBox("TxtCargo").Text = TxtImporte.Text
-            '    End If
-            '    TxtImporte.Attributes.Add("onkeyup", String.Format("FncImporte(this.id,'{0}',1)", e.Row.FCTextBox(If(e.Row.DBCampo("TipoMovto") = "1", "TxtAbono", "TxtCargo")).ClientID))
-
-            '    UPPImporte.Update()
-            'End If
         End If
     End Sub
 
@@ -966,7 +942,7 @@ Partial Class Bancos_PolizaCheque
                                                 Importe = Importe * TC
                                             End If
 
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, TipoCambio:=TC) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, TipoCambio:=TC, CveCuenta:=gvr.DataKey("CveCuenta").ToEntero) Then
                                                 MsgError = "no se pudo insertar el detalle de la póliza2"
                                             End If
 
@@ -1009,12 +985,6 @@ Partial Class Bancos_PolizaCheque
                             MsgError = "No se insertó el encabezado"
                         End If
 
-                        'If ChkContabilizar.Checked AndAlso UsuarioActual.Empresa.UsaContabilidad Then
-                        '    If Not ObjIE.UpdateIEPrePoliza(TxtFechaDocumento.Text.ToDate, NumPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0) Then
-                        '        MsgError = "Error al actualizar la poliza"
-                        '    End If
-                        'End If
-
                     Catch ex As Exception
                         MsgError = "Error"
                     End Try
@@ -1030,20 +1000,17 @@ Partial Class Bancos_PolizaCheque
                         End If
                     End If
 
-
                     'El movimiento 2 es el de Pago
                     If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
-                        If idCuentaContabilizacion > 0 Then
+
-                            If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+                        If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                                'Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
+                            'Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
-                                IDPoliza = ObjMov.ContaIdPoliza
+                            IDPoliza = ObjMov.ContaIdPoliza
-                            Else
-                                MsgError = "Error al contabilizar"
-                                Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
-                            End If
                         Else
-                            Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas", TipoMensaje.MsgError)
+                            MsgError = "Error al contabilizar"
+                            Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
                         End If
+
                     End If
 
 
@@ -1067,7 +1034,15 @@ Partial Class Bancos_PolizaCheque
                         TxtImporte.Text = ""
                         TxtPagueseA.Text = ""
                         TxtObservaciones.Text = ""
-                        Alert($"El Movimiento se guardo correctamente <br><br> <a href=""/Bancos/IE.aspx?CveIE={CveIE}"" target=""_blank"">Movimiento</a><br/><a href=""/Contabilidad/RegPoliza.aspx?IdPoliza={ObjMov.ContaIdPoliza}"" target=""_blank"">{If(ObjMov.ContaIdPoliza > 0, "Ver Póliza", "")}</a>", TipoMensaje.MsgInformacion, "window.location.reload();")
+                        Dim StrMsg As New StringBuilder
+                        StrMsg.AppendFormat("El Movimiento se guardo correctamente <br><br> <a href=""/Bancos/IE.aspx?CveIE={0}"" target=""_blank"" class='Texto'>Movimiento</a><br/>", CveIE)
+                        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                            StrMsg.AppendFormat("<br/><a href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"" target=""_blank"" class='Texto'> Ver Póliza</a>", CvePrePoliza)
+                        Else
+                            StrMsg.AppendFormat("<br/><a href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" target=""_blank"" class='Texto'> Ver Póliza</a>", ObjMov.ContaIdPoliza)
+                        End If
+
+                        Alert(StrMsg.ToString, TipoMensaje.MsgInformacion, "window.location.reload();")
                     Else
                         Alert(MsgError.ToString, TipoMensaje.MsgError)
                         ObjIE.RollBack()
@@ -1090,8 +1065,6 @@ Partial Class Bancos_PolizaCheque
             Alert("La suma de los movimientos no son iguales", TipoMensaje.MsgAdvertencia)
         End If
 
-
-
     End Sub
     '' -------------------------------------- codigo para generar la poliza del cheque
 

Bancos/PopIECompras.aspx.vb

@@ -1402,11 +1402,15 @@ Partial Class Bancos_PopIECompras
         'Tipos de cambio
         If Pago.CveMonedaPago = 1 AndAlso CompraActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en Pesos
             Pago.TCPago = TxtTipoCambio.Text.ToDecimal
+            Pago.TCCambioMoneda = 1 / TxtTipoCambio.Text.ToDecimal
         ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES
             Pago.TCPago = TxtTipoCambio.Text.ToDecimal
         ElseIf Pago.CveMonedaPago = 2 AndAlso CompraActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
             Pago.TCPago = TxtTipoCambio.Text.ToDecimal
+            Pago.TCCambioMoneda = TxtTipoCambio.Text.ToDecimal
         End If
+        If ChkPagarPesos.Checked Then Pago.TCCambioMoneda = 1 / TxtTipoCambio.Text.ToDecimal
+        If ChkPagarDolares.Checked Then Pago.TCCambioMoneda = TxtTipoCambio.Text.ToDecimal
 
         If TxtComision.Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = TxtComision.Text.ToDecimal Else Pago.OtroGastoIngreso = 0
 
@@ -1416,6 +1420,7 @@ Partial Class Bancos_PopIECompras
                 If Not CveIE > 0 Then
                     MsgError = "Ocurrio un Error al registrarse el movimiento bancario."
                 End If
+
                 'Importe de pago
                 Pago.ImportePago = ImportePagado
                 Pago.CveIE = CveIE
@@ -1473,8 +1478,6 @@ Partial Class Bancos_PopIECompras
                     Alert("No se encontro movimientos bancarios de personal", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
-
-
                 Dim saldo As Decimal = DtCheques.Rows(DDlCheques.SelectedIndex)("Saldo").ToString.ToDecimal
 
                 If TxtImporte.Text.ToDecimal > saldo Then
@@ -1503,6 +1506,8 @@ Partial Class Bancos_PopIECompras
                         Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
                         Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
                         Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
+                        If ChkPagarPesos.Checked Then Pago.TCCambioMoneda = 1 / rw.DataKey("TipoCambio").ToDecimal
+                        If ChkPagarDolares.Checked Then Pago.TCCambioMoneda = rw.DataKey("TipoCambio").ToDecimal
 
                         If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then
                             MsgError = "No se pudo insertar la póliza"
@@ -1542,14 +1547,18 @@ Partial Class Bancos_PopIECompras
                     Exit Sub
                 End If
 
-                For Each rw As GridViewRow In GvDeudores.Rows
+                For Each rw As GridViewRow In GvAcreedores.Rows
                     If rw.FCCheckBox("Chk").Checked AndAlso rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal <> 0 Then
+                        Dim TCC As Decimal = 1
+                        Pago = New CompraPago
+                        If ChkPagarPesos.Checked Then Pago.TCCambioMoneda = 1 / TxtTipoCambio.Text.ToDecimal
+                        If ChkPagarDolares.Checked Then Pago.TCCambioMoneda = TxtTipoCambio.Text.ToDecimal
                         Pago.CveIE = rw.DataKey("CveIE").ToEntero
                         Pago.CveMonedaPago = rw.DataKey("CveMoneda").ToEntero
                         Pago.ImportePago = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
-                        Pago.TCPago = rw.DataKey("TipoCambio").ToDecimal
+                        Pago.TCPago = TxtTipoCambio.Text.ToDecimal
-                        Pago.CveProveedor = DdlDeudor.SelectedValue.ToEntero
+                        Pago.CveProveedor = DdlAcreedor.SelectedValue.ToEntero
-                        Pago.TipoPago = "DD"
+                        Pago.TipoPago = "Egsc"
                         If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjMov) Then
                             MsgError = "No se pudo insertar la póliza"
                         Else
@@ -1624,9 +1633,14 @@ Partial Class Bancos_PopIECompras
             If ObjConta IsNot Nothing Then ObjConta.Commit()
             Dim StrMsg As New StringBuilder
             StrMsg.Append("El Documento se guardó correctamente.<br/>")
-            If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa)
+            If TipoTransaccion = "Egs" AndAlso CveIE > 0 Then GeneraChequePDF(CveIE, UsuarioActual.Empresa)
-            If IdPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then StrMsg.AppendFormat("<br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
-
+                StrMsg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza)
+            Else
+                If IdPoliza > 0 Then
+                    StrMsg.AppendFormat("<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
+                End If
+            End If
             If RBLContado.SelectedValue.ToEntero = 6 And ChkEmitirComplementoPago.Checked Then GeneraTimbre(CvePrePoliza) Else Alert(StrMsg.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
 
             EnviarCorreoNotificacion(CveIE, NotificarA, "", UsuarioActual, False)

Bancos/PopIEVentas.aspx.vb

@@ -3402,17 +3402,14 @@ Partial Class Bancos_PopIEVentas
 
                                     'Conta ContPAQ
                                     If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
-                                        If idCuentaContabilizacion > 0 Then
 
-                                            If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+                                        If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                                                IdPoliza = ObjMov.ContaIdPoliza
+                                            IdPoliza = ObjMov.ContaIdPoliza
-                                                ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
+                                            ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
-                                            Else
-                                                Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
-                                            End If
                                         Else
-                                            Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son invalidas: {0}", CuentasContablesInvalidas))
+                                            Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
                                         End If
+
                                     End If
 
                                 End If
@@ -3461,11 +3458,12 @@ Partial Class Bancos_PopIEVentas
             If IdPoliza > 0 Then
                 StrMsg.AppendFormat("<br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
             End If
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                StrMsg.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, ObjMov.ContaFolio)
+            End If
 
             Alert($"{StrMsg.ToString}<br/>", TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
 
-            'Limpiar
-            'LimpiarTodo()
         Else
             ObjIE.RollBack()
             Alert(MsgError, TipoMensaje.MsgError)

Bancos/PrestamoPersonal.aspx.cs

@@ -453,12 +453,21 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
             //        Msg.AppendFormat(@"<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">{1}</a> ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE)), String.Format("Imprimir {0}", DdlTipoTransaccion.SelectedItem));
             //    }
             //}
+             
+            ObjIE.Commit();
+
+            if (UsuarioActual.Empresa.TipoContabilidad == 1)
+            {
+                Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza);
+            }
+            else
+            {
+                if (IDPoliza > 0)
+                {
+                    Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);
+                }
+            }                       
 
-            if (IDPoliza > 0)
-            {
-                Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);
-            }
-            ObjIE.Commit();
         }
         else
         {
@@ -757,10 +766,17 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
                 archivo = new System.IO.FileInfo(String.Format("{0}Formatos/ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta, DdlCuentaPrestamo.SelectedValue.ToEntero()));
             }
 
-            if (IDPoliza > 0)
+            if (UsuarioActual.Empresa.TipoContabilidad == 1)
-            {
+            {
-                Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);
+                Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza);
-            }
+            }
+            else
+            {
+                if (IDPoliza > 0)
+                {
+                    Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);
+                }
+            }           
 
         }
         else

Bancos/ProveedoresAbonar.aspx.vb

@@ -1101,7 +1101,7 @@ Partial Class Bancos_ProveedoresAbonar
                         Msg.AppendFormat("<li> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir movimiento</a></li> ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE)))
                         'End If
                         Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Listado</a></li>", Encripta(String.Format("OP=ImprimeMov&CveIE={0}", CveIE)))
-                        If IDPoliza > 0 Then Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Póliza</a></li>", IDPoliza)
+                        If IDPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Póliza</a></li>", IDPoliza)
 
                         Dim Mensaje As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Msg.ToString)
 

Compras/Compras.aspx

@@ -5897,15 +5897,16 @@
                     txtvalue = ToDouble(txtvalue * TCAnticipo);
                     importevalue = ToDouble(importevalue * TCAnticipo);
                 }
-            }                    
+            }
+            else { TCC = 1; }
             var DifSaldo = (TotalSaldoCompra - FnSumaValoresAnt()).toFixed(2); // le agrego lo del valor actual para validarlo
 
             if (t.checked)
             {                
                 if (DifSaldo > importevalue) {                         
-                        txt.value = ToDouble(importevalue*TCC).toFixed(2);                       
+                    txt.value = toFixed(ToDouble(importevalue*TCC),2);                       
                     } else { 
-                    txt.value = ToDouble(DifSaldo*TCC).toFixed(2);                                    
+                    txt.value = toFixed(ToDouble(DifSaldo*TCC),2);                                    
                     } 
             } else {              
                 txt.value = "";
@@ -5914,7 +5915,7 @@
             $("#LblTotalAnticipos").text(FormatoNumero(FnSumaValoresAnt(), 2));
             $("#LblAplicadoCompraAnt").text(FormatoNumero(FnSumaValoresAnt(), 2));            
             $("#LblAplicadoCompraAntComision").text(FormatoNumero(FnSumaValoresAntComisiones(), 2));            
-            $("#LblSaldoFactura").text(FormatoNumero(TotalSaldo - FnSumaValoresAnt(), 2));
+            $("#LblSaldoFactura").text(FormatoNumero(TotalSaldoCompra - FnSumaValoresAnt(), 2));
 
 
         }
@@ -5948,7 +5949,7 @@
                 txtvalue = ToDouble(txtvalue * TCAnticipo);
             }
 
-            var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + ToDouble(txtvalue)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2));
+            var SaldoCompra = toFixed(TotalSaldo - FnSumaValoresAnt() + ToDouble(txtvalue),2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2));
           
             if (SaldoCompra < 0) txt.value = SaldoCompra - txtvalue;
             //minimo entre saldocompra y el saldoanticipo
@@ -5971,6 +5972,11 @@
             $("#LblSaldoFactura").text(FormatoNumero(TotalSaldo - FnSumaValoresAnt(), 2));
 
         }
+        //funcion para truncar en lugar de redondear
+        function toFixed(num, fixed) {
+            var re = new RegExp('^-?\\d+(?:\.\\d{0,' + (fixed || -1) + '})?');
+            return num.toString().match(re)[0];
+        }
 
         function FnSumaValoresAnt() {
             var totalPoints = 0;

Contabilidad/CatCuentas.aspx.vb

@@ -29,6 +29,9 @@ Partial Class Contabilidad_CatCuentas
         If Not Page.IsPostBack Then
             'inicio()
             'RegistraScript("$('#Tsubcuenta').mask('00000-0000-0000-00000');")
+            If UsuarioActual.Empresa.TipoContabilidad = 1 OrElse UsuarioActual.CveEmpresa = 119 Then
+                Server.Transfer("/Contabilidad2/CatCuentas.aspx")
+            End If
 
             If UsuarioActual.Empresa.UsaContabilidad Then
                 CargaMonedas()

Contabilidad/ContabilizacionCompras.aspx

@@ -192,7 +192,7 @@
                                                                         <asp:LinkButton ID="LnkSimplificar" runat="server" OnClick="LnkSimplificarCompra_Click" ToolTip="Simplificar Póliza"><i class='fa fa-exchange'></i></asp:LinkButton>
                                                                     </td>
                                                                     <td style="width: 70px; text-align: left;">
-                                                                        <asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Ver Poliza" NavigateUrl='<%# Eval("IdPoliza", "/Contabilidad/RegPoliza.aspx?IdPoliza={0}")%>'></asp:HyperLink>
+                                                                        <asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" CssClass="Texto" Text="Ver Poliza"  ></asp:HyperLink>
                                                                     </td>
                                                                 </tr>
                                                                 <tr style="color: black;">
@@ -296,7 +296,7 @@
                                                                         <asp:LinkButton ID="LnkSimplificar" runat="server" OnClick="LnkSimplificar_Click" ToolTip="Simplificar Póliza"><i class='fa fa-exchange'></i></asp:LinkButton>
                                                                     </td>
                                                                     <td style="width: 70px; text-align: left;">
-                                                                        <asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Ver Poliza" NavigateUrl='<%# Eval("IdPoliza", "/Contabilidad/RegPoliza.aspx?IdPoliza={0}")%>'></asp:HyperLink>
+                                                                        <asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" CssClass="Texto" Text="Ver Poliza"></asp:HyperLink>
                                                                     </td>
                                                                 </tr>
                                                                 <tr style="color: black; display:none;">
@@ -386,7 +386,7 @@
                                                                         <asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink>
                                                                     </td>
                                                                     <td style="width: 70px; text-align: left;">
-                                                                        <asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Ver Poliza" NavigateUrl='<%# Eval("IdPoliza", "/Contabilidad/RegPoliza.aspx?IdPoliza={0}")%>'></asp:HyperLink>
+                                                                        <asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" CssClass="Texto" Text="Ver Poliza" ></asp:HyperLink>
                                                                     </td>
                                                                 </tr>
                                                                 <tr style="color: black;display:none;">
@@ -476,7 +476,7 @@
                                                                         <asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink>
                                                                     </td>
                                                                     <td style="width: 70px; text-align: left;">
-                                                                        <asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Ver Poliza" NavigateUrl='<%# Eval("IdPoliza", "/Contabilidad/RegPoliza.aspx?IdPoliza={0}")%>'></asp:HyperLink>
+                                                                        <asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" CssClass="Texto" Text="Ver Poliza" ></asp:HyperLink>
                                                                     </td>
                                                                 </tr>
                                                                 <tr style="color: black;">

Contabilidad/ContabilizacionCompras.aspx.cs

@@ -128,7 +128,6 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas
                         e.Row.FCCheckBox("Chk").Enabled = false;
                         e.Row.FCCheckBox("Chk").ToolTip = "Póliza ya contabilizada";
                     }
-
                     GvD.DataSource = contP.DtResultados;
                 }
                 else
@@ -137,22 +136,31 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas
                 }
             }
 
-
             if (TienePermisoEditar)
             {
                 e.Row.FCHyperLink("HplEdicion").Visible = true;
             }
-
+          
-            e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("IdPoliza").ToEntero() > 0;
+            if (UsuarioActual.Empresa.TipoContabilidad == 1) // conta SIG  
-
+            {
+                e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("FolioPoliza").ToEntero() > 0;
+                e.Row.FCHyperLink("HLPoliza").NavigateUrl = $"/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}";
+            }
+            else
+            {
+                if (UsuarioActual.Empresa.TipoContabilidad == 2) // conta  Contpaq
+                {
+                    e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("IdPoliza").ToEntero() > 0;
+                    e.Row.FCHyperLink("HLPoliza").NavigateUrl = $"/Contabilidad/RegPoliza.aspx?IdPoliza={e.Row.DBCampo("IdPoliza")}";
+                }
+            }
+           
             contP.Dispose();
             GvD.DataBind();
-
             if (e.Row.DBCampo("Moneda") == "USD" && e.Row.FCLinkButton("LBActualizarTC") != null)
             {
                 e.Row.FCLinkButton("LBActualizarTC").Visible = true;
             }
-
         }
     }
 

Contabilidad/DiarioPagos.aspx.vb

@@ -109,7 +109,7 @@ Partial Class Contabilidad_DiarioPagos
                 DdlPolizaTipo.SelectedValue = "2"
                 'busco si se ocupa el tipo de cambio
 
-                CargaDatos(-1)
+                'CargaDatos(-1)
 
                 Cc.Dispose()
             Else
@@ -1066,16 +1066,13 @@ Partial Class Contabilidad_DiarioPagos
 
                                         End If
 
-
-
                                         FluctuacionCambiaria += Math.Round((CompraPagadoRetISR * TipoCambioCompra) - (CompraPagadoRetISR * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE ISR
-                                        Dim Dif As Double = (CompraPagadoTotal * TipoCambioPago) - Math.Round(CompraPagadoTotal * TipoCambioCompra, 2) + FluctuacionCambiaria
+                                        Dim Dif As Decimal = (CompraPagadoTotal * TipoCambioPago) - Math.Round(CompraPagadoTotal * TipoCambioCompra, 2) + FluctuacionCambiaria
-
 
                                         If Dif < 0 Then
-                                            tempMovto = True ' ganancia cambiaria
+                                            CtaFluctuacion = If(UsuarioActual.CveEmpresa = 13, 579, 0) : tempMovto = True ' ganancia cambiaria
                                         Else
-                                            tempMovto = False  ' perdida cambiaria
+                                            CtaFluctuacion = If(UsuarioActual.CveEmpresa = 13, 578, 0) : tempMovto = False  ' perdida cambiaria
                                         End If
 
                                         ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero)

Contabilidad/FiltraPolizas.aspx

@@ -81,15 +81,11 @@
             </div>
 
         </ContentTemplate>
-    </asp:UpdatePanel>
+    </asp:UpdatePanel>   
-    <br />
-
     <div id="DivBusqueda" runat="server" align="Right">
         <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", Gv.ClientID) %>" style="display: inline-block; width: 150px;" />
         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", Gv.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
     </div>
-
-
     <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
         <ContentTemplate>
             <div class="portlet-body">

Contabilidad/RegPrePolizaS.aspx.vb

@@ -284,32 +284,41 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then
 
-                ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero
                 CreaDT()
                 CreaDTEliminar()
-                CargaPrePoliza()
+                If CargaPrePoliza(Request("CvePrePoliza").ToEntero) Then
-                If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
+                    If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
-                    GvPrePoliza.Columns(5).Visible = False
+                        GvPrePoliza.Columns(5).Visible = False
-                    DivTG.Visible = False
+                        DivTG.Visible = False
-                    GvMov.Columns(5).Visible = False
+                        GvMov.Columns(5).Visible = False
-                End If
+                    End If
-                ValidaCrearAPartirDe()
+                    ValidaCrearAPartirDe()
-                DvPlantilla.Visible = False
+                    DvPlantilla.Visible = False
 
+                    If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                        If Folio.ToEntero > 0 Then
+                            BtnDescontabilizar.Visible = True
+                            LnkFolioManual.Visible = False
+                        Else
+                            BtnDescontabilizar.Visible = False
+                            LnkFolioManual.Visible = True
+                        End If
 
-                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
-
-                    If Folio.ToEntero > 0 Then
-                        BtnDescontabilizar.Visible = True
-                        LnkFolioManual.Visible = False
-                    Else
-                        BtnDescontabilizar.Visible = False
-                        LnkFolioManual.Visible = True
                     End If
 
+                    Exit Sub
+                Else
+                    BtnEliminar.Visible = False
+                    LnkExcel.Visible = True
+                    LnkImprimirPDF.Visible = False
+                    DvPlantilla.Visible = True
+
+                    TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy")
+                    TxtFechaelaboracion.Text = Now.ToString("dd/MM/yyyy")
+                    TxtConcepto.Enabled = True
+                    TxtUsuarioElaboro.Text = UsuarioActual.Usuario
                 End If
 
-                Exit Sub
 
             ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then
 
@@ -334,10 +343,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 TxtFechaelaboracion.Text = Now.ToString("dd/MM/yyyy")
                 TxtConcepto.Enabled = True
                 TxtUsuarioElaboro.Text = UsuarioActual.Usuario
-                DvPlantilla.Visible = True
-                'LnkAddConcepto.Visible = False
-
-                'UpPrePoliza.Visible = False
 
             End If
 
@@ -366,8 +371,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 GvMov.Columns(5).Visible = False
             End If
 
-
-
         End If
 
     End Sub
@@ -437,14 +440,18 @@ Partial Class ContabilidadC_RegPrePolizaS
         End With
         DtMovimientosEliminar.AcceptChanges()
     End Sub
-    Private Sub CargaPrePoliza()
+    Private Function CargaPrePoliza(tCvePrePoliza As Integer) As Boolean
-        BtnEliminar.Visible = True
+        Dim retorno As Boolean = False
-        LblEncabezado.Text = "Edición de Póliza"
-
         Dim ObjContabilidad As New ClsContabilidad
-        If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+        If ObjContabilidad.GetPrePoliza(tCvePrePoliza, UsuarioActual.CveEmpresa) Then
+
             Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
             If dr IsNot Nothing Then
+                retorno = True
+                BtnEliminar.Visible = True
+                LblEncabezado.Text = "Edición de Póliza"
+
+                ViewState("CvePrePoliza") = tCvePrePoliza
                 DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza")
                 TxtFechaDocumento.Text = dr("Fecha")
                 TxtConcepto.Text = dr("Concepto")
@@ -544,7 +551,8 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         ObjContabilidad.Dispose()
         UpPoliza.Update()
-    End Sub
+        Return retorno
+    End Function
 
     Private Sub GvPrePoliza_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPrePoliza.RowDataBound
 
@@ -562,8 +570,8 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
 
-            If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
+            If CveConceptoContable.Contiene(1, 2, 12, 91, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
-            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 304, 272, 259) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
+            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 343, 344, 304, 272, 259) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
             If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
             If CveConceptoContable.Contiene(30, 204, 66, 92) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
@@ -1044,7 +1052,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                 TipoMovto = True
 
                                 If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal
-                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal
+                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TxtTC").ToDecimal
 
                             End If
                         Else
@@ -1061,7 +1069,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                 TipoMovto = False
 
                                 If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal
-                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal
+                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TxtTC").ToDecimal
                             End If
                         End If
 
@@ -1274,7 +1282,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         End If
 
         ObjContabilidad.Dispose()
-        CargaPrePoliza()
+        CargaPrePoliza(CvePrePoliza)
 
         If Not OcurrioError Then
             If IdPoliza > 0 AndAlso contador Then
@@ -2310,7 +2318,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                     {
                                         .ConceptoAdministrativo = row.Item("ConceptoContable"),
                                         .Cuenta = row.Item("Codigo"),
-                                        .NombreCuenta = row.Item("NombreCuenta"),
+                                        .NombreCuenta = row.Item("CodigoNombreCuenta"),
                                         .Cargo = "",
                                         .Abono = "",
                                         .Referencia = "",

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -74,7 +74,7 @@
     <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView runat="server" ID="GvDatos" EmptyDataText="" ToolTip="" CssClass="table table-striped table-advance table-hover ScrollAD" 
-                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina,CveBancoCuenta,CveActivoFijo,CveSubProyecto,CveTipoGasto" AutoGenerateColumns="False" 
+                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina,CveBancoCuenta,CveActivoFijo,CveSubProyecto,CveTipoGasto,CveCredito" AutoGenerateColumns="False" 
                 Style=" width:100%" GridLines="None">
                 <Columns>
                     <asp:BoundField DataField="ConceptoContable" ItemStyle-Width="150px" HeaderText="Concepto Contable" ItemStyle-HorizontalAlign="Left"/>
@@ -186,6 +186,10 @@
                                             <asp:DropDownList ID="DdlActivoFijo" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server"  DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
                                             <label for="<%= DdlActivoFijo.ClientID.ToString()%>">Activo Fijo: </label>
                                         </div>
+                                        <div class="form-group form-md-line-input input-iconright" id="divCredito" runat="server" visible="false">
+                                            <asp:DropDownList ID="DdlCreditos" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server"  DataTextField="Referencia" DataValueField="CveCredito" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
+                                            <label for="<%= DdlCreditos.ClientID.ToString()%>">Crédito: </label>
+                                        </div>
                                         <div class="form-group form-md-line-input input-iconright" id="divSubProyectos" runat="server" visible="false">
                                             <asp:DropDownList ID="DdlSubProyectos" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
                                             <label for="<%= DdlSubProyectos.ClientID.ToString()%>">Sub Proyectos: </label>

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -180,6 +180,18 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
                 DdlPersonal.SelectedText = drp
             End If
 
+            If GvRow.DataKey("CveCredito").ToEntero > 0 Then
+                DdlCreditos.Items.Clear()
+                DdlCreditos.ClearSelection()
+                Dim ObjCreditos As New ClsBancos
+                If ObjCreditos.GetCreditos(-1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
+                    DdlCreditos.DataSource = ObjCreditos.DtResultados.FiltraParametros("", DistinctColumns:={"CveCredito", "Referencia"})
+                End If
+                ObjCreditos.Dispose()
+                DdlCreditos.DataBind()
+                DdlCreditos.SelectedValue = GvRow.DataKey("CveCredito")
+            End If
+
             LbAgregar.Text = "Actualizar"
             UpModalModulos.Update()
             RegistraScript("$('#ModalCat').modal();")
@@ -203,6 +215,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             divAlmacen.Visible = Boolean.Parse(Dr("AplicaAlmacen").ToString)
             divSubProyectos.Visible = Boolean.Parse(Dr("AplicaSubProyecto").ToString)
             divActivoFijo.Visible = Boolean.Parse(Dr("AplicaActivoFijo").ToString)
+            divCredito.Visible = Boolean.Parse(Dr("AplicaCredito").ToString)
 
             DdlActivoFijo.Enabled = False
 
@@ -215,10 +228,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
                 Else
                     DdlActivoFijo.Enabled = False
                 End If
-
             End If
 
-
             divConceptoNomina.Visible = Dr("AplicaNomina").ToString = "True"
 
             If CveConceptoContable = 51 Then
@@ -231,6 +242,21 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             If Dr("CveTipoSaldo").ToString = "1" Then
                 divRegeneraCuenta.Visible = True
             End If
+
+            If Dr("AplicaCredito").ToString = "True" Then
+                Dim ObjCreditos As New ClsBancos
+                If ObjCreditos.GetCreditos(-1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
+                    DdlCreditos.DataSource = ObjCreditos.DtResultados.FiltraParametros("", DistinctColumns:={"CveCredito", "Referencia"})
+                End If
+                ObjCreditos.Dispose()
+                DdlCreditos.DataBind()
+
+                If OpAgregar Then
+                    DdlCreditos.Enabled = True
+                Else
+                    DdlCreditos.Enabled = False
+                End If
+            End If
         End If
 
     End Sub
@@ -322,7 +348,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(),
                                                CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero,
-                                               CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then
+                                               CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, CveCredito:=DdlCreditos.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then
                 ErrorString = "Error al agregar"
             End If
         ElseIf HdnCveCuentaAsignacion.Value.ToEntero > 0 Then
@@ -330,7 +356,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(),
                                                CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero(), CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero,
-                                               CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then
+                                               CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, CveCredito:=DdlCreditos.SelectedValue.ToEntero, RegeneraCuenta:=chkRegeneraCuenta.Checked) Then
                 ErrorString = "Error al actualizar"
             End If
         End If

Contabilidad2/RepEstadoActividades.aspx

@@ -30,13 +30,14 @@
                     </div>
                     <div class="titlefiltros  caption ">
                         <div class="row">
-                            <label class="col-md-1 truncate" style="width: 90px;">Ejercicio:</label>
+                            <label class="col-md-1 truncate" >Ejercicio:</label>
-                            <div class="col-md-2" style="width: 125px;">
+                            <div class="col-md-1" >
                                 <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
                                 </asp:DropDownList>
                             </div>
-                            <label class="col-md-1 truncate" style="width: 90px;">Periodo:</label>
+
-                            <div class="col-md-2" style="width: 130px;">
+                            <label class="col-md-1 truncate" >Periodo:</label>
+                            <div class="col-md-1" style="width: 130px;">
                                 <asp:DropDownList ID="DdlPeriodo" runat="server" Width="100px" CssClass="select2me">
                                     <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
@@ -53,25 +54,38 @@
                                 </asp:DropDownList>
                             </div>
                                                         
-                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>                          
+                            <asp:Label ID="LblProyecto" CssClass="col-md-1" runat="server">Proyecto:</asp:Label>                          
-                            <div class="col-md-2" id="DivProyecto" runat="server">
+                            <div class="col-md-1" id="DivProyecto" runat="server">
                                 <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
                                 </asp:DropDownList>
                             </div>
+
                             <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
-                            <div class="col-md-2">
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
                                 </asp:DropDownList>
                             </div>
 
-                            <li runat="server" id="liTipoReporte" visible="false">Tipo:
+                            <label class="col-md-1" >Consolidado: </label>
-                                    <asp:DropDownList ID="DdlTipoReporte" runat="server" Width="150px">
+                             <div class="col-md-1">
+                                <asp:DropDownList ID="DdlOpcion" runat="server" CssClass="select2me"   Width="100%">
+                                    <asp:ListItem Selected="True" Value ="1">Normal</asp:ListItem>
+                                    <asp:ListItem Value ="2">Consolidado</asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
+
+                             <label class="col-md-1" runat="server" id="DivTipo1" visible="false" >Tipo: </label>
+                             <div class="col-md-1" runat="server" id="DivTipo2" visible="false"  >
+                                  <asp:DropDownList ID="DdlTipoReporte" runat="server" Width="150px">
                                         <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
                                         <asp:ListItem Text="Contable y Complementario" Value="2"></asp:ListItem>
                                         <asp:ListItem Text="Complementario" Value="3"></asp:ListItem>
                                     </asp:DropDownList>
-                            </li>
+                            </div>
-                            </ul>
+
+
+                            
                         </div>
                     </div>
                 </div>

Contabilidad2/RepEstadoActividades.aspx.vb

@@ -86,7 +86,8 @@ Partial Class AC_RepEstadoActividades
                 ReporteComplementario = False
             Else
                 ReporteComplementario = False
-                liTipoReporte.Visible = False
+                DivTipo1.Visible = False
+                DivTipo2.Visible = False
                 LtTitulo.Text = "Estado de Resultados"
             End If
 
@@ -136,7 +137,7 @@ Partial Class AC_RepEstadoActividades
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, Opcion:=DdlOpcion.SelectedValue.ToEntero) Then
             DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatos = Nothing
@@ -331,6 +332,10 @@ Partial Class AC_RepEstadoActividades
         params.Add(New ReportParameter("SubProyecto", DdlSubproyecto.SelectedItem.Text))
 
         ImprimirPDF("AC/Reportes/RepEstadoActividades.rdlc", lrds, params, "EstadoActividades", Formato)
+
+
+        ' UsuarioActual.Empresa.GrupoEmpresa
+
     End Sub
 
 End Class

Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx

@@ -137,26 +137,18 @@
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
                             </asp:DropDownList>
-                        </div>
+                        </div>                        
-                        
                     </div>
                 </div>
             </div>
-
         </ContentTemplate>
-    </asp:UpdatePanel>
+    </asp:UpdatePanel>     
-
+    <div class="row" style="margin-right: 10px; margin-top: 8px;" align="right">
-    <br />
-
-    <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
         <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
     </div>
-
-
     <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
         <ContentTemplate>
-
             <asp:GridView ID="GvDatos" runat="server"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" AutoGenerateColumns="False"
                 EmptyDataText="No se encontrarios movimientos."

Contabilidad2/RepSituacionFinanciera.aspx

@@ -63,6 +63,15 @@
                                     <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
+
+                             <label class="col-md-1"  >Consolidado: </label>
+                             <div class="col-md-1">
+                                <asp:DropDownList ID="DdlOpcion" runat="server" CssClass="select2me"   Width="100%">
+                                    <asp:ListItem Selected="True" Value ="1">Normal</asp:ListItem>
+                                    <asp:ListItem Value ="2">Consolidado</asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
                         </div>
                     </div>
                 </div>

Contabilidad2/RepSituacionFinanciera.aspx.vb

@@ -195,7 +195,7 @@ Partial Class AC2_SituacionFinanciera
 
         Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
 
-        If ObjConta.GetSituacionFinanciera("01/01/1900".ToDate, FechaF.ToDate, UsuarioActual.CveEmpresa, CveSubProyecto, TipoReporte) Then
+        If ObjConta.GetSituacionFinanciera("01/01/1900".ToDate, FechaF.ToDate, UsuarioActual.CveEmpresa, CveSubProyecto, TipoReporte, Opcion:=DdlOpcion.SelectedValue.ToEntero) Then
             DtDatos = ObjConta.DtResultados
 
             CargaGrids()

Inventarios/EntradasSalidas.aspx

@@ -697,7 +697,7 @@
                                              <label class="col-md-3">Cliente:</label>
                                              <div class="col-md-9">
                                              <%-- <ads:DropDownLost ID="s" AutoPostBack="true" OnSelectedIndexChanged="DdlClienteCarta_SelectedIndexChanged" AppendDataBoundItems="true" runat="server" CssClass="form-control input-sm select2me" DataTextField="NombreComercial" DataValueField="CveCliente"></ads:DropDownLost>--%>
-                                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClienteCarta" Width="100%" data-metodo="getcliente" Onselectedindexchange="DdlClienteCarta_SelectedIndexChanged"  runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClienteCarta" Width="100%" data-metodo="getcliente"  Onselectedindexchange="DdlClienteCarta_SelectedIndexChanged"  runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
                                              </div>
                                           </div>
                                           <div class="row rowpadding"  >

Inventarios/EntradasSalidas.aspx.vb

@@ -686,8 +686,7 @@ Partial Class Inventarios_EntradasSalidas
         TxtFechaLlegada.Text = Now.ToShortDateString
 
         CargarCamiones()
-
+        DdlClienteCarta.setEsWebService(True)
-        CargaClientesCarta()
 
     End Sub
     Private Sub CargaPS()
@@ -1371,6 +1370,12 @@ Partial Class Inventarios_EntradasSalidas
                 TieneError = True
             End If
 
+            If Not TieneError Then
+                If Not Conta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                    TieneError = True
+                End If
+            End If
+
             If Inv.MovimientoRemove(CveMovimiento, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                 If HdnIdPoliza.Value.ToEntero > 0 Then
                     If Not ObjConta.RemovePoliza(HdnIdPoliza.Value.ToEntero) Then
@@ -1381,12 +1386,6 @@ Partial Class Inventarios_EntradasSalidas
                 TieneError = True
             End If
 
-            If Not TieneError Then
-                If Not Conta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
-                    TieneError = True
-                End If
-            End If
-
             If Not TieneError Then
                 If ObjConta IsNot Nothing Then ObjConta.Commit()
                 Inv.Commit()
@@ -5906,18 +5905,11 @@ Partial Class Inventarios_EntradasSalidas
         DdlConfigAuto.Items.Clear()
         DdlUnidadCamion.Items.Clear()
 
-        'DdlUnidadCamion.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
-        'DdlUnidadCamion.DataBind()
-
-
-
         Using ObjInv As New ClsInventarios
 
             If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1, Estatus:=1) Then
                 DdlUnidadCamion.DataSource = ObjInv.DtResultados
             End If
-
-
             If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
                 DdlRemolque1.DataSource = ObjInv.DtResultados
             End If
@@ -5926,13 +5918,9 @@ Partial Class Inventarios_EntradasSalidas
 
         DdlUnidadCamion.DataBind()
         DdlUnidadCamion.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
-
-
         DdlRemolque1.DataBind()
         DdlRemolque1.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
 
-
-
         Using ObjGrales As New ClsGenerales
 
             If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
@@ -5940,27 +5928,9 @@ Partial Class Inventarios_EntradasSalidas
             End If
 
         End Using
-
         DdlConfigAuto.DataBind()
         DdlConfigAuto.Items.Insert(0, New ListItem("Seleccione una", "-1"))
 
-        'Using ObjGral As New ClsGenerales
-        '    If ObjGral.GetCartaPorteConfigAutoTransportes() Then
-        '        DdlConfigAuto.DataSource = ObjGral.DtResultados
-        '    End If
-        'End Using
-
-        'DdlConfigAuto.DataBind()
-
-    End Sub
-
-    Private Sub CargaClientesCarta()
-        'DdlClienteCarta.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        'DdlClienteCarta.DataBind()
-
-        'DdlClienteCarta.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlClienteCarta.SelectedValue = "-1"
-
     End Sub
 
     Private Sub EmitirTimbrado(CveTimbre As Integer, CveMovimientoTimbrado As Integer, ByRef MensajeAlert As StringBuilder)

Nomina/ConceptoNomina.aspx

@@ -135,20 +135,7 @@
                                     </div>
                                 </div>
                                 <div class="portlet-body rowpadding">
-                                    <div class="row">
+                                   
-                                        <div class="col-md-6">
-                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
-                                                <asp:Label runat="server" Text="Tipo" AssociatedControlID="DdlTipo"></asp:Label>
-                                                <asp:DropDownList ID="DdlTipo" runat="server" AppendDataBoundItems="True" DataTextField="TipoGasto" DataValueField="TipoGasto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
-                                                <asp:RequiredFieldValidator ID="RFVTipo" runat="server" ControlToValidate="DdlTipo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                <ajax:ValidatorCalloutExtender ID="VCETipo" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipo" Width="300px" BehaviorID="VCETipo"></ajax:ValidatorCalloutExtender>
-                                            </div>
-                                        </div>
-                                        <div class="col-md-6">
-                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
-                                            </div>
-                                        </div>
-                                    </div>
 
                                     <div class="row">
                                         <div class="col-md-4">
@@ -168,6 +155,20 @@
                                             </div>
                                         </div>
                                     </div>
+                                     <div class="row">
+                                        <div class="col-md-6">
+                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
+                                                <asp:Label runat="server" Text="Tipo" AssociatedControlID="DdlTipo"></asp:Label>
+                                                <asp:DropDownList ID="DdlTipo" runat="server" AppendDataBoundItems="True" DataTextField="TipoGasto" DataValueField="TipoGasto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                                <asp:RequiredFieldValidator ID="RFVTipo" runat="server" ControlToValidate="DdlTipo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCETipo" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipo" Width="300px" BehaviorID="VCETipo"></ajax:ValidatorCalloutExtender>
+                                            </div>
+                                        </div>
+                                        <div class="col-md-6">
+                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
+                                            </div>
+                                        </div>
+                                    </div>
 
                                     <div class="row">
                                         <div class="col-md-6">

Nomina/ConceptoNomina.aspx.cs

@@ -225,7 +225,7 @@ public partial class Nomina_CatConcepto : ClsPaginas
     }
     protected void CargaConceptoContable()
     {
-        DdlConceptoContable.DataSource = get_GlobalDTContaConceptosContables(-1);
+        DdlConceptoContable.DataSource = get_GlobalDTContaConceptosContables(-1).FiltraParametros("Tipo = 'Nom'");
         DdlConceptoContable.DataBind();
         DdlConceptoContable.Items.Insert(0, new ListItem("Seleccione", "-1"));
         DdlConceptoContable.SelectedValueExist("-1");

Nomina/Nomina.aspx.cs

@@ -9453,7 +9453,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         DdlCuenta.Items.Clear();
         DataTable DTCuentas = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoCuenta <> 1 AND UsaLayout = 'True' AND  LEN(ConvenioPagoElectronico) > 0 ");
         DTCuentas.CaseSensitive = false;
-        DdlCuenta.DataSource = DTCuentas.FiltraParametros(" Banco IN('BANCOMER','BANORTE')");
+        DdlCuenta.DataSource = DTCuentas.FiltraParametros(" Banco IN('BANCOMER','BANORTE','BBVA Bancomer','BBVA')");
         DdlCuenta.DataBind();
         DdlCuenta.Items.Insert(0, new ListItem("Seleccione", "-1"));
         DdlCuenta.SelectedValueExist("-1");

RH/Personal.aspx

@@ -570,7 +570,7 @@
                                                         <i></i>
                                                     </div>
 
-                                                    <div class="form-group form-md-line-input input-iconright" style="display: none;">
+                                                    <div class="form-group form-md-line-input input-iconright" runat="server"  visible="false"  id="DvRuta" >
                                                         <asp:DropDownList Width="100%" ID="DdlRuta" runat="server" AppendDataBoundItems="True" DataTextField="Ruta" DataValueField="CveRuta" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Sin asignar Ruta" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>

RH/Personal.aspx.vb

@@ -1009,6 +1009,11 @@ Partial Class RH_Personal
                 DVNetoPeriodo.Visible = True
             End If
 
+
+            If UsuarioActual.Empresa.Funcionalidad(712) = "1" Then
+                DvRuta.Visible = True
+            End If
+
         End If
         AgregarEventosAsincronosGvVacaciones()
     End Sub
@@ -7674,6 +7679,9 @@ Partial Class RH_Personal
         Dim CorreoUsuario As String = GlobalDTUsuarios(CveUsuario:=UsuarioActual.CveUsuario).FiltroPrimeroValor("Correo")
         Dim CCP As String = If(CorreoUsuario.Trim.Length > 0, CorreoUsuario, "")
 
+        'Para Pruebas
+        'CorreoNominista = "oscar.irigoyen@adssistemas.mx"
+
         If CorreoNominista = "" Then
             Alert("No se envio el correo  de notificación a nominas, el nominista no tiene correo  electronico", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -7737,9 +7745,12 @@ Partial Class RH_Personal
         Cuerpo.AppendLine("<table border='0'>")
         Cuerpo.AppendLine($"<tr><td style='text-align: center; font-weight:bold; font-size:medium;' colspan='2'>Datos del Candidato</td></tr>")
         Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Puesto:</td><td style=' text-align: left;  font-weight:bold;'>{IIf(DdlPuesto.SelectedIndex > 0, DdlPuesto.SelectedItem.Text, "")  }</td></tr>")
-        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left;  font-weight:bold;'>{ DdlRuta.SelectedItem.Text }</td></tr>")
 
-        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de { TimpoMovimiento }:</td><td style=' text-align: left; font-weight:bold;'>{TxtFechaEstatus.Text}</td></tr>")
+        If DvRuta.Visible Then
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Ruta/Servicio:</td><td style=' text-align: left;  font-weight:bold;'>{ DdlRuta.SelectedItem.Text }</td></tr>")
+        End If
+
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Fecha de { TimpoMovimiento }:</td><td style=' text-align: left; font-weight:bold;'>{  If(eTipoMovimientoRH = TipoMovimientoRH.Alta, Now.ToString("dd/MM/yyyy"), TxtFechaEstatus.Text)   }</td></tr>")
 
         If eTipoMovimientoRH = TipoMovimientoRH.Baja Then
             Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Motivo de Baja:</td><td style=' text-align: left;  font-weight:bold;'>{ DdlMotivoBaja.SelectedItem.Text }</td></tr>")
@@ -7760,12 +7771,36 @@ Partial Class RH_Personal
         Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Nombre de la Madre:</td><td style=' text-align: left; font-weight:bold;'>{ Madre }</td></tr>")
         Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Dirección:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCalle.Text }  No Ext.{ TxtNumExt.Text} No int.{TxtNumInt.Text}</td></tr>")
         Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Escolaridad:</td><td style=' text-align: left; font-weight:bold;'>{ IIf(DdlEscolaridad.SelectedIndex > 0, DdlEscolaridad.SelectedItem.Text, "")   }</td></tr>")
-        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text},{TxtCelularPersonal.Text}</td></tr>")
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Telefono:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCelular.Text}, {TxtCelularPersonal.Text}, {TxtTelefono.Text}</td></tr>")
         Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Tel en Caso de Emergencia:</td><td style=' text-align: left; font-weight:bold;'>{ TxtTelefonoEmergencia.Text }</td></tr>")
         Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Correo:</td><td style=' text-align: left; font-weight:bold;'>{ TxtCorreo.Text  }</td></tr>")
+
+        Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Supervisor:</td><td style=' text-align: left; font-weight:bold;'>{ DdlSupervisorOrganigrama.SelectedItem.Text  }</td></tr>")
+
+
+
+        Dim SBDatosBancarios As New StringBuilder
+
+        For Each GvRow As GridViewRow In GvBancosCuentas.Rows
+
+            SBDatosBancarios.Append($"Banco: {GvRow.FCLabel("LtNombreBanco").Text}, ")
+            SBDatosBancarios.Append(If(GvRow.FCLabel("LtNumeroCuenta").Text.Trim.Length > 0, $"Cuenta: {GvRow.FCLabel("LtNumeroCuenta").Text}, ", ""))
+            SBDatosBancarios.Append(If(GvRow.FCLabel("LtCLABE").Text.Trim.Length > 0, $"CLABE: {GvRow.FCLabel("LtCLABE").Text}, ", ""))
+            SBDatosBancarios.Append(If(GvRow.FCLabel("LtMoneda").Text.Trim.Length > 0, $"Moneda: {GvRow.FCLabel("LtMoneda").Text}, ", ""))
+            SBDatosBancarios.Append(If(GvRow.FCLabel("LlbEstatusTexto").Text.Trim.Length > 0, $"Estatus: {GvRow.FCLabel("LlbEstatusTexto").Text} ", ""))
+            SBDatosBancarios.AppendLine($"<br>")
+
+
+        Next
+
+
+        If SBDatosBancarios.ToString.Trim.Length > 0 Then
+            Cuerpo.AppendLine($"<tr><td style='text-align: right;'>Datos Bancarios:</td><td style=' text-align: left; font-weight:bold;'>{ SBDatosBancarios.ToString  }</td></tr>")
+        End If
+
         Cuerpo.AppendLine("</table>")
 
-        correo.SendMail(EmpresaNotificaciones, CorreoNominista, $"Notificacion por  { TimpoMovimiento }de Nomina: " & NombreCompleto, Cuerpo.ToString, CCP:=CCP)
+        correo.SendMail(EmpresaNotificaciones, CorreoNominista, $"Notificacion por  { TimpoMovimiento } de Nomina: " & NombreCompleto, Cuerpo.ToString, CCP:=CCP)
 
     End Sub
 

RH/Reclutamiento.aspx

@@ -11,7 +11,9 @@
         }
 
         body {
-            font-size: 15px;
+         /*
+              font-size: 15px;
+         */ 
         }
 
         #C_GvDocumentos4 > tbody > tr:nth-child(2) > td:nth-child(2) {
@@ -905,17 +907,23 @@
                                                             <span class="caption-subject bold uppercase">Familiares</span>
                                                         </div>
                                                         <div class="actions">
+
                                                             <div class="btn-group">
+                                                                <input type="text" id="TxtBusquedaFam" class="form-control input-sm" 
+                                                                    onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaFam','{0}')", GvFamiliares4.ClientID) %>" 
+                                                                    style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                                                <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaFam','{0}')", GvFamiliares4.ClientID) %>" 
+                                                                    style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+
+
                                                             </div>
+
                                                         </div>
                                                         <div class="tools">
                                                         </div>
                                                     </div>
                                                     <div class="portlet-body form">
-                                                        <div class="row col-md-12" style="text-align: right!important; margin-top: 2px!important; margin-bottom: 2px!important">
+                                                        
-                                                            <input type="text" id="TxtBusquedaFam" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaFam','{0}')", GvFamiliares4.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                                                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaFam','{0}')", GvFamiliares4.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                                                        </div>
                                                         <asp:UpdatePanel ID="UPTabFamiliares4" runat="server" UpdateMode="Conditional">
                                                             <ContentTemplate>
                                                                 <asp:GridView ID="GvFamiliares4" runat="server" AutoGenerateColumns="False" DataKeyNames="CveFamiliar,Parentesco,Nombre,Domicilio,Edad,Ocupacion,CveParentesco,Telefono,Observaciones"
@@ -995,6 +1003,13 @@
                                                         </div>
                                                         <div class="actions">
                                                             <div class="btn-group">
+
+                                                                <input type="text" id="TxtBusquedaEsc" class="form-control input-sm" 
+                                                                    onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaEsc','{0}')", GvFamiliares4.ClientID) %>" 
+                                                                    style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                                                <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaEsc','{0}')", GvFamiliares4.ClientID) %>" 
+                                                                    style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+
                                                             </div>
                                                         </div>
                                                         <div class="tools">
@@ -1002,10 +1017,7 @@
                                                     </div>
 
                                                     <div class="portlet-body form">
-                                                        <div class="row col-md-12" style="text-align: right!important; margin-top: 2px!important; margin-bottom: 2px!important">
+                                                        
-                                                            <input type="text" id="TxtBusquedaEsc" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaEsc','{0}')", GvFamiliares4.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                                                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaEsc','{0}')", GvFamiliares4.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                                                        </div>
                                                         <asp:UpdatePanel ID="UPTabEscolaridad4" runat="server" UpdateMode="Conditional">
                                                             <ContentTemplate>
 
@@ -1075,16 +1087,19 @@
                                                         </div>
                                                         <div class="actions">
                                                             <div class="btn-group">
+                                                                <input type="text" id="TxtBusquedaLab" class="form-control input-sm" 
+                                                                    onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaLap','{0}')", GvReferenciasLaborales4.ClientID) %>" 
+                                                                    style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                                                <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaLab','{0}')", GvReferenciasLaborales4.ClientID) %>" 
+                                                                    style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+
                                                             </div>
                                                         </div>
                                                         <div class="tools">
                                                         </div>
                                                     </div>
                                                     <div class="portlet-body form">
-                                                        <div class="row col-md-12" style="text-align: right!important; margin-bottom: 2px!important; margin-top: 2px!important">
+                                                       
-                                                            <input type="text" id="TxtBusquedaLab" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaLap','{0}')", GvReferenciasLaborales4.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                                                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaLab','{0}')", GvReferenciasLaborales4.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                                                        </div>
 
                                                         <asp:UpdatePanel ID="UPTabReferenciasLaborales4" runat="server" UpdateMode="Conditional">
                                                             <ContentTemplate>
@@ -1156,6 +1171,12 @@
                                                         </div>
                                                         <div class="actions">
                                                             <div class="btn-group">
+
+                                                                <input type="text" id="TxtBusquedaPer" class="form-control input-sm" 
+                                                                    onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaPer','{0}')", GvReferenciasPersonales4.ClientID) %>" 
+                                                                    style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                                                <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaPer','{0}')", GvReferenciasPersonales4.ClientID) %>" 
+                                                                     style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                                                             </div>
                                                         </div>
                                                         <div class="tools">
@@ -1163,10 +1184,7 @@
                                                     </div>
 
                                                     <div class="portlet-body form">
-                                                        <div class="row col-md-12" style="text-align: right!important; margin-top: 2px!important; margin-bottom: 2px!important">
+                                                      
-                                                            <input type="text" id="TxtBusquedaPer" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaPer','{0}')", GvReferenciasPersonales4.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                                                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaPer','{0}')", GvReferenciasPersonales4.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                                                        </div>
                                                         <asp:UpdatePanel ID="UPTabReferenciasPersonales4" runat="server" UpdateMode="Conditional">
                                                             <ContentTemplate>
                                                                 <asp:GridView ID="GvReferenciasPersonales4" runat="server" AutoGenerateColumns="False"
@@ -3668,12 +3686,11 @@
                        $('#<%= btnNext.ClientID %>').show();
                    } else {
                        $('#<%= btnNext.ClientID %>').hide();
-                   }
+                }
 
-               }
+            }
-           }
+        }
 
     </script>
 
-</asp:Content>
+</asp:Content>
-

Ventas/ClientesAbonar.aspx

@@ -644,7 +644,7 @@
                                      
                                     <asp:DropDownList ID="DdlTipoDeduccion" runat="server" Width="300px">
                                         <asp:ListItem Text="Gasto No Deducible" Value="255" Selected="True"></asp:ListItem>
-                                        <asp:ListItem Text="Incobrable No Deducible" Value="211"></asp:ListItem>
+                                        <asp:ListItem Text="Incobrable No Deducible" Value="179"></asp:ListItem>
                                         <asp:ListItem Text="Incobrable Deducible" Value="263"></asp:ListItem>
                                         <asp:ListItem Text="Reservas" Value="252"></asp:ListItem>
                                         <asp:ListItem Text="Otros Ingresos" Value="78"></asp:ListItem>

Ventas/ClientesAbonar.aspx.vb

@@ -2443,7 +2443,7 @@ Partial Class Ventas_ClientesAbonar
                 Dim ConceptoPartida As String = TxtObsSaldarIncobrable.Text.Trim & " " & gr.DataKey("SerieFolio").ToString
 
                 If CveConceptoDeduccion = 255 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(266).ToEntero
-                If CveConceptoDeduccion = 211 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(559).ToEntero
+                If CveConceptoDeduccion = 179 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(559).ToEntero
                 If CveConceptoDeduccion = 263 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(537).ToEntero
                 If CveConceptoDeduccion = 252 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.Funcionalidad(581).ToEntero
                 If CveConceptoDeduccion = 78 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.IdCuentaOtrosIngresos
@@ -2476,22 +2476,18 @@ Partial Class Ventas_ClientesAbonar
                     Else
                         IdCtaContable = IdCuentaCliente
                     End If
+                    Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(6, tCveMoneda, True, 1)
+
+                    'normal
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, gr.DataKey("SerieFolio").ToString, ConPreP.CveConcepto, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, Saldo, Saldo), TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                        MsgError = "Ocurrio un error al saldar el movimiento"
+                    End If
 
                     If UsaComplementaria AndAlso tCveMoneda = 2 Then
-                        'normal
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoCliente, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, Saldo, Saldo), TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
-                            MsgError = "Ocurrio un error al saldar el movimiento"
-                        End If
                         'complementaria
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, 0, gr.DataKey("SerieFolio").ToString, 207, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=IdCtaContComplementaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, Saldo, (Saldo * TCVenta) - Saldo).RoundSQL, ImporteME:=Saldo, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, 0, gr.DataKey("SerieFolio").ToString, ConPreP.CveConceptoComplementario, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=IdCtaContComplementaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, Saldo, (Saldo * TCVenta) - Saldo).RoundSQL, ImporteME:=Saldo, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                         End If
-
-                    Else
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoCliente, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, Saldo, Saldo * TCVenta), TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
-                            MsgError = "Ocurrio un error al saldar el movimiento"
-                        End If
-
                     End If
 
                     'fluctuación.
@@ -2519,27 +2515,15 @@ Partial Class Ventas_ClientesAbonar
                     End If
 
 
-                    ' iva
+                    If (IVA > 0 Or UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) And IVA < 0) AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 13, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), PorcentajeImpuesto:=gr.DataKey("PorcetajeIVA").ToDecimal, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
-                    Dim PorcentajeImpuesto As Decimal = gr.DataKey("PorcentajeIVA").ToDecimal
-
-                    Dim IdCtaIVAXTrasladar As Integer = 0
-                    Dim CveCuentaIVAxTrasladar As Integer = 0
-
-                    'If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
-                    '    IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero
-                    '    CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAxTrasladar").ToString.ToEntero
-                    'End If
-
-
-                    If (IVA > 0 Or UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) And IVA < 0) AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IVA, gr.DataKey("SerieFolio").ToString, 13, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IVA, IVA * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
 
-                    If (RETIVA > 0 Or UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) And RETIVA < 0) AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, RETIVA, gr.DataKey("SerieFolio").ToString, 8, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContRetIVA, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, RETIVA, RETIVA * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                    If (RETIVA > 0 Or UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) And RETIVA < 0) AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, RETIVA, gr.DataKey("SerieFolio").ToString, 8, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContRetIVA, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, RETIVA, RETIVA * TCVenta), TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
 
-                    If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, gr.DataKey("SerieFolio").ToString, 38, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IEPS, IEPS * TCVenta), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                    If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ImpuestosMovto, IEPS, gr.DataKey("SerieFolio").ToString, 38, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable, -1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, IEPS, IEPS * TCVenta), TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
 

Ventas/RepAnticipo-NC-IXCDetalle.aspx

@@ -152,7 +152,7 @@
             <asp:GridView ID="GvDatos" runat="server" OnRowDataBound="GvDatos_RowDataBound" GridLines="None"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False"
                 EmptyDataText="No se encontraron registros" data-sort="true" Width="99%"
-                DataKeyNames="CveCliente,CveMoneda,Saldo,Folio,CveVenta,NombreComercial,CveVentaAmortizacion,SerieFolioAmortizacion,SerieFolio,Total,
+                DataKeyNames="CveCliente,CveMoneda,Saldo,CveVenta,NombreComercial,CveVentaAmortizacion,SerieFolioAmortizacion,SerieFolio,Total,TipoCambio,
                 Fecha,FechaAmortizacion,SubTotal,SubTotalAmortizacion,ImporteAmortizacion,CveIE,Tipo,SaldoAcumulativo,CveSubProyecto">
                 <Columns>
                     <asp:TemplateField>

Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs

@@ -1,4 +1,5 @@
 using System;
+using System.Activities.Expressions;
 using System.Collections.Generic;
 using System.Data;
 using System.Linq;
@@ -324,80 +325,103 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
     {
         ClsContabilidad ObjConta = new ClsContabilidad();
         ObjConta.IniciaTransacSQL();
-        int CvePrePoliza = 0, ConceptoContable1 = 0, ConceptoContable2 = 0, CveVenta = -1, CveIE = -1;
+        int CvePrePoliza = 0,  CveVenta = -1, CveIE = -1;
         decimal Saldo = 0;
-        string MsgError = "";
+        decimal ImporteTotalGasto = 0;
-        if (Tipo == 2)
+        string MsgError = "";
-        {
+
-            ConceptoContable1 = 91;
+        CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepNCXAplicar", 6, 0, 0, 1, TxtFecha.Text.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
-            ConceptoContable2 = 12;
-        }
-        else if (Tipo == 1)
-        {
-            ConceptoContable1 = 11;
-            ConceptoContable2 = 3;
-        }
-        else if (Tipo == 3)
-        {
-            ConceptoContable1 = 92;
-            ConceptoContable2 = 92;
-        }
 
-        foreach (GridViewRow Gv in GvDatos.Rows)
+        if (CvePrePoliza > 0)
-        {
+        { 
-            if (Gv.FCCheckBox("Chk").Checked)
+            foreach (GridViewRow Gv in GvDatos.Rows)
             {
-                if (Tipo == 1 || Tipo == 2)
+                ConceptosTipoSaldo ConPreP = new ConceptosTipoSaldo();
-                {
+                if (Gv.FCCheckBox("Chk").Checked)
-                    CveVenta = Gv.DataKey("CveVenta").ToEntero();
+                {
-                    Saldo = -Gv.DataKey("Saldo").ToDecimal();
+                    if (Tipo == 2)
-                }
+                    {
-                else if (Tipo == 3)
+                        ConPreP = ClsPaginas.get_ObtenerCveConceptoPrePoliza(6, Gv.DataKey("CveMoneda").ToEntero(), false,  2); 
-                {
+                    }
-                    CveIE = Gv.DataKey("CveIE").ToEntero();
+                    else if (Tipo == 1)
-                    Saldo = Gv.DataKey("Saldo").ToDecimal();
+                    { 
-                }
+                        ConPreP.CveConcepto = 3;
-
+                    }
-                int IdCtaContable = 0;
+                
-                if (ObjConta.GetRetCuenta(ConceptoContable1, Gv.DataKey("CveCliente").ToEntero()))
+                    if (Tipo == 1 || Tipo == 2)
-                {
-                    if (ObjConta.DtResultados.Rows.Count > 0)
                     {
-                        if (Tipo == 1 || Tipo == 2)
+                        CveVenta = Gv.DataKey("CveVenta").ToEntero();
-                        {
+                        Saldo = -Gv.DataKey("Saldo").ToDecimal();
-                            IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContable"].ToString().ToEntero();
+                    }
-                        }
+                    else if (Tipo == 3)
-                        else if (Tipo == 3)
+                    { 
-                        {
+                        ConPreP.CveConcepto = 92;
-                            IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContClientes"].ToString().ToEntero();                            
+                        CveIE = Gv.DataKey("CveIE").ToEntero();
+                        Saldo = Gv.DataKey("Saldo").ToDecimal();
+                    }
+
+                    int IdCtaContable = 0;
+                    if (UsuarioActual.Empresa.TipoContabilidad == 2)
+                    {
+                        if (UsuarioActual.Empresa.TipoContabilidad == 2 && ObjConta.GetRetCuenta(ConPreP.CveConcepto, Gv.DataKey("CveCliente").ToEntero()))
+                        {
+                            if (ObjConta.DtResultados.Rows.Count > 0)
+                            {
+                                if (Tipo == 1 || Tipo == 2)
+                                {
+                                    IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContable"].ToString().ToEntero();
+                                }
+                                else if (Tipo == 3)
+                                {
+                                    IdCtaContable = ObjConta.DtResultados.Rows[0]["IdCtaContClientes"].ToString().ToEntero();
+                                }
+                            }
+                        }
+                        else
+                        {
+                            break;
+                        }
+                    }
+
+                    ImporteTotalGasto += Saldo;
+                    if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Saldo, Gv.DataKey("SerieFolio").ToString(), ConPreP.CveConcepto, TxtConcepto.Text, TxtFecha.Text.ToDate(), IdCtaContable, -1, CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero(), ImporteMX: Saldo))
+                    {
+                        MsgError = "Ocurrio un error al saldar el movimiento";
+                        break;
+                    }
+                    if (Gv.DataKey("CveMoneda").ToEntero() > 1 )
+                    {
+                        decimal ImporteMN = (Saldo * Gv.DataKey("TipoCambio").ToDecimal() - Saldo).RoundSQL();
+                        ImporteTotalGasto += ImporteMN;
+                        if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Saldo, Gv.DataKey("SerieFolio").ToString(), ConPreP.CveConceptoComplementario, TxtConcepto.Text, TxtFecha.Text.ToDate(), IdCtaContable, -1, CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero(), ImporteME: Saldo, ImporteMX: ImporteMN, TipoCambio: Gv.DataKey("TipoCambio").ToDecimal()))
+                        {
+                            MsgError = "Ocurrio un error al saldar el movimiento";
+                            break;
                         }
                     }
-                }
+                }
-                else
+            }
+
+            if (ImporteTotalGasto != 0)
+            {
+                ImporteTotalGasto = ImporteTotalGasto * -1; // se invierte el valor, para cuadre de prepoliza
+                if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, ImporteTotalGasto, "", 78, TxtConcepto.Text, TxtFecha.Text.ToDate(), UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE, CveVenta, ImporteMX: ImporteTotalGasto, CveSubProyecto: DdlSubProyectoSaldar.SelectedValue.ToEntero()))
                 {
-                    break;
-                }
-                CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepNCXAplicar", 6, Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("Saldo").ToDouble(), Gv.DataKey("CveMoneda").ToEntero(), TxtFecha.Text.ToDate(), "Saldo de NC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
-
-                if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Saldo, Gv.DataKey("Folio").ToString(), ConceptoContable2, TxtConcepto.Text, TxtFecha.Text.ToDate(), IdCtaContable, -1, CveIE, CveVenta, CveCliente: Gv.DataKey("CveCliente").ToEntero(), ImporteMX: Saldo))
-                {
-                    MsgError = "Ocurrio un error al saldar el movimiento";
-                    break;
-                }
-
-                if (!ObjConta.AddPrePolizasDetalle(CvePrePoliza, true, Gv.DataKey("Saldo").ToDecimal(), Gv.DataKey("Folio").ToString(), 78, TxtConcepto.Text, TxtFecha.Text.ToDate(), UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, CveIE, CveVenta, ImporteMX: Gv.DataKey("Saldo").ToDecimal(), CveSubProyecto: DdlSubProyectoSaldar.SelectedValue.ToEntero()))
-                {
                     MsgError = "Ocurrio un error al saldar el movimiento";
-                    break;
                 }
-
+            }
+            else
+            {
+                MsgError = "Poliza no insertada";
             }
         }
 
         if (MsgError == "")
         {
             ObjConta.Commit();
-            Alert("Los movimientos se saldaron correctamente.");
+            string Msg = "Los movimientos se saldaron correctamente.";
+            Msg = Msg + $"<br/><br/><a Class='Texto' target='_blank' href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}'>Ver Póliza</a>&nbsp;&nbsp; ";
+            Alert(Msg);
         }
         else
         {

Ventas/Ventas.aspx

@@ -1066,12 +1066,21 @@
                                                     </asp:UpdatePanel>
                                                 </th>
                                                 <th>
-                                                    <asp:TextBox ID="TxtPrecio" runat="server" onkeypress="setFocus(event,'LbAgregar');" onkeyup="Recalcula();" CausesValidation="true" lang="nb" ClientIDMode="Static" Text="0.00" MaxLength="12" ValidationGroup="GprAgregaPS" Width="76px" Height="24px" CssClass="form-control input-sm "></asp:TextBox>
+                                                    <div class="row" id="DivPrecioLista" runat="server" visible="false">
-                                                    <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender4" runat="server" TargetControlID="TxtPrecio" FilterType="Custom, Numbers" ValidChars="." />
+                                                        <div class="col-md-12">
-                                                    <asp:RequiredFieldValidator ID="RFVPrecio" runat="server" ControlToValidate="TxtPrecio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
+                                                            <asp:DropDownList ID="DdlPrecioLista" runat="server" Width="100%" CssClass="select2me" DataValueField="CvePrecioLista" DataTextField="PrecioLista" OnSelectedIndexChanged="DdlPrecioLista_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>
-                                                    <ajax:ValidatorCalloutExtender ID="VCPrecio" runat="server" HighlightCssClass="vco" TargetControlID="RFVPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                        </div>
-                                                    <asp:CustomValidator ID="CVPrecio" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtPrecio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> no tiene el formato correcto. Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregaPS"></asp:CustomValidator>
+                                                    </div>
-                                                    <ajax:ValidatorCalloutExtender ID="VCEPrecio" runat="server" HighlightCssClass="vco" TargetControlID="CVPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                    <div class="row">
+                                                        <div class="col-md-12">
+                                                            <asp:TextBox ID="TxtPrecio" runat="server" onkeypress="setFocus(event,'LbAgregar');" onkeyup="Recalcula();" CausesValidation="true" lang="nb" ClientIDMode="Static" Text="0.00" MaxLength="12" ValidationGroup="GprAgregaPS" Width="100%" Height="24px" CssClass="form-control input-sm "></asp:TextBox>
+                                                            <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender4" runat="server" TargetControlID="TxtPrecio" FilterType="Custom, Numbers" ValidChars="." />
+                                                            <asp:RequiredFieldValidator ID="RFVPrecio" runat="server" ControlToValidate="TxtPrecio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
+                                                            <ajax:ValidatorCalloutExtender ID="VCPrecio" runat="server" HighlightCssClass="vco" TargetControlID="RFVPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                            <asp:CustomValidator ID="CVPrecio" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtPrecio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Precio''</b> no tiene el formato correcto. Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregaPS"></asp:CustomValidator>
+                                                            <ajax:ValidatorCalloutExtender ID="VCEPrecio" runat="server" HighlightCssClass="vco" TargetControlID="CVPrecio" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                        </div>
+                                                    </div>
                                                 </th>
                                                 <th id="thEncDesc2" runat="server" visible="true"></th>
                                                 <th id="thPredial2" runat="server" visible="false">
@@ -1207,7 +1216,16 @@
                                                 <%--9--%>
                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                                                     <ItemTemplate>
-                                                        <asp:Literal ID="LtlPU" runat="server" Text='<%# Eval("PU", "{0:N2}") %>'></asp:Literal>
+                                                        <div class="row">
+                                                            <div class="col-md-12">
+                                                                <asp:Literal ID="LtlPU" runat="server" Text='<%# Eval("PU", "{0:N2}") %>'></asp:Literal>
+                                                            </div>
+                                                        </div>
+                                                        <div class="row">
+                                                            <div class="col-md-12">
+                                                                <asp:Literal ID="LtlPrecioLista" runat="server" Visible="false" Text='<%# Eval("PrecioLista") %>'></asp:Literal>
+                                                            </div>
+                                                        </div>
                                                     </ItemTemplate>
                                                     <EditItemTemplate>
                                                         <asp:Literal ID="LtlPU" runat="server" Text='<%# Eval("PU") %>' Visible="false"></asp:Literal>

Ventas/Ventas.aspx.vb

@@ -2450,7 +2450,7 @@ Partial Class Ventas
             UpFacturar.Update()
             'CargaTiposDocumentos()
             TrEmitir.Visible = False
-            If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83, 172, 173) Then
+            If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then
                 DivCartaPorte.Visible = True
             End If
             ViewState("EstablecioFolio") = False
@@ -2734,6 +2734,9 @@ Partial Class Ventas
                         TmpDT.Columns.Add("TieneProntoPago", GetType(String))
                         TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal))
                         TmpDT.Columns.Add("CveMarca", GetType(Integer))
+                        TmpDT.Columns.Add("CvePrecioLista", GetType(Integer))
+                        TmpDT.Columns.Add("PrecioLista", GetType(String))
+
                         GvPS.DataSource = ObjVentas.DtResultados
                         GvPS.DataBind()
 
@@ -2758,6 +2761,9 @@ Partial Class Ventas
                         TmpDT.Columns.Add("TieneProntoPago", GetType(String))
                         TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal))
                         TmpDT.Columns.Add("CveMarca", GetType(Integer))
+                        TmpDT.Columns.Add("CvePrecioLista", GetType(Integer))
+                        TmpDT.Columns.Add("PrecioLista", GetType(String))
+
                         GvPS.DataSource = ObjVentas.DtResultados
                         GvPS.DataBind()
 
@@ -3125,6 +3131,11 @@ Partial Class Ventas
             If Not ExFolioFactura Then SetPermisos()
             If CveVenta < 1 Then CargaFolios()
 
+
+            If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(360) = "1" Then
+                CargaListasPrecios()
+            End If
+
             'SELECCIONA VENDEDOR DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE
             'If UsuarioActual.CveVendedor > 0 Then
             '    If CveVenta = -1 AndAlso Not DdlVendedor.SelectedValue.ToEntero() > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
@@ -3475,6 +3486,21 @@ Partial Class Ventas
         End If
 
     End Sub
+
+    Private Sub CargaListasPrecios()
+        DivPrecioLista.Visible = True
+
+        Using ObjVta As New ClsVentas
+            If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
+                DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy()
+            End If
+        End Using
+
+        DdlPrecioLista.DataBind()
+        DdlPrecioLista.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        UpPS.Update()
+    End Sub
     Private Sub BloqueaClasificaciones()
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
             DdlClasificacion.Enabled = False
@@ -6076,12 +6102,6 @@ Partial Class Ventas
 
     End Sub
     Private Sub CargaFormaPago(CveMetodoPago As Integer)
-        'EN LA VERSION 4.0 NO PERMITE DESBLOEQUEAR RELACION METODO Y FOMA DE PAGO
-        'If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then
-        '    'permiso para desbloquear la relación entre Método de pago y forma de pago
-        '    If UsuarioActual.TienePermisoProceso(282) Then CveMetodoPago = -1
-        'End If
-
         Dim dtt As DataTable = Nothing
         If CveMetodoPago > 0 Then
             dtt = GlobalDTVtaFormaPago.FiltraParametros(If(CveMetodoPago = 1, " CveFormaPago <> 20 ", "CveFormaPago = 20"))
@@ -6117,22 +6137,13 @@ Partial Class Ventas
         'End If
     End Sub
     Private Sub CargaUsoCFDI()
-        If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then
-            RegimenFiscalCliente = "-1"
-        End If
-
         DdlUsoCFDI.Items.Clear()
         DdlSucursalUsoCFDI.Items.Clear()
 
-        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+        Dim EsPersonaMoral As Boolean = (TipoPersona = True)
-            Dim EsPersonaMoral As Boolean = (TipoPersona = True)
 
-            DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
-            DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+        DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
-        Else
-            DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
-            DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
-        End If
 
         DdlUsoCFDI.DataBind()
         DdlSucursalUsoCFDI.DataBind()
@@ -6463,12 +6474,10 @@ Partial Class Ventas
                 ViewState("CliPais") = ObjCliente.Pais
                 ImprimeNombreSucursal = ObjCliente.ImprimeNombreSucursal
 
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+                RegimenFiscalCliente = ObjCliente.DtResultados(0)("CodigoRegimenFiscal").ToString()
-                    RegimenFiscalCliente = ObjCliente.DtResultados(0)("CodigoRegimenFiscal").ToString()
+                RegimenSociedad = ObjCliente.DtResultados(0)("RegimenSociedad").ToString()
-                    RegimenSociedad = ObjCliente.DtResultados(0)("RegimenSociedad").ToString()
+                TipoPersona = CBool(ObjCliente.DtResultados(0)("TipoPersona"))
-                    TipoPersona = CBool(ObjCliente.DtResultados(0)("TipoPersona"))
+                CargaUsoCFDI()
-                    CargaUsoCFDI()
-                End If
                 'ViewState("NumCtaPago") = ObjCliente.NumCtaPago
                 ViewState("ClienteDesglosaIEPS") = ObjCliente.DesglosaIEPS
                 If Not ClienteDesglosaIEPS Then
@@ -6527,7 +6536,7 @@ Partial Class Ventas
                     End If
                     DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI)
                     'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES
-                    If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1") AndAlso LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
+                    If LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
                         'S01	Sin efectos fiscales.
                         DdlUsoCFDI.SelectedValueExist("23")
                         DdlUsoCFDI.Enabled = False
@@ -7061,7 +7070,7 @@ Partial Class Ventas
         Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595)
 
         'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO
-        If UsuarioActual.Empresa.Funcionalidad(570) = "1" AndAlso Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then
+        If Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then
             RBLPago.SelectedValue = "2"
             RBLPago.Items(0).Enabled = False
             RBLPago_SelectedIndexChanged(Nothing, Nothing)
@@ -7459,9 +7468,9 @@ Partial Class Ventas
                     LblEstado.Text = ObjCliente.DtResultados.Rows(0)("Estado").ToString()
                     'TxtNumCtaPago.Text = ObjCliente.DtResultados.Rows(0)("NumCtaPago").ToString()
                     LblTelefono.Text = ObjCliente.DtResultados.Rows(0)("Telefono").ToString()
-                    If Not UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+                    'If Not UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
-                        LblCP.Text = ObjCliente.DtResultados.Rows(0)("CP").ToString()
+                    '    LblCP.Text = ObjCliente.DtResultados.Rows(0)("CP").ToString()
-                    End If
+                    'End If
                     ViewState("CliLocalidad") = ObjCliente.DtResultados.Rows(0)("Localidad").ToString()
                     ViewState("CliPais") = ObjCliente.DtResultados.Rows(0)("Pais").ToString()
                     ViewState("CliNoExt") = ObjCliente.DtResultados.Rows(0)("NoExt").ToString()
@@ -7518,7 +7527,7 @@ Partial Class Ventas
                         DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString())
                         DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString())
                         'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES
-                        If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1") AndAlso LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
+                        If LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
                             'S01	Sin efectos fiscales.
                             DdlUsoCFDI.SelectedValueExist("23")
                             DdlUsoCFDI.Enabled = False
@@ -7560,7 +7569,7 @@ Partial Class Ventas
                         DdlFormaPago33.SelectedValueExist(ObjCliente.CveFormaPago33)
                         DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI)
                         'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES
-                        If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1") AndAlso LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
+                        If LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
                             'S01	Sin efectos fiscales.
                             DdlUsoCFDI.SelectedValueExist("23")
                             DdlUsoCFDI.Enabled = False
@@ -8038,6 +8047,10 @@ Partial Class Ventas
 
                 End If
 
+                If UsuarioActual.Empresa.Funcionalidad(360) = "1" AndAlso e.Row.DBCampo("CvePrecioLista").ToEntero() > 0 Then
+                    e.Row.FCLiteral("LtlPrecioLista").Visible = True
+                End If
+
                 'CANTIDAD FACTURADA
                 Select Case e.Row.DBCampo("TipoDocto")
                     Case "Cot"
@@ -8191,7 +8204,7 @@ Partial Class Ventas
                 Dim Costo As Decimal = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1)
 
                 'si el costo es cero, puede ser que no halla movimientos del producto, en  esa sucursal. y se volverá a sacar sin especificar sucursal
-                If Costo = 0 Then Costo = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1)
+                If Costo <= 0 Then Costo = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1)
 
                 ObjInventarios.Dispose()
                 Dim PrecioMinimo As Decimal = 0
@@ -8748,7 +8761,7 @@ Partial Class Ventas
         DtOCTmpDT = TmpDT.Copy
         TmpDTError = TmpDT.Copy
 
-        If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Egs", "Dev") Then
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Egs", "Dev") Then
             If RegimenFiscalCliente.Contiene("-1", "") Then
                 Alert("El cliente no tiene asignado un régimen fiscal.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
@@ -8759,6 +8772,7 @@ Partial Class Ventas
                 Exit Sub
             End If
         End If
+
         If ChkEmitirComercioExterior.Checked AndAlso DdlMoneda.SelectedValue.ToEntero() <> 2 Then
             Alert("La moneda de la factura debe ser dolares cuando aplica comercio exterior.", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -8769,7 +8783,7 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs", "Dev") Then
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs", "Dev") Then
 
             If LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso RegimenFiscalCliente <> "616" Then
                 Alert("El Regimen fiscal del cliente debe ser <b>'616 - Sin obligaciones fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
@@ -9396,37 +9410,37 @@ Partial Class Ventas
         End If
 
         'Verifica versión 3.3.()
-        If (Not UsuarioActual.Empresa.Funcionalidad(350) = "1") AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
+        'If (Not UsuarioActual.Empresa.Funcionalidad(350) = "1") AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
-            Dim dttsat As DataTable = TmpDT.FiltraParametros("ISNULL(SATClaveProdServ,'') = '' OR ISNULL(SATClaveUM,'') = '' ")
+        '    Dim dttsat As DataTable = TmpDT.FiltraParametros("ISNULL(SATClaveProdServ,'') = '' OR ISNULL(SATClaveUM,'') = '' ")
-            If dttsat IsNot Nothing AndAlso dttsat.Rows.Count > 0 Then
+        '    If dttsat IsNot Nothing AndAlso dttsat.Rows.Count > 0 Then
-                Dim str As New StringBuilder
+        '        Dim str As New StringBuilder
-                str.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
+        '        str.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
-                For Each drt As DataRow In dttsat.Rows
+        '        For Each drt As DataRow In dttsat.Rows
-                    str.AppendFormat("{0} <br/>", drt("CodigoPS"))
+        '            str.AppendFormat("{0} <br/>", drt("CodigoPS"))
-                Next
+        '        Next
-                Alert(str.ToString(), TipoMensaje.MsgAdvertencia)
+        '        Alert(str.ToString(), TipoMensaje.MsgAdvertencia)
-                dttsat.Dispose()
+        '        dttsat.Dispose()
-                str.Clear()
+        '        str.Clear()
-                Exit Sub
+        '        Exit Sub
-            End If
+        '    End If
-            dttsat.Dispose()
+        '    dttsat.Dispose()
 
-            If UsuarioActual.CveEmpresa = 72 Then
+        '    If UsuarioActual.CveEmpresa = 72 Then
-                Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(SATClaveProdServ,'') = '01010101' ")
+        '        Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(SATClaveProdServ,'') = '01010101' ")
-                If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
+        '        If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
-                    Dim StrNoEncontrados As New StringBuilder
+        '            Dim StrNoEncontrados As New StringBuilder
-                    StrNoEncontrados.Append("Los siguientes productos no existen en el catálogo del SAT<br/><br/>")
+        '            StrNoEncontrados.Append("Los siguientes productos no existen en el catálogo del SAT<br/><br/>")
-                    For Each drt As DataRow In DtNoEncontrados.Rows
+        '            For Each drt As DataRow In DtNoEncontrados.Rows
-                        StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
+        '                StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
-                    Next
+        '            Next
-                    Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
+        '            Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
-                    DtNoEncontrados.Dispose()
+        '            DtNoEncontrados.Dispose()
-                    StrNoEncontrados.Clear()
+        '            StrNoEncontrados.Clear()
-                    Exit Sub
+        '            Exit Sub
-                End If
+        '        End If
-                DtNoEncontrados.Dispose()
+        '        DtNoEncontrados.Dispose()
-            End If
+        '    End If
-        End If
+        'End If
 
         'CREA UNA COPIA DE SEGURIDAD PARA LOS DATOS DEL TMPDT
         If TmpDTError Is Nothing OrElse TmpDTError.Rows.Count = 0 Then
@@ -10068,7 +10082,7 @@ Partial Class Ventas
 
                         Try
                             If AutoConta Then
-                                If idCuentaContabilizacion > 0 Then
+                                If idCuentaContabilizacion > 0 Or UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
                                     If ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
                                         If ObjContPaq IsNot Nothing Then ObjContPaq.Commit()
                                     Else
@@ -10643,23 +10657,14 @@ Partial Class Ventas
 
         ObjFacturaDevolucion.Fecha = Now
 
+        ObjFacturaDevolucion.Version = "4.0"
 
-
+        If ObjFacturaDevolucion.Cliente Is Nothing Then
-        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+            ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel
-            ObjFacturaDevolucion.Version = "4.0"
-
-            If ObjFacturaDevolucion.Cliente Is Nothing Then
-                ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel
-            End If
-
-            ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
-            ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal
-        Else
-            ObjFacturaDevolucion.Version = "3.3"
         End If
 
-
+        ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
-
+        ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal
 
         ObjFacturaDevolucion.CveMetodoPago33 = 1
         ObjFacturaDevolucion.MetodoPago33 = "Pago en una sola exhibición"
@@ -10942,20 +10947,15 @@ Partial Class Ventas
         End If
         ObjFacturaBonificacion.Fecha = Now
 
+        ObjFacturaBonificacion.Version = "4.0"
 
-        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+        If ObjFacturaBonificacion.Cliente Is Nothing Then
-            ObjFacturaBonificacion.Version = "4.0"
+            ObjFacturaBonificacion.Cliente = New Modelos.ClienteModel
-
-            If ObjFacturaBonificacion.Cliente Is Nothing Then
-                ObjFacturaBonificacion.Cliente = New Modelos.ClienteModel
-            End If
-
-            ObjFacturaBonificacion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
-            ObjFacturaBonificacion.Cliente.RegimenFiscal = ClienteRegimenFiscal
-        Else
-            ObjFacturaBonificacion.Version = "3.3"
         End If
 
+        ObjFacturaBonificacion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
+        ObjFacturaBonificacion.Cliente.RegimenFiscal = ClienteRegimenFiscal
+
         ObjFacturaBonificacion.CveMetodoPago33 = 1
         ObjFacturaBonificacion.MetodoPago33 = "Pago en una sola exhibición"
         ObjFacturaBonificacion.ClaveMetodoPagoSAT = "PUE"
@@ -11368,18 +11368,14 @@ Partial Class Ventas
             ObjFactura = New Modelos.Factura
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+        ObjFactura.Version = "4.0"
-            ObjFactura.Version = "4.0"
+        If ObjFactura.Cliente Is Nothing Then
-            If ObjFactura.Cliente Is Nothing Then
+            ObjFactura.Cliente = New Modelos.ClienteModel
-                ObjFactura.Cliente = New Modelos.ClienteModel
-            End If
-
-            ObjFactura.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
-            ObjFactura.Cliente.RegimenFiscal = ClienteRegimenFiscal
-        Else
-            ObjFactura.Version = "3.3"
         End If
 
+        ObjFactura.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
+        ObjFactura.Cliente.RegimenFiscal = ClienteRegimenFiscal
+
         ObjFactura.CveUsuario = UsuarioActual.CveUsuario
         ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
         ObjFactura.TipoCambio = If(DdlMoneda.SelectedValue.ToEntero() = 1, 1, TxtTipoCambio.Text.Trim.ToDecimal)
@@ -12154,19 +12150,15 @@ Partial Class Ventas
 
         ObjFacturaDevolucion.SerieFolioPadre = HdnFolioFiscalNC.Value.ToString()
 
-        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+        ObjFacturaDevolucion.Version = "4.0"
-            ObjFacturaDevolucion.Version = "4.0"
 
-            If ObjFacturaDevolucion.Cliente Is Nothing Then
+        If ObjFacturaDevolucion.Cliente Is Nothing Then
-                ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel
+            ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel
-            End If
-
-            ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
-            ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal
-        Else
-            ObjFacturaDevolucion.Version = "3.3"
         End If
 
+        ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
+        ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal
+
         ObjFacturaDevolucion.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero()
         ObjFacturaDevolucion.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero() > 0, DdlMetodoPago33.SelectedItem.Text, "")
         ObjFacturaDevolucion.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
@@ -12412,7 +12404,7 @@ Partial Class Ventas
         Dim Timbre As New CFDITimbre
 
 
-        Timbre.Comprobante.Version = If(UsuarioActual.Empresa.Funcionalidad(350) = "1", "4.0", "3.3")
+        Timbre.Comprobante.Version = "4.0"
 
         Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
         Timbre.Comprobante.Folio = Obj.Folio.ToString()
@@ -12441,11 +12433,7 @@ Partial Class Ventas
             Timbre.Receptor.DomicilioFiscalReceptor = Obj.ClienteSucursal.CP
         Else
             Timbre.Receptor.RFC = Obj.Cliente.RFC
-            If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+            Timbre.Receptor.Nombre = Obj.Cliente.Nombre
-                Timbre.Receptor.Nombre = Obj.Cliente.Nombre
-            Else
-                Timbre.Receptor.Nombre = Obj.Cliente.Nombre + " " + Obj.Cliente.RegimenSociedad
-            End If
             Timbre.Receptor.DomicilioFiscalReceptor = Obj.Cliente.CP
         End If
 
@@ -13346,11 +13334,9 @@ Partial Class Ventas
             For Each Row As DataRow In TmpDTDetalle.Rows
                 If Not ObjVentas.AddVentaDetalle(ObjVentas.CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDouble, Row("CveUM").ToString().ToEntero(),
                                                  Row("PU").ToString().ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("ImporteIVA").ToString().ToDouble, Math.Round((Row("Total").ToString().ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)) * (1 + Row("PorcentajeIVA").ToString().ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)))), 6),
-                                                 Row("Obs").ToString(), Row("Descuento").ToString().ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(),
+                                                 Row("Obs").ToString(), Row("Descuento").ToString().ToDouble(If(factura.ConvertirPesos, factura.TipoCambio, 1)), Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(), TiempoEntrega:=Row("TiempoEntrega").ToString(), CveVentaDetallePadre:=Row("CveVentaDetalle").ToString().ToEntero(),
-                                                 TiempoEntrega:=Row("TiempoEntrega").ToString(), CveVentaDetallePadre:=Row("CveVentaDetalle").ToString().ToEntero(), CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero(),
+                                                 CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero(), IEPS:=Row("ImporteIEPS").ToString().ToDouble, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString().ToEntero(), ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDouble,
-                                                 IEPS:=Row("ImporteIEPS").ToString().ToDouble, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString().ToEntero(),
+                                                 PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDouble, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero()) Then
-                                                 ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDouble,
-                                                 PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDouble, CuentaPredial:=Row("CuentaPredial").ToString()) Then
                     ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                     Exit For
                 Else
@@ -14788,49 +14774,12 @@ Partial Class Ventas
                                     CveVentaAmortizacionAplicar = ObjFactura.CveVenta
                                 End If
 
-                                ''Cuando se está amortizando con un anticipo y es la modalidad de NC
-                                'If ObjFactura.TipoDocto.Contiene("Ing") AndAlso CveAnticipo > 0 AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then
-                                '    ConceptoContableAplicar = 11
-                                '    CveVentaAplicar = CveAnticipo
-                                '    CveVentaAmortizacionAplicar = ObjFactura.CveVenta
-                                'End If
-
-                                ' If UsuarioActual.CveEmpresa = 119 Then
-
-                                'código fijo en base el porcentaje iva, que se afecten las clasificaciones
-                                'For i = 0 To TmpDTDetalle.Rows.Count - 1
-
-                                '    'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
-                                '    If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097", "24479") Then
-
-                                '        'If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal > 0 Then
-                                '        '        If TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal = 0.08 Then
-                                '        '            TmpDTDetalle(i)("CveClasificacion") = 20242  'clasif: ventas tasa 8%
-                                '        '        Else
-                                '        '            TmpDTDetalle(i)("CveClasificacion") = 19929  'clasif: ventas tasa 16%
-                                '        '        End If
-
-                                '        '    Else
-                                '        '        TmpDTDetalle(i)("CveClasificacion") = 19930  'clasif: ventas tasa 0%
-                                '        '    End If
-
-                                '        'reclasifica la clasificación del producto, por la del ingreso correspondiente a su iva
-                                '        If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows.Count > 0 Then
-                                '            TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDecimal).Rows(0)("CveClasificacion").ToString()
-                                '        End If
-
-                                '    End If
-
-                                'Next
-
-                                ' End If
-
                                 DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"})
 
                                 If DT.Rows.Count > 0 Then
                                     'Se agrega movimiento separado por la cuenta de ventas (ER)
                                     For Each Row2 As DataRow In DT.Rows
-                                        importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
+                                        importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString().ToDecimal()) * ValorMultiplicador
                                         importeMX = importeMovimiento * tipoCambio * Multiplicador
                                         FechaMovimiento = ObjFactura.FechaPago
                                         Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
@@ -14844,8 +14793,6 @@ Partial Class Ventas
                                         End If
 
 
-                                        'CveCuenta = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresosSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero()
-
                                         If importeMovimiento <> 0 Then
 
                                             If IdCtaContable <= 0 Then
@@ -14871,37 +14818,12 @@ Partial Class Ventas
                                 Dim CveVentaAplicar = ObjFactura.CveVenta
                                 Dim CveVentaAmortizacionAplicar = -1
 
-                                'If UsuarioActual.CveEmpresa = 119 Then
-
-                                '    'código fijo en base el porcentaje iva, que se afecten las clasificaciones
-                                '    For i = 0 To TmpDTDetalle.Rows.Count - 1
-
-                                '        'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
-                                '        If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then
-
-                                '            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
-                                '                TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString()
-                                '            End If
-
-                                '        End If
-
-                                '    Next
-
-                                'End If
-
                                 DT = TmpDTDetalle.FiltraParametros($"CvePS <> {CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"})
 
                                 If DT.Rows.Count > 0 Then
                                     'Se agrega movimiento separado por la cuenta de ventas (ER)
                                     For Each Row2 As DataRow In DT.Rows
-                                        importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
+                                        importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString().ToDecimal) * ValorMultiplicador
-
-                                        'If ObjFactura.TipoDocto = "Egs" Then
-                                        '    importeMovimiento += (TmpDTDetalle.SUM("ImporteIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
-                                        '    importeMovimiento += (TmpDTDetalle.SUM("ImporteIEPS", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
-                                        '    importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
-                                        '    importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetISR", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
-                                        'End If
 
                                         importeMX = importeMovimiento * tipoCambio * Multiplicador
                                         FechaMovimiento = ObjFactura.FechaPago
@@ -14917,10 +14839,6 @@ Partial Class Ventas
                                             IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero()
                                         End If
 
-                                        If UsuarioActual.CveEmpresa = 119 Then
-                                            If Row2("CveClasificacion").ToString() = "19930" Then IdCtaContable = 1141
-                                            If Row2("CveClasificacion").ToString() = "19929" Then IdCtaContable = 1142
-                                        End If
 
                                         If importeMovimiento <> 0 Then
 
@@ -17683,7 +17601,13 @@ Partial Class Ventas
                 Dim PrecioSugerido As Decimal = 0
                 Dim tPrecioSugerido As Decimal = 0
                 tPrecioSugerido = drPS("Precio").ToString().ToDecimal
-                PrecioSugerido = CalculaPrecioSugerido(CvePSParametro, drPS("CveClasificacion").ToString().ToEntero())
+                Dim ObjPrecioSugerido = CalculaPrecioSugerido(CvePSParametro, drPS("CveClasificacion").ToString().ToEntero())
+
+                PrecioSugerido = ObjPrecioSugerido.PrecioSugerido
+
+                If ObjPrecioSugerido.CvePrecioLista > 0 AndAlso DivPrecioLista.Visible Then
+                    DdlPrecioLista.SelectedValueExist(ObjPrecioSugerido.CvePrecioLista)
+                End If
 
                 If PrecioSugerido <= 0 Then PrecioSugerido = tPrecioSugerido
 
@@ -17723,7 +17647,9 @@ Partial Class Ventas
 
     End Sub
 
-    Private Function CalculaPrecioSugerido(CvePSParametro As Integer, CveClasificacion As Integer) As Decimal
+    Private Function CalculaPrecioSugerido(CvePSParametro As Integer, CveClasificacion As Integer, Optional CvePrecioListaSugerido As Integer = -1) As Modelos.MPrecioSugerido
+        Dim Retorno As New Modelos.MPrecioSugerido
+
         Dim PrecioSugerido As Decimal = 0
 
         If UsuarioActual.CveEmpresa.Contiene(1) Then
@@ -17766,6 +17692,10 @@ Partial Class Ventas
 
             End If
 
+            If DivPrecioLista.Visible AndAlso CvePrecioListaSugerido > 0 Then
+                CvePrecioListaPS = CvePrecioListaSugerido
+            End If
+
             If CvePrecioListaPS > 0 Then
                 Dim ObjPS As New ClsProductosServicios
                 If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then
@@ -17785,7 +17715,8 @@ Partial Class Ventas
                     PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS
                 End If
             End If
-            CvePrecioLista = CvePrecioListaPS
+            Me.CvePrecioLista = CvePrecioListaPS
+            Retorno.CvePrecioLista = CvePrecioListaPS
         End If
 
 
@@ -17797,7 +17728,10 @@ Partial Class Ventas
                 PrecioSugerido = PrecioSugerido * ((PrecioBaseCosto / 100) + 1)
             End If
         End If
-        Return PrecioSugerido
+
+        Retorno.PrecioSugerido = PrecioSugerido
+
+        Return Retorno
     End Function
     Protected Sub DdlPS_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlPS.selectedindexchange
         DdlPSIndexChange(DdlPS.SelectedValue.ToEntero(), DdlPS)
@@ -18488,7 +18422,7 @@ Partial Class Ventas
                 Dim Costo As Decimal = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1)
 
                 'si el costo es cero, puede ser que no halla movimientos del producto, en  esa sucursal. y se volverá a sacar sin especificar sucursal
-                If Costo = 0 Then Costo = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1)
+                If Costo <= 0 Then Costo = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1)
 
                 ObjInventarios.Dispose()
                 Dim PrecioMinimo As Decimal = 0
@@ -18884,11 +18818,29 @@ Partial Class Ventas
                     PU = ObjDescuento.PU
                 End If
 
+                Dim CvePrecioListaPS As Integer = -1
+                Dim PrecioListaPS As String = ""
+
+                'VALIDA LA ASIGNACION DE LISTA DE PRECIOS
+                If DivPrecioLista.Visible Then
+                    If DdlPrecioLista.SelectedValue.ToEntero() > 0 AndAlso DdlPrecioLista.SelectedValue.ToEntero() = Me.CvePrecioLista Then
+                        CvePrecioListaPS = Me.CvePrecioLista
+                        PrecioListaPS = DdlPrecioLista.SelectedItem.Text
+                    Else
+                        Alert("La lista de precios del producto no coincide con la seleccionada", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+                Else
+                    If Me.CvePrecioLista > 0 Then
+                        CvePrecioListaPS = Me.CvePrecioLista
+                    End If
+                End If
+
                 AgregarProductoServicio(Cantidad, DdlUnidadMedida.SelectedValue.ToEntero(), DdlUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero(), DdlClasificacion.SelectedItem.Text,
                                 CvePS, "", TxtObsPS.Text.TrimEnd, PU, ObjDescuento.ImporteDescuento,
                                 DdlProyecto.SelectedValue.ToEntero(), DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedItem.Text,
                                 Serie:=If(DIVCod.Visible, TxtCodigoSerie.Text.Trim, ""), TiempoEntrega:=TxtTiempoEntrega.Text, CuentaPredial:=TxtCuentaPredial.Text.Trim, RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=ObjDescuento.CvePromocionDetalle,
-                                ImporteProntoPago:=ObjDescuento.ImporteProntoPago, ObjDescuento:=ObjDescuento)
+                                ImporteProntoPago:=ObjDescuento.ImporteProntoPago, ObjDescuento:=ObjDescuento, CvePrecioLista:=CvePrecioListaPS, PrecioLista:=PrecioListaPS)
 
                 CalculaUsados()
 
@@ -19079,7 +19031,7 @@ Partial Class Ventas
                       Optional EntregaDirecta As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
                       Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0, Optional CuentaPredial As String = "",
                       Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional SeActualiza As Boolean = False, Optional CvePromocionDetalle As Integer = -1, Optional EsCargo As Boolean = False,
-                      Optional ImporteProntoPago As Decimal = 0, Optional ByRef ObjDescuento As Modelos.VentaDescuentos = Nothing) As Boolean
+                      Optional ImporteProntoPago As Decimal = 0, Optional ByRef ObjDescuento As Modelos.VentaDescuentos = Nothing, Optional CvePrecioLista As Integer = -1, Optional PrecioLista As String = "") As Boolean
 
         Dim Retorno As Boolean = False
         Try
@@ -19335,6 +19287,9 @@ Partial Class Ventas
 
             End If
 
+            Row("CvePrecioLista") = CvePrecioLista
+            Row("PrecioLista") = PrecioLista
+
             If UsuarioActual.CveEmpresa.Contiene(119, 13, 83) Then
                 If Not RemisionesLista.Count > 0 Then 'SI VIENE DE REMISION NO SE CONSIDERA
 
@@ -19569,6 +19524,9 @@ Partial Class Ventas
         TmpDT.Columns.Add("CodigoObjetoImpuesto", GetType(String))
         TmpDT.Columns.Add("CveMarca", GetType(Integer))
 
+        TmpDT.Columns.Add("CvePrecioLista", GetType(Integer))
+        TmpDT.Columns.Add("PrecioLista", GetType(String))
+
         TmpDT.Columns("EsOutSourcing").DefaultValue = False
         TmpDT.Columns("EsCargo").DefaultValue = False
 
@@ -22295,7 +22253,7 @@ Partial Class Ventas
                                              Row("PU").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("ImporteIVA").ToString().ToDouble, Math.Round((Row("Total").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)) * (1 + Row("PorcentajeIVA").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)))), 6),
                                              Row("Obs").ToString(), Row("Descuento").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(), PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, IEPS:=Row("ImporteIEPS").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDouble, TiempoEntrega:=Row("TiempoEntrega").ToString(),
                                              CveVentaDetallePadre:=Row("CveVentaDetalle").ToString().ToEntero(), CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=If(DtPromociones IsNot Nothing, DtPromociones.FiltroPrimeroValor("CvePromocionDetalle", $"CvePS={Row("CvePS").ToString()}").ToEntero(), -1),
-                                             ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDouble, CuentaPredial:=Row("CuentaPredial").ToString()) Then
+                                             ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDouble, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDouble, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDouble, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero()) Then
                             OcurrioError = True
                             Exit For
                         Else
@@ -23478,7 +23436,7 @@ Partial Class Ventas
             RFVCiudadC.Visible = False
             RFVLocalidadC.Visible = False
             RFVSATPais.Visible = False
-            divRegimenCliente.Visible = UsuarioActual.Empresa.Funcionalidad(350) = "1"
+            divRegimenCliente.Visible = True
 
             RdTipoPersona.SelectedValue = "0"
 
@@ -23508,7 +23466,7 @@ Partial Class Ventas
                     DivCorreoCuentaCliente.Visible = True
                     DivBotonesAgregarCliente.Visible = True
                     DivFormaCliente.Visible = True
-                    divRegimenCliente.Visible = UsuarioActual.Empresa.Funcionalidad(350) = "1"
+                    divRegimenCliente.Visible = True
                 End If
             End If
             ObjCliente.Dispose()
@@ -23541,17 +23499,13 @@ Partial Class Ventas
             Else
                 Dim RegimenFiscalCliente As String = "-1"
 
-                If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1") AndAlso DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
+                If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
                     RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscalCliente.SelectedValue.ToEntero()}")
                 End If
 
                 DdlUsoCFDICliente.Items.Clear()
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+                Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
-                    Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
+                DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
-                    DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
-                Else
-                    DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
-                End If
 
                 DdlUsoCFDICliente.DataBind()
                 DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -23573,44 +23527,41 @@ Partial Class Ventas
         Dim CveRegimenFiscal As Integer = -1
         Dim CveUsoCFDI As Integer = 3
 
-        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+        CveRegimenFiscal = DdlRegimenFiscalCliente.SelectedValue.ToEntero()
-            CveRegimenFiscal = DdlRegimenFiscalCliente.SelectedValue.ToEntero()
+        CveUsoCFDI = DdlUsoCFDICliente.SelectedValue.ToEntero()
-            CveUsoCFDI = DdlUsoCFDICliente.SelectedValue.ToEntero()
 
-            Dim RegimenFiscalCliente As String = "-1"
+        Dim RegimenFiscalCliente As String = "-1"
 
-            If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
+        If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
-                RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {CveRegimenFiscal}")
+            RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {CveRegimenFiscal}")
-            End If
+        End If
 
-            If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue <> "11" Then
+        If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue <> "11" Then
-                Alert("El Regimen fiscal del cliente debe ser <b>'616 - Sin obligaciones fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+            Alert("El Regimen fiscal del cliente debe ser <b>'616 - Sin obligaciones fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
+            Exit Sub
-            End If
+        End If
 
-            If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue <> "23" Then
+        If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue <> "23" Then
-                Alert("El uso cfdi del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+            Alert("El uso cfdi del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
+            Exit Sub
-            End If
+        End If
 
-            If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue = "11" Then
+        If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue = "11" Then
-                Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+            Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
+            Exit Sub
-            End If
+        End If
 
-            If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue = "23" Then
+        If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue = "23" Then
-                Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+            Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
+            Exit Sub
-            End If
+        End If
 
-            Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
+        Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
-            Dim DtUsosCFDI = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente).FiltraParametros($"CveUsoCFDI = {CveUsoCFDI}")
+        Dim DtUsosCFDI = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente).FiltraParametros($"CveUsoCFDI = {CveUsoCFDI}")
-
-            If DtUsosCFDI.Rows.Count = 0 Then
-                Alert("El Uso CFDI no corresponde con el tipo de persona (fisca, moral) y el régimen fiscal.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
 
+        If DtUsosCFDI.Rows.Count = 0 Then
+            Alert("El Uso CFDI no corresponde con el tipo de persona (fisca, moral) y el régimen fiscal.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
         End If
 
         If DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
@@ -25672,7 +25623,8 @@ Partial Class Ventas
                     If CvePS > 0 Then
 
                         If PrecioUnitario <= 0 Then
-                            PrecioUnitario = CalculaPrecioSugerido(CvePS, CveClasificacion)
+                            Dim ObjPrecioSugerido = CalculaPrecioSugerido(CvePS, CveClasificacion)
+                            PrecioUnitario = ObjPrecioSugerido.PrecioSugerido
                         End If
 
                         AgregarProductoServicio(Cantidad, CveUM, UM, -1, "",
@@ -33056,6 +33008,10 @@ Partial Class Ventas
         'REMOVER EVENTO PARA RECARGAR ALMACEN
         'spanAlmacen.Attributes.Remove("onclick")
 
+        If UsuarioActual.Empresa.Funcionalidad(360) = "1" Then
+            CargaListasPrecios()
+        End If
+
         HdnCargarInventario.Value = "False"
         UpParametros.Update()
 
@@ -34938,19 +34894,15 @@ Partial Class Ventas
             ObjFacturaProntoPago.Fecha = Now
 
 
-            If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+            ObjFacturaProntoPago.Version = "4.0"
-                ObjFacturaProntoPago.Version = "4.0"
 
-                If ObjFacturaProntoPago.Cliente Is Nothing Then
+            If ObjFacturaProntoPago.Cliente Is Nothing Then
-                    ObjFacturaProntoPago.Cliente = New Modelos.ClienteModel
+                ObjFacturaProntoPago.Cliente = New Modelos.ClienteModel
-                End If
-
-                ObjFacturaProntoPago.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
-                ObjFacturaProntoPago.Cliente.RegimenFiscal = ClienteRegimenFiscal
-            Else
-                ObjFacturaProntoPago.Version = "3.3"
             End If
 
+            ObjFacturaProntoPago.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
+            ObjFacturaProntoPago.Cliente.RegimenFiscal = ClienteRegimenFiscal
+
             ObjFacturaProntoPago.CveMetodoPago33 = 1
             ObjFacturaProntoPago.MetodoPago33 = "Pago en una sola exhibición"
             ObjFacturaProntoPago.ClaveMetodoPagoSAT = "PUE"
@@ -35354,7 +35306,8 @@ Partial Class Ventas
         TmpDT.Columns.Add("CveTamaño", GetType(Integer))
         TmpDT.Columns.Add("EsCargo", GetType(Boolean))
         TmpDT.Columns.Add("CveMarca", GetType(Integer))
-
+        TmpDT.Columns.Add("CvePrecioLista", GetType(Integer))
+        TmpDT.Columns.Add("PrecioLista", GetType(String))
         Return TmpDT
     End Function
     Private Function InicializaDTVentasNCProntoPago() As DataTable
@@ -35653,40 +35606,36 @@ Partial Class Ventas
         DVRegimenSociedad.Visible = False
         DivRazonSocial2.Attributes.Add("class", "col-md-12")
 
-        If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
+        DivRazonSocial2.Attributes.Add("class", "col-md-8")
+        DVRegimenSociedad.Visible = True
 
-            DivRazonSocial2.Attributes.Add("class", "col-md-8")
+        If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
-            DVRegimenSociedad.Visible = True
+            DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales().FiltraParametros("CveRegimenFiscal = 11")
+            DdlRegimenFiscalCliente.DataBind()
+        Else
+            Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
+            Dim Val As String = ""
 
-            If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then
+            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-                DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales().FiltraParametros("CveRegimenFiscal = 11")
+                'verifico que sino existe el valor. lo limpie 
-                DdlRegimenFiscalCliente.DataBind()
+                Val = dt.FiltroPrimeroValor("CveRegimenFiscal", "CveRegimenFiscal = " & DdlRegimenFiscalCliente.SelectedValue)
-            Else
+                If Val = "" Then 'sino encuentra valor, lo limpia
-                Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
+                    DdlRegimenFiscalCliente.Items.Clear()
-                Dim Val As String = ""
+                    DdlRegimenFiscalCliente.SelectedValue = Nothing
-
-                If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-                    'verifico que sino existe el valor. lo limpie 
-                    Val = dt.FiltroPrimeroValor("CveRegimenFiscal", "CveRegimenFiscal = " & DdlRegimenFiscalCliente.SelectedValue)
-                    If Val = "" Then 'sino encuentra valor, lo limpia
-                        DdlRegimenFiscalCliente.Items.Clear()
-                        DdlRegimenFiscalCliente.SelectedValue = Nothing
-                    End If
                 End If
-
-                DdlRegimenFiscalCliente.DataSource = dt
-                DdlRegimenFiscalCliente.DataBind()
-                DdlRegimenFiscalCliente.SelectedValueExist(Val)
-
             End If
 
-            DdlRegimenFiscalCliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DdlRegimenFiscalCliente.DataSource = dt
-
+            DdlRegimenFiscalCliente.DataBind()
-            DdlUsoCFDICliente.Items.Clear()
+            DdlRegimenFiscalCliente.SelectedValueExist(Val)
-            DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         End If
 
+        DdlRegimenFiscalCliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        DdlUsoCFDICliente.Items.Clear()
+        DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
         UpAgregarCliente.Update()
     End Sub
 
@@ -36466,7 +36415,7 @@ Partial Class Ventas
                             PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS
                         End If
                     End If
-                    CvePrecioLista = CvePrecioListaPS
+                    Me.CvePrecioLista = CvePrecioListaPS
                 End If
 
 
@@ -36808,5 +36757,20 @@ Partial Class Ventas
         End If
 
     End Sub
+
+    Protected Sub DdlPrecioLista_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If DivPrecioLista.Visible AndAlso DdlPrecioLista.SelectedValue.ToEntero() > 0 Then
+            Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero()).FiltroPrimero("")
+
+            Dim ObjPrecioSugerido = CalculaPrecioSugerido(drPS("CvePS").ToString().ToEntero(), drPS("CveClasificacion").ToString().ToEntero(), CvePrecioListaSugerido:=DdlPrecioLista.SelectedValue.ToEntero())
+
+            If ObjPrecioSugerido.PrecioSugerido > 0 Then
+                TxtPrecio.Text = ObjPrecioSugerido.PrecioSugerido.ToString("#,###.####")
+            Else
+                Alert("No se encontro un precio para este producto en la lista de precios seleccionada")
+            End If
+
+        End If
+    End Sub
 End Class