local

App_Code/ClsAF.vb

@@ -3241,6 +3241,198 @@ Public Class ClsAF
         Return Retorno
     End Function
 #End Region
+#Region "M E T R I C A S"
+    Public Function GetMetricas(CveMetrica As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddMetricas(Metrica As String) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Metrica", SqlDbType.Int).Value = Metrica
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function DeleteMetricas(CveMetrica As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetMetricasValores(Optional CveMetricaValor As Integer = -1, Optional CveAF As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveUsuario As Integer = -1,
+                                       Optional CveSubProyecto As Integer = -1, Optional Fecha As String = "1900-01-01", Optional FechaIng As String = "1900-01-01") As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasValoresGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
+            .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddMetricasValores(Optional CveAF As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveUsuario As Integer = -1,
+                                       Optional CveSubProyecto As Integer = -1, Optional Fecha As String = "1900-01-01", Optional FechaIng As String = "1900-01-01") As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasValoresAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
+            .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el valor de métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function RemoveMetricasValores(CveMetricaValor As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasValoresRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el valor de métrica de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasValoresDetalleGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
+            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1, Optional Valor As String = "-1") As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasValoresDetalleAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
+            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
+            .Add("@Valor", SqlDbType.NVarChar).Value = Valor
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el detalle de los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function DeleteMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1, Optional Valor As String = "-1") As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasValoresDetalleAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
+            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
+            .Add("@Valor", SqlDbType.NVarChar).Value = Valor
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el detalle de los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
 
 
 #Region " IDisposable Support "

App_Code/ClsBancos.vb

@@ -943,7 +943,7 @@ Public Class ClsBancos
 
 #Region "Complemento Pagos"
 
-    Public Function GeneraTimbrePago(CveIE As Integer, CveVenta As Integer, UsuarioActual As Usuario, Optional CveCliente As Integer = -1, Optional CFDIRelacionado As String = "-1", Optional EsCancelacion As Boolean = False, Optional EsRegeneracion As Boolean = False, Optional CvePrePoliza As Integer = -1, Optional FechaTimbrado As DateTime = MinFecha) As Boolean
+    Public Function GeneraTimbrePago(CveIE As Integer, CveVenta As Integer, UsuarioActual As Usuario, Optional CveCliente As Integer = -1, Optional CFDIRelacionado As String = "-1", Optional EsRegeneracion As Boolean = False, Optional CvePrePoliza As Integer = -1, Optional FechaTimbrado As DateTime = MinFecha) As Boolean
 
         If FechaTimbrado = MinFecha Then FechaTimbrado = DateTime.Now
         Dim Serie As String = "Pag"
@@ -954,11 +954,11 @@ Public Class ClsBancos
         Dim dttpagos As DataTable = Nothing
         Dim dr As Data.DataRow = Nothing
 
-        If GetComplementoPagosRep(-1, Now.AddYears(-2), Now, If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsCancelacion OrElse EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
+        If GetComplementoPagosRep(-1, Now.AddYears(-2), Now, If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
             dr = DtResultados.FiltroPrimero("CveVenta IS NULL")
             dttpagos = DtResultados.FiltraParametros("CveVenta > 0")
         End If
-        If EsCancelacion Then Estatus = 2
+        'If EsCancelacion Then Estatus = 2
         If EsRegeneracion Then Estatus = 3
 
 
@@ -1044,9 +1044,9 @@ Public Class ClsBancos
 
             End Select
 
-            If EsCancelacion AndAlso (CFDIRelacionado = "-1" OrElse CFDIRelacionado = "") Then
+            'If EsCancelacion AndAlso (CFDIRelacionado = "-1" OrElse CFDIRelacionado = "") Then
-                Mensaje += "  La cancelación debe de tener documento relacionado"
+            '    Mensaje += "  La cancelación debe de tener documento relacionado"
-            End If
+            'End If
 
             If Not Mensaje.Length = 0 Then
                 GuardaLog(Mensaje)
@@ -1061,7 +1061,7 @@ Public Class ClsBancos
             Timbre = Timbrado.PreparaTimbrePago(RFCEmpresa, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal,
                                     RFCCliente, dr("NombreCliente").ToString, Serie, Folio.ToString, FechaTimbrado, Cuentapago,
                                      dr("FechaDocumento").ToString.ToDate, dr("ClaveFormaPagoSAT").ToString, dr("AbreviaturaSAT").ToString, dr("VentasTotalPagado").ToString.ToDouble,
-                                                UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDouble, dttpagos, CFDIRelacionado:=CFDIRelacionado, EsCancelacion:=EsCancelacion)
+                                                UsuarioActual.Empresa.CP.ToString, CuentaBeneficiario, dr("TipoCambioPago").ToString.ToDouble, dttpagos, CFDIRelacionado:=CFDIRelacionado, EsCancelacion:=False)
 
             ''PREPARA PARA CANCELACION POR SUSTITUCION DE COMPLEMENTO DE PAGO 
             'If CFDIRelacionado <> "-1" And CFDIRelacionado <> "" Then

App_Code/ClsContabilidad.vb

@@ -1211,11 +1211,11 @@ Public Class ClsContabilidad
                             CveConceptoContable = dr("CveConceptoContable").ToString().ToEntero
 
                             Select Case CveConceptoContable
-                                Case 6, 5, 17, 14, 19, 15, 16, 272, 275
+                                Case 6, 5, 17, 14, 19, 15, 16, 272, 275, 305, 306, 307, 308, 309, 310, 311, 312, 313, 314, 315, 316
                                     SigReferencia = dr("CveCompra").ToString.ContaReferencia(TipoContaReferencia.Compra)
-                                Case 2, 4, 1, 13, 61, 62, 63, 8, 9, 91, 251, 226
+                                Case 2, 4, 1, 13, 61, 62, 63, 8, 9, 91, 251, 226, 291, 292, 293, 294, 295, 296
                                     SigReferencia = dr("CveVenta").ToString.ContaReferencia(TipoContaReferencia.Venta)
-                                Case 30, 66, 92
+                                Case 30, 66, 92, 204
                                     SigReferencia = dr("CveIE").ToString.ContaReferencia(TipoContaReferencia.Banco)
 
                             End Select

App_Code/Modelos.vb

@@ -2197,6 +2197,7 @@ Namespace Modelos
                                     Dim ImporteAcumulado91 As Decimal = 0
                                     Dim CveUltimaVenta As Integer = 0
                                     If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+                                    IdCtaContable = 0
                                     If tipoCambio = 1 Then
                                         IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
                                         CveCuenta = ObjFactura.Cliente.CveCuentaClientes
@@ -2600,8 +2601,12 @@ Namespace Modelos
                                                 'CTACONTABLE
                                                 'IdCtaContable = IdCtaContAnticipos
                                                 'CveCuenta = CveCuentaAnticipos
-                                                IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
+
-                                                CveCuenta = ObjFactura.Cliente.CveCuentaClientes
+                                                If tipoCambio = 1 Then
+                                                    IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
+                                                Else
+                                                    IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera
+                                                End If
 
                                                 CveSubProyectoContabilizar = CveSubProyectoVenta
 

Bancos/RepComplementoPago.aspx

@@ -114,7 +114,7 @@
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvD" runat="server" GridLines="None"
-                DataKeyNames="CobranzaCorreo,CveIE,CveVenta,CveEmpresa,FechaDocumento, PagoAbreviaturaSAT,Folio, ClaveFormaPagoSAT, NumCuenta,Importe, FolioFiscal,VentaSerie,VentaFolio,VentaAbreviaturaSAT, VentaImportePagado,MetodoPago,TipoCambio,NumParcialidad,ImpSaldoInsoluto,ImpSaldoAnterior,RFC,NombreCliente,PorcentajeIVA,PorcentajeIEPS,CuentaBeneficiario,SerieFolioPago,FolioFiscalComplemento"
+                DataKeyNames="CobranzaCorreo,CveIE,CveVenta,CveEmpresa,FechaDocumento, PagoAbreviaturaSAT,Folio, ClaveFormaPagoSAT, NumCuenta,Importe, FolioFiscal,VentaSerie,VentaFolio,VentaAbreviaturaSAT, VentaImportePagado,MetodoPago,TipoCambio,NumParcialidad,ImpSaldoInsoluto,ImpSaldoAnterior,RFC,NombreCliente,PorcentajeIVA,PorcentajeIEPS,CuentaBeneficiario,SerieFolioPago,FolioFiscalComplemento,CveComplementoPago"
                 CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros">
                 <Columns>
                     <asp:TemplateField HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Left">

Bancos/RepComplementoPago.aspx.vb

@@ -300,23 +300,72 @@ Partial Class Bancos_RepComplementoPago
 
         Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero
         Dim SerieFolioPago As String = Gvr.DataKey("SerieFolioPago").ToString
-        Dim CFDIRelacionado As String = Gvr.DataKey("FolioFiscalComplemento").ToString
+        Dim FolioFiscalCancelar As String = Gvr.DataKey("FolioFiscalComplemento").ToString
+        Dim CveComplementoPagoCancelar As Integer = Gvr.DataKey("CveComplementoPago").ToEntero
+        Dim CvePACCancelacion As Integer = UsuarioActual.Empresa.CvePAC
+        Dim RFCReceptorCancelar As String = Gvr.DataKey("RFC").ToString
 
-        If CFDIRelacionado <> "" Then
+        If FolioFiscalCancelar <> "" Then
-            Dim objBancos As New ClsBancos
+            Dim ObjCancelacion As New Timbrado
+            Dim ObjBanco As New ClsBancos
+
+            If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
+
+                If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
+
+                    Alert("El complemento se cancelo correctamente.")
+                End If
 
-            If objBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, -1, CFDIRelacionado, True) Then
-                Alert($"Complemento {SerieFolioPago} cancelado correctamente.")
             Else
-                Alert($"Se presento un error al cancelar el complementob {SerieFolioPago}.", TipoMensaje.MsgError)
+
+                If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
+
+                    If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+
+                        Alert("El complemento se cancelo correctamente.")
+                    End If
+                Else
+                    Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
+                End If
+
             End If
 
-            objBancos.Dispose()
+            ObjBanco.Dispose()
+
+            'Dim objBancos As New ClsBancos
+
+            'If objBancos.GeneraTimbrePago(CveIE, -1, UsuarioActual, -1, CFDIRelacionado, True) Then
+            '    Alert($"Complemento {SerieFolioPago} cancelado correctamente.")
+            'Else
+            '    Alert($"Se presento un error al cancelar el complementob {SerieFolioPago}.", TipoMensaje.MsgError)
+            'End If
+
+            'objBancos.Dispose()
         End If
 
 
     End Sub
 
+    Function EstatusSATCancelado(FolioFiscal As String, RFCDe As String, RFCReceptor As String) As Boolean
+
+        Dim respuesta As Boolean = False
+
+        Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, RFCDe, RFCReceptor, "0", True)
+
+        If Vigencia IsNot Nothing Then
+            If Vigencia.Estado.ToUpper = "CANCELADO" Then
+                respuesta = True
+            Else
+                respuesta = False
+            End If
+        Else
+            respuesta = False
+        End If
+         
+        Return respuesta
+    End Function
+
+
     Protected Sub LnkSendMail_Click(sender As Object, e As EventArgs)
         Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
         HdnSerieFolioPago.Value = gvRow.DataKey("SerieFolioPago").ToString

Compras/Compras.aspx.vb

@@ -5714,7 +5714,7 @@ Partial Class Compras_Compras
                                                                 importeMovimiento = importeMovimiento / TipoCambioCompra
                                                             End If
                                                             importeMN = importeMovimiento * TipoCambioCompra * Multiplicador
-                                                            IdCtaContable = CtaProveedor
+                                                            IdCtaContable = If(CveTipoConcepto = 2, CtaProveedorAcreedores, CtaProveedor)
                                                             CveCuenta = CveCuentaProveedor
 
 
@@ -5755,11 +5755,7 @@ Partial Class Compras_Compras
                                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
                                                                             idCuentaContabilizacion = 0
                                                                         End If
-                                                                        'Conta SIG
+
-                                                                        If CveCuenta = 0 Then
-                                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
-                                                                            CveCuentaContabilizacion = 0
-                                                                        End If
                                                                     End If
                                                                 Next
 
@@ -6371,11 +6367,7 @@ Partial Class Compras_Compras
                                                                                 CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString)
                                                                                 idCuentaContabilizacion = 0
                                                                             End If
-                                                                            'Conta SIG
+
-                                                                            If CveCuenta = 0 Then
-                                                                                CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString)
-                                                                                CveCuentaContabilizacion = 0
-                                                                            End If
                                                                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                                 ErrorPrepoliza = True
                                                                             End If
@@ -6817,7 +6809,7 @@ Partial Class Compras_Compras
                                                                 If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 307
 
                                                                 If tipoCambioActual = 1 Then
-                                                                    IdCtaContable = CtaProveedor
+                                                                    IdCtaContable = If(CveTipoConcepto = 2, CtaProveedorAcreedores, CtaProveedor)
                                                                     CveCuenta = CveCuentaProveedor
                                                                 Else
                                                                     IdCtaContable = CtaProveedorComplementaria
@@ -6860,11 +6852,6 @@ Partial Class Compras_Compras
                                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                                                             idCuentaContabilizacion = 0
                                                                         End If
-                                                                        'Conta SIG
-                                                                        If CveCuenta = 0 Then
-                                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                                            CveCuentaContabilizacion = 0
-                                                                        End If
 
                                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True
@@ -7120,11 +7107,6 @@ Partial Class Compras_Compras
                                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                                                             idCuentaContabilizacion = 0
                                                                         End If
-                                                                        'Conta SIG
-                                                                        If CveCuenta = 0 Then
-                                                                            CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                                            idCuentaContabilizacion = 0
-                                                                        End If
 
                                                                         'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA
                                                                         If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
@@ -7457,11 +7439,7 @@ Partial Class Compras_Compras
                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                                             idCuentaContabilizacion = 0
                                                         End If
-                                                        'COnta SIG
+
-                                                        If CveCuenta = 0 Then
-                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                            CveCuentaContabilizacion = 0
-                                                        End If
 
                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
                                                             ErrorPrepoliza = True
@@ -16874,14 +16852,8 @@ Partial Class Compras_Compras
         'VALIDA IMPORTES
         'VALIDA TOTAL CON LOS IMPORTES TOTALES
         Dim TempSubTotal, TempDescuentos, TempIVA, TempSubTotal2, TempRetIVA, TempRetISR, TempTotal, DifTotales, TempIEPS As Double
-        'Dim TempPorcentajeRetIVA = LblRetIVA.Text.ToDouble / 100
-        'Dim TempPorcentajeRetISR = LblRetISR.Text.ToDouble / 100
-        Dim Amortizacion As Decimal = 0
-        If UsuarioActual.CveEmpresa = 119 Then
-            Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
-            TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString
-        End If
 
+        Dim Amortizacion As Decimal = 0
         Dim TieneAmortizacion As Boolean = False
         If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then
             TieneAmortizacion = True
@@ -16891,6 +16863,12 @@ Partial Class Compras_Compras
             LblAmortizacion.Text = "0.00"
         End If
 
+        If UsuarioActual.CveEmpresa = 119 AndAlso TieneAmortizacion Then
+            Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
+            TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString
+        End If
+
+
         TempSubTotal = TxtSubTotal.Text.ToDouble
         SubTotalOriginal = TxtSubTotal.Text.ToDouble
         SubTotal2Original = TxtSubTotal2.Text.ToDouble

Contratos/Contrato.aspx

@@ -373,7 +373,7 @@
                                                 </div>
                                                 <div class="portlet-body rowpadding">
                                                     <div class="row" id="trddlproyecto" runat="server">
-                                                        <label class="col-md-4 truncate">Proyecto:</label>
+                                                        <asp:Label runat="server" ID="LblProyecto" class="col-md-4 truncate">Proyecto:</asp:Label>
                                                         <div class="col-md-8">
                                                             <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-sm select2me" Style="width: 200px;" ValidationGroup="GrpGuardar">
                                                                 <asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem>
@@ -383,7 +383,7 @@
                                                     <div class="row">
                                                         <label class="col-md-4 truncate">
                                                             <asp:Label ID="lblsubproyecto" runat="server" Text="SubProyectoContrato:"></asp:Label></label><div class="col-md-8">
-                                                                <asp:DropDownList ID="DdlSubProyectoContrato" runat="server" AppendDataBoundItems="true" AutoPostBack="false" DataTextField="SubProyecto2" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-sm select2me" Style="width: 200px;" ValidationGroup="GrpGuardar">
+                                                                <asp:DropDownList ID="DdlSubProyectoContrato" runat="server" AppendDataBoundItems="true" AutoPostBack="false" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-sm select2me" Style="width: 200px;" ValidationGroup="GrpGuardar">
                                                                     <asp:ListItem Selected="True" Text="Sin SubProyectoContrato asignado" Value="-1"></asp:ListItem>
                                                                 </asp:DropDownList>
                                                                 <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyectoContrato" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>

Contratos/Contrato.aspx.vb

@@ -1488,14 +1488,15 @@ Partial Class Contratos_Default
 
 #Region "COMBOS - INFO GENERAL"
     Private Sub CargaProyecto()
-        If UsuarioActual.Empresa.GralSoloProyecto Then
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyectoContrato, LblProyecto, lblsubproyecto)
-            CargaSubProyectoContrato(-1)
+        trddlproyecto.Visible = LblProyecto.Visible
-            trddlproyecto.Visible = False
+        'If UsuarioActual.Empresa.GralSoloProyecto Then
-            lblsubproyecto.Text = "Proyecto"
+        '    CargaSubProyectoContrato(-1)
-        Else
+        '    lblsubproyecto.Text = "Proyecto"
-            DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
+        'Else
-            DdlProyecto.DataBind()
+        '    DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
-        End If
+        '    DdlProyecto.DataBind()
+        'End If
     End Sub
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
         CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero)

Contratos/PopUpBuscarContrato.aspx

@@ -70,11 +70,11 @@
                                     
                                 </tr>
                                 <tr style="text-align:left">
-                                    <td class="text-right" style="height:25px!important"><asp:Label runat="server" ID="LblProyecto" Text="Proyecto:"/></td>                                      
+                                    <td class="text-right" style="height:25px!important"><asp:Label runat="server" ID="LblProyecto" Font-Bold="true" Text="Proyecto:"/></td>                                      
                                     <td style="height:25px!important">   
                                           <asp:DropDownList  ID="DdlProyecto"  Height="30px"  AutoPostBack="true"  Width="150" DataValueField="CveProyecto" DataTextField="Proyecto" runat="server" CssClass="select2me"></asp:DropDownList>                                                                           
                                     </td>
-                                    <td class="text-right"  style="height:25px!important"><asp:Label runat="server" ID="LblSubProyecto" Text="SubProyecto:"/></td>
+                                    <td class="text-right"  style="height:25px!important"><asp:Label runat="server" ID="LblSubProyecto" Font-Bold="true" Text="SubProyecto:"/></td>
                                     <td style="height:25px!important">  
                                         <asp:DropDownList  ID="DdlSubProtecto"  Height="30px"    Width="150" DataValueField="CveSubProyecto" DataTextField="SubProyecto"  runat="server" CssClass="select2me"></asp:DropDownList>                                 
                                     </td>

Inventarios/CatAlmacenClasificacionSecciones.aspx

@@ -24,7 +24,7 @@
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveSeccionClasificacion,CveAlmacen,CveClasificacion,CveClasificacionDetalle,CveMarca,CveSeccionAlmacen,Almacen,Clasificacion,ClasificacionDetalle,Marca,SeccionAlmacen"
-                EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" 
+                EmptyDataText="No se encontraron registros" ToolTip="" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" 
                 GridLines="None">
                 <Columns>
                     <asp:BoundField DataField="Almacen" HeaderText="Almacén" />

Inventarios/EntradasSalidas.aspx.vb

@@ -779,7 +779,7 @@ Partial Class Inventarios_EntradasSalidas
             'Carga Cliente y ClienteSucursal
             If Mov.CveCliente > 0 Then
                 If DdlClientes.Items.FindByValue(Mov.CveCliente.ToString()) Is Nothing Then
-                    Dim dr As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=Mov.CveCliente).FiltroPrimero("")
+                    Dim dr As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=Mov.CveCliente, Estatus:=-1).FiltroPrimero("")
                     If dr IsNot Nothing Then
                         DdlClientes.Items.Insert(0, New ListItem(dr("NombreComercial").ToString, dr("CveCliente").ToString))
                     End If

Inventarios/RepNotasSinAlmacen.aspx

@@ -71,7 +71,7 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
-    Reporte de Compras / Notas Sin Entrada
+    Reporte de Compras Sin Entrada-Ventas Sin Salida
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UpFiltros" runat="server" UpdateMode="Conditional">

LogIn.aspx.vb

@@ -266,7 +266,7 @@ Partial Class LogIn
                     userm.Nombre = Usuario.Nombre
                     userm.Contraseña = Usuario.Contraseña
                     userm.CvePerfil = Usuario.CveRol
-                    userm.CveEmpresa = 119 'Usuario.CveEmpresa
+                    userm.CveEmpresa = 1 'Usuario.CveEmpresa
                     userm.CveUsuarioModifico = Usuario.CveEmpresa
                     userm.CveUsuarioRegistro = Usuario.CveEmpresa
                     RegistraScript(String.Format("opennewlocation('{0}','{1}')", ReturnUrl, GenerateJSONWebToken(userm)))

RH/Personal.aspx

@@ -766,7 +766,7 @@
                                                 <div class="portlet-title">
                                                     <div class="caption font-green">
                                                         <i class="icon-user-following font-green"></i>
-                                                        <span class="caption-subject bold uppercase">Uniforme:</span>
+                                                        <span class="caption-subject bold uppercase">Resguardos:</span>
                                                     </div>
                                                     <div class="actions">
                                                         <div class="btn-group">
@@ -1288,7 +1288,7 @@
                                                         <asp:DropDownList ID="DdlRegimenContratacion" runat="server" AppendDataBoundItems="true" DataTextField="RegimenContratacion" CssClass="form-control input-sm select2me" DataValueField="CveSATRegimenContratacion" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
-                                                        <asp:Label runat="server" AssociatedControlID="DdlRegimenContratacion" Text="Régimen Contratación:"></asp:Label>
+                                                        <asp:Label runat="server" AssociatedControlID="DdlRegimenContratacion" Text="Mail recibo nómina:"></asp:Label>
                                                         <asp:RequiredFieldValidator ID="RFVRegimenContratacion" runat="server" ControlToValidate="DdlRegimenContratacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Régimen Contratación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <i></i>
                                                     </div>

vwd.webinfo

@@ -84,6 +84,8 @@
     
   
     
+  
+