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

App_Code/ClsInventarios.vb

@@ -399,7 +399,7 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean
+    Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, CveEmpresa As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_AlmacenesUpdate")
@@ -413,6 +413,7 @@ Public Class ClsInventarios
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Orden", SqlDbType.SmallInt).Value = Orden
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza

Bancos/IE.aspx.vb

@@ -3765,7 +3765,7 @@ Partial Class Bancos_IE
                         End Select
 
 
-                        If UsuarioActual.Empresa.UsaAC Then
+                        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
                             Dim ConceptoRenglon, Referencia As String
                             Dim FolioPoliza As Integer
                             Dim Fecha As Date = TxtFechaDocumento.Text.ToDate
@@ -4484,7 +4484,7 @@ Partial Class Bancos_IE
         Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL())
 
         Dim ObjAC As ClsContPAQi = Nothing
-        If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") Then
             Try
                 ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
                 ObjAC.IniciaTransacSQL()
@@ -4779,7 +4779,7 @@ Partial Class Bancos_IE
         Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL)
 
         Dim ObjAC As ClsContPAQi = Nothing
-        If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") Then
             ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
             ObjAC.IniciaTransacSQL()
         End If
@@ -5107,49 +5107,53 @@ Partial Class Bancos_IE
         EliminaPoliza()
     End Sub
     Private Sub EliminaPoliza()
-        Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
-        ObjAC.IniciaTransacSQL()
-        Dim ObjConta As New ClsContabilidad
-        ObjConta.IniciaTransacSQL()
 
-        Dim ErrorCompra = False
+        If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+            Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
+            ObjAC.IniciaTransacSQL()
+            Dim ObjConta As New ClsContabilidad
+            ObjConta.IniciaTransacSQL()
 
-        'Elimina la poliza 
-        If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0 Then
-            If Not ObjAC.RemovePoliza(IDPoliza) Then
-                ErrorCompra = True
+            Dim ErrorCompra = False
+
+            'Elimina la poliza 
+            If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0 Then
+                If Not ObjAC.RemovePoliza(IDPoliza) Then
+                    ErrorCompra = True
+                End If
+            End If
+
+            'Desasocia la poliza
+            If Not ErrorCompra Then
+                If Not ObjConta.DesasociarPoliza(IDPoliza, UsuarioActual.CveEmpresa) Then
+                    ErrorCompra = True
+                End If
+            End If
+
+            If Not ErrorCompra Then
+                If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                    ErrorCompra = True
+                End If
+            End If
+
+            If Not ErrorCompra Then
+                Alert("La poliza ha sido desvinculada y eliminada con exito.", TipoMensaje.MsgInformacion)
+                ObjAC.Commit()
+                ObjConta.Commit()
+            Else
+                Alert("Ocurrió un error al desvincular y/o eliminar la poliza. Por favor intente de nuevo ", TipoMensaje.MsgError)
+                ObjAC.RollBack()
+                ObjConta.RollBack()
+            End If
+
+            ObjAC.Dispose()
+            ObjConta.Dispose()
+
+            If Not ErrorCompra Then
+                CargaDatos()
             End If
         End If
 
-        'Desasocia la poliza
-        If Not ErrorCompra Then
-            If Not ObjConta.DesasociarPoliza(IDPoliza, UsuarioActual.CveEmpresa) Then
-                ErrorCompra = True
-            End If
-        End If
-
-        If Not ErrorCompra Then
-            If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
-                ErrorCompra = True
-            End If
-        End If
-
-        If Not ErrorCompra Then
-            Alert("La poliza ha sido desvinculada y eliminada con exito.", TipoMensaje.MsgInformacion)
-            ObjAC.Commit()
-            ObjConta.Commit()
-        Else
-            Alert("Ocurrió un error al desvincular y/o eliminar la poliza. Por favor intente de nuevo ", TipoMensaje.MsgError)
-            ObjAC.RollBack()
-            ObjConta.RollBack()
-        End If
-
-        ObjAC.Dispose()
-        ObjConta.Dispose()
-
-        If Not ErrorCompra Then
-            CargaDatos()
-        End If
     End Sub
 #End Region
 
@@ -5593,7 +5597,7 @@ Partial Class Bancos_IE
                     End If
                 End If
 
-                If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0 Then
+                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ((UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0) Then
                     ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
                     ObjAC.IniciaTransacSQL()
                     If Not ObjAC.RemovePoliza(IDPoliza) Then

Compras/Compras.aspx.vb

@@ -2184,12 +2184,10 @@ Partial Class Compras_Compras
             ObjSAT.Dispose()
         End If
 
-
-
         Return RFC
     End Function
 
-    Private Sub CargaRetIVAConcepto(Optional Cambio As Boolean = False)
+    Private Sub CargaRetIVAConcepto(Optional Cambio As Boolean = False, Optional DIOTCveTipoOperacion As Integer = -1)
 
         If TrRetIVA.Visible Then
             TdRetIVAConcepto.Visible = True
@@ -2198,32 +2196,66 @@ Partial Class Compras_Compras
         If Cambio Then
             DdlRetIVAConcepto.Items.Clear()
 
-            If RFCProv.Length = 13 Then
-                DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
-                DdlRetIVAConcepto.Items.Insert(1, New ListItem("Fletes P.F.", "2"))
+            If RFCProv.Length = 13 Then ' personal moral
+                If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
+                    DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
+                End If
+
+                If DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles
+                    DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
+                End If
+
+                If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
+                    DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
+                    DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
+                    DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
+                End If
+
             ElseIf RFCProv.Length = 12 Then
-                DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3"))
+                If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
+                    DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
+                End If
+
+                If DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles
+                    DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
+                End If
+
+                If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
+                    DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
+                    DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
+                    DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
+                End If
+
             End If
 
-            DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
-            ''If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
-            DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
-            ''End If
-
         End If
 
+
         UpPS.Update()
 
     End Sub
-    Private Sub CargaRetISRConcepto(Optional Cambio As Boolean = False)
+    Private Sub CargaRetISRConcepto(Optional Cambio As Boolean = False, Optional DIOTCveTipoOperacion As Integer = -1)
         If TrRetISR.Visible Then
             TdRetISRConcepto.Visible = True
         End If
         If Cambio Then
             DdlRetISRConcepto.Items.Clear()
-            DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
-            DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
-            DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
+
+            If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
+                DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
+                DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
+            End If
+
+            If DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles
+                DdlRetISRConcepto.Items.Insert(0, New ListItem("Arrendamiento", "2"))
+                DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
+            End If
+
+            If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
+                DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
+                DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
+                DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
+            End If
 
         End If
         UpPS.Update()
@@ -3411,56 +3443,53 @@ Partial Class Compras_Compras
                 HdnCveProveedor.Value = ObjProveedor.CveProveedor.ToString
                 TxtFechaPago.Text = (TxtFecha.Text.ToDate.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString
                 RFCProv = ObjProveedor.RFC
-                CargaRetIVAConcepto(True)
-                CargaRetISRConcepto(True)
+                CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
+                CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
 
-                If ObjProveedor.DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
-                    DdlRetIVAConcepto.SelectedValueExist("1")
-                    DdlRetISRConcepto.SelectedValueExist("1") ' honorarios
-                ElseIf ObjProveedor.DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles
-                    DdlRetIVAConcepto.SelectedValueExist("4")
-                    DdlRetISRConcepto.SelectedValueExist("2") ' arrendamiento
-                ElseIf ObjProveedor.DIOTCveTipoOperacion = 3 Then ' 85 - Otros
-                    DdlRetIVAConcepto.SelectedValueExist("2") ' flete pf
-                    DdlRetIVAConcepto.SelectedValueExist("3") ' fletes pm
-                    DdlRetISRConcepto.SelectedValueExist("1") ' honorarios
-                ElseIf ObjProveedor.DIOTCveTipoOperacion = 0 Then
+                'If ObjProveedor.DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
+                '    DdlRetIVAConcepto.SelectedValueExist("1")
+                '    DdlRetISRConcepto.SelectedValueExist("1") ' honorarios
+                'ElseIf ObjProveedor.DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles
+                '    DdlRetIVAConcepto.SelectedValueExist("4")
+                '    DdlRetISRConcepto.SelectedValueExist("2") ' arrendamiento
+                'ElseIf ObjProveedor.DIOTCveTipoOperacion = 3 Then ' 85 - Otros
+                '    DdlRetIVAConcepto.SelectedValueExist("2") ' flete pf
+                '    DdlRetIVAConcepto.SelectedValueExist("3") ' fletes pm
+                '    DdlRetISRConcepto.SelectedValueExist("1") ' honorarios
+                '    'ElseIf ObjProveedor.DIOTCveTipoOperacion = 0 Then
 
+                'End If
 
-                    If CveFactura > 0 Then
+                If CveFactura > 0 Then
 
-                        If RetIVAOriginal > 0 Then
-                            Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal
-
-                            If (CalRetIVAPor).RoundAD(6) = 0.106667 Then
-                                DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profecionales
-                            End If
-
-                            If (CalRetIVAPor).RoundAD(2) = 0.04 Then '4 Fletes
-
-                                If RFCProv.Length = 13 Then
-                                    DdlRetIVAConcepto.SelectedValueExist("2")
-                                Else
-                                    DdlRetIVAConcepto.SelectedValueExist("3")
-                                End If
-
-
-                            End If
+                    If RetIVAOriginal > 0 Then
+                        Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal
 
+                        If (CalRetIVAPor).RoundSQL(6) = 0.106667 OrElse (CalRetIVAPor).RoundSQL(6) = 0.053333 Then
+                            DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profecionales
                         End If
 
-                        If RetISROriginal > 0 Then
+                        If (CalRetIVAPor).RoundSQL(2) = 0.04 Then '4 Fletes
 
-                            Dim CalRetISRPor As Decimal = (RetISROriginal * 1 / SubTotal2Original).RoundAD(5).ToDecimal
-
-                            If (CalRetISRPor).RoundAD(1) = 0.1 Then '10 Sercviios profecionales
-                                DdlRetISRConcepto.SelectedValueExist("1")
+                            If RFCProv.Length = 13 Then
+                                DdlRetIVAConcepto.SelectedValueExist("2")
+                            Else
+                                DdlRetIVAConcepto.SelectedValueExist("3")
                             End If
+                        End If
 
-                            If (CalRetISRPor).RoundAD(4) = 0.0125 Then '1.25 Recico regimen simplificado confianza
-                                DdlRetISRConcepto.SelectedValueExist("3")
-                            End If
+                    End If
 
+                    If RetISROriginal > 0 Then
+
+                        Dim CalRetISRPor As Decimal = (RetISROriginal * 1 / SubTotal2Original).RoundAD(5).ToDecimal
+
+                        If (CalRetISRPor).RoundSQL(1) = 0.1 Then '10 Servicios profesionales
+                            DdlRetISRConcepto.SelectedValueExist("1")
+                        End If
+
+                        If (CalRetISRPor).RoundSQL(4) = 0.0125 Then '1.25 Recico regimen simplificado confianza
+                            DdlRetISRConcepto.SelectedValueExist("3")
                         End If
 
                     End If
@@ -6780,19 +6809,20 @@ Partial Class Compras_Compras
                                                                     importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
                                                                     importeMN = importeMovimiento * tipoCambioActual * Multiplicador
 
-                                                                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
+                                                                    'no es necesario, ya se está interpretandoe l usado como producto
+                                                                    'If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
 
-                                                                        Dim Valor As Decimal = 0
-                                                                        For Each RowAcum As DataRow In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").Rows
-                                                                            Dim TotalTamanio = TmpDT.FiltroPrimeroValor("Total", $"CvePS={RowAcum("CvePSCargo")}").ToDecimal()
-                                                                            If TotalTamanio > 0 Then
-                                                                                Valor += TotalTamanio
-                                                                            End If
-                                                                        Next
+                                                                    '    Dim Valor As Decimal = 0
+                                                                    '    For Each RowAcum As DataRow In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").Rows
+                                                                    '        Dim TotalTamanio = TmpDT.FiltroPrimeroValor("Total", $"CvePS={RowAcum("CvePSCargo")}").ToDecimal()
+                                                                    '        If TotalTamanio > 0 Then
+                                                                    '            Valor += TotalTamanio
+                                                                    '        End If
+                                                                    '    Next
 
-                                                                        importeMovimiento += Valor
-                                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                                    End If
+                                                                    '    importeMovimiento += Valor
+                                                                    '    importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+                                                                    'End If
 
                                                                     Dim ConceptoContabilizacionNC = 225
                                                                     Dim CveMovimientoDevolucion As Integer = -1

Compras/Proveedores.aspx.vb

@@ -681,7 +681,7 @@ Partial Class Compras_Proveedores
 
 
     Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1)
-        If UsuarioActual.Empresa.UsaContabilidad Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
             Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
             If ObjContabilidad.GetCuentasRecursiva(IdCuentaPadre, 1) Then
                 DtCuentasContables = ObjContabilidad.DtResultados
@@ -1383,55 +1383,59 @@ Partial Class Compras_Proveedores
     End Sub
 
     Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
-        If DtCuentasContables Is Nothing Then
 
+        If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+
+
+            If DtCuentasContables Is Nothing Then
+
+            End If
+
+            Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
+
+            Select Case HdnCuenta.Value
+                Case "1"
+                    CargaCuentasDDL(DdlCtaContProveedores, If(DdlCveTipoProveedor.SelectedValue = "2", 202, 201))
+                Case "2"
+                    CargaCuentasDDL(DdlCtaContAnticipos, 204)
+                Case "3"
+                    CargaCuentasDDL(DdlCtaContFondoGarantia, 231)
+                Case "4"
+                    CargaCuentasDDL(DdlCtaContRetIVA, 206)
+                Case "5"
+                    CargaCuentasDDL(DdlCtaContRetISR, 206)
+                Case "6"
+                    CargaCuentasDDL(DdlCtaContAcreedores, 202)
+                Case "7"
+                    CargaCuentasDDL(DdlCtaContComplementaria, 201)
+                Case "8"
+                    CargaCuentasDDL(DdlCtaContExtranjera, 201)
+                Case "9"
+                    CargaCuentasDDL(DdlCtaContAcreedoresExtranjera, 202)
+                Case "10"
+                    CargaCuentasDDL(DdlCtaContAcreedoresComplementaria, 202)
+                Case "11"
+                    CargaCuentasDDL(DdlCtaContAnticiposExtranjera, 204)
+                Case "12"
+                    CargaCuentasDDL(DdlCtaContAnticiposComplementaria, 204)
+                Case "13"
+                    CargaCuentasDDL(DdlCtaContDeudor, 205)
+                Case "14"
+                    CargaCuentasDDL(DdlCtaContDeudorExtranjera, 205)
+                Case "15"
+                    CargaCuentasDDL(DdlCtaContDeudorComplementaria, 205)
+                Case "16"
+                    CargaCuentasDDL(DdlCtaContDocsXPagar, 203)
+                Case "17"
+                    CargaCuentasDDL(DdlCtaContDocsXPagarExtranjera, 203)
+                Case "18"
+                    CargaCuentasDDL(DdlCtaContDocsXPagarComplementaria, 203)
+                Case "19"
+                    CargaCuentasDDL(DdlCtaContRetISRAcreditable, 206)
+                Case "20"
+                    CargaCuentasDDL(DdlCtaContRetIVAAcreditable, 206)
+            End Select
         End If
-
-        Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
-
-        Select Case HdnCuenta.Value
-            Case "1"
-                CargaCuentasDDL(DdlCtaContProveedores, If(DdlCveTipoProveedor.SelectedValue = "2", 202, 201))
-            Case "2"
-                CargaCuentasDDL(DdlCtaContAnticipos, 204)
-            Case "3"
-                CargaCuentasDDL(DdlCtaContFondoGarantia, 231)
-            Case "4"
-                CargaCuentasDDL(DdlCtaContRetIVA, 206)
-            Case "5"
-                CargaCuentasDDL(DdlCtaContRetISR, 206)
-            Case "6"
-                CargaCuentasDDL(DdlCtaContAcreedores, 202)
-            Case "7"
-                CargaCuentasDDL(DdlCtaContComplementaria, 201)
-            Case "8"
-                CargaCuentasDDL(DdlCtaContExtranjera, 201)
-            Case "9"
-                CargaCuentasDDL(DdlCtaContAcreedoresExtranjera, 202)
-            Case "10"
-                CargaCuentasDDL(DdlCtaContAcreedoresComplementaria, 202)
-            Case "11"
-                CargaCuentasDDL(DdlCtaContAnticiposExtranjera, 204)
-            Case "12"
-                CargaCuentasDDL(DdlCtaContAnticiposComplementaria, 204)
-            Case "13"
-                CargaCuentasDDL(DdlCtaContDeudor, 205)
-            Case "14"
-                CargaCuentasDDL(DdlCtaContDeudorExtranjera, 205)
-            Case "15"
-                CargaCuentasDDL(DdlCtaContDeudorComplementaria, 205)
-            Case "16"
-                CargaCuentasDDL(DdlCtaContDocsXPagar, 203)
-            Case "17"
-                CargaCuentasDDL(DdlCtaContDocsXPagarExtranjera, 203)
-            Case "18"
-                CargaCuentasDDL(DdlCtaContDocsXPagarComplementaria, 203)
-            Case "19"
-                CargaCuentasDDL(DdlCtaContRetISRAcreditable, 206)
-            Case "20"
-                CargaCuentasDDL(DdlCtaContRetIVAAcreditable, 206)
-        End Select
-
     End Sub
 
     Private Sub CargaCuentasDDL(Ddl As DropDownList, CveFuncionalidad As Integer)
@@ -1610,7 +1614,7 @@ Partial Class Compras_Proveedores
 
             Dim ObjContaAC As ClsContPAQi = Nothing
 
-            If (UsuarioActual.Empresa.Funcionalidad(200).ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(201).ToEntero > 0) Then 'FUNCIONALIDAD 112=AGREGAR CTA CONTABLE PROVEEDOR
+            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ((UsuarioActual.Empresa.Funcionalidad(200).ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(201).ToEntero > 0)) Then 'FUNCIONALIDAD 112=AGREGAR CTA CONTABLE PROVEEDOR
 
                 ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
                 ObjContaAC.IniciaTransacSQL()
@@ -1846,7 +1850,7 @@ Partial Class Compras_Proveedores
             'End If
             Dim CreoCuenta As Boolean = False
 
-            If (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then
                 Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
                 Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
                 If drCuenta IsNot Nothing Then
@@ -4256,7 +4260,7 @@ Partial Class Compras_Proveedores
 #Region "CUENTAS CONTABLES"
     Private Sub ActivarRegistroAutomatico()
 
-        If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC) Then
             Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
 
             '' 17/03/2017 FUNCIONALIDADES 249,250,251
@@ -4429,7 +4433,7 @@ Partial Class Compras_Proveedores
     End Sub
 
     Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList)
-        If UsuarioActual.Empresa.UsaContabilidad = True Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad = True Then
             Dim IdCuentaContable As Integer = -1
             Dim CtaCodigo As String = ""
             Dim TieneError = False

Contabilidad/DiarioPagos.aspx.vb

@@ -1017,9 +1017,8 @@ Partial Class Contabilidad_DiarioPagos
 
                                     If CargoAnticipo > 0 AndAlso TotalAnticipos = 0 Then ' cuando el pago no cubre el 100%
 
-                                        If Not Conta.AddMovimiento(IDPoliza, IdCuentaAnticipo, False, CargoAnticipo, gvrc.FCHiddenField("HdnSerieFolio").Value, gvrc.FCHiddenField("HdnSerieFolio").Value, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveProveedor").Value.ContaReferencia(TipoContaReferencia.Proveedor), If(MonExt, CargoProveedor, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For
-
                                         Dim TmpTotal As Decimal
+                                        Dim TmpTotalME As Decimal = CargoAnticipo
                                         If CveMoneda = 2 Then
 
                                             'registro a la cuenta complementaria del proveedor
@@ -1028,12 +1027,13 @@ Partial Class Contabilidad_DiarioPagos
                                             Else
                                                 CargoAnticipo = Math.Round(CargoAnticipo * TipoCambioCompra, 2)
                                             End If
-
-                                            'complementaria
-                                            If TmpTotal > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, gvr.DataKey("IdCtaContComplementaria").ToEntero, TipoMovto, TmpTotal, gvrc.FCHiddenField("HdnSerieFolio").Value, gvrc.FCHiddenField("HdnSerieFolio").Value, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveProveedor").Value.ContaReferencia(TipoContaReferencia.Proveedor), If(MonExt, gvrc.FCHiddenField("HdnTotal").Value.ToDouble, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For
-
                                         End If
 
+                                        If Not Conta.AddMovimiento(IDPoliza, IdCuentaAnticipo, False, CargoAnticipo, gvrc.FCHiddenField("HdnSerieFolio").Value, gvrc.FCHiddenField("HdnSerieFolio").Value, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveProveedor").Value.ContaReferencia(TipoContaReferencia.Proveedor), If(MonExt, TmpTotalME, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For
+
+                                        'complementaria
+                                        If TmpTotal > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, gvr.DataKey("IdCtaContComplementaria").ToEntero, TipoMovto, TmpTotal, gvrc.FCHiddenField("HdnSerieFolio").Value, gvrc.FCHiddenField("HdnSerieFolio").Value, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveProveedor").Value.ContaReferencia(TipoContaReferencia.Proveedor), If(MonExt, gvrc.FCHiddenField("HdnTotal").Value.ToDouble, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For
+
 
                                     End If
 

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1257,12 +1257,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)
 
         TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDecimal.ToString("###,###,###.00")
-        DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion"))
-        DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
-        TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
-        TxtModalConceptoDocumentoBeneficiario.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoBeneficiario")
-        TxtModalConceptoDocumentoObservaciones.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoObservaciones")
-        TxtModalConceptoDocumentoImporte.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoImporte").ToDecimal.ToString("###,###,###.00")
 
         TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero
 
@@ -1307,11 +1301,22 @@ Partial Class ContabilidadC_RegPrePolizaS
             TxtAbonoE.Text = Abono
         End If
 
-        If Abono = 0 Then
-            CargaModalConceptoTipoTransaccion("Ing")
-        Else
-            CargaModalConceptoTipoTransaccion("Egs")
+        If CveConceptoContable = 30 Then
+            If Abono = 0 Then
+                CargaModalConceptoTipoTransaccion("Ing")
+            Else
+                CargaModalConceptoTipoTransaccion("Egs")
+            End If
+            DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion"))
+            DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
+            TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
+            TxtModalConceptoDocumentoBeneficiario.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoBeneficiario")
+            TxtModalConceptoDocumentoObservaciones.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoObservaciones")
+            TxtModalConceptoDocumentoImporte.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoImporte").ToDecimal.ToString("###,###,###.00")
+
         End If
+
+
         UpModalConcepto.Update()
 
     End Sub
@@ -1644,12 +1649,18 @@ Partial Class ContabilidadC_RegPrePolizaS
             dr("Modificado") = True
             dr("TC") = TxtTipoCambio.Text.ToDecimal
 
+            dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
+            dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
+            dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
+            dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
+            dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
+            dr("ContadoImporte") = dr("ImporteMN").ToString
+
             If DrConceptoContable IsNot Nothing Then
                 dr("EsComplementaria") = DrConceptoContable("EsComplementaria")
                 dr("EsMonedaExtranjera") = DrConceptoContable("EsMonedaExtranjera")
 
                 If dr("EsMonedaExtranjera") = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal
-
             End If
 
             If DdlPorcentajeIVAE.Visible Then

Inventarios/CatAlmacenes.aspx.vb

@@ -57,7 +57,7 @@ Partial Class Inventarios_CatAlmacenes
     Public Sub CargaDatos()
         Dim ObjAlmacen As New ClsInventarios
         If ObjAlmacen.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
-            GvDatos.DataSource = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GvDatos.DataSource = ObjAlmacen.DtResultados
         Else
             GvDatos.DataSource = Nothing
         End If
@@ -271,7 +271,7 @@ Partial Class Inventarios_CatAlmacenes
             Else
                 TieneError = True
             End If
-        ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, (CByte(Estatus)), HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero, CveAlmacenVirtual:=DdlAlmacenesVirtuales.SelectedValue.ToEntero) Then
+        ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, (CByte(Estatus)), HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero, CveAlmacenVirtual:=DdlAlmacenesVirtuales.SelectedValue.ToEntero) Then
             Alert("El  Almacen se actualizo correctamente.", TipoMensaje.MsgInformacion)
             UpDatos.Update()
             ViewState("DTAlmacenes") = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)