AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cambios en manejo de GlobalDTs

Browse Source
This commit is contained in:
rrene
2023-02-01 10:55:36 -07:00
parent 438abc98cf
commit 8465bda048
16 changed files with 68 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Contabilidad/FisImpuestos.aspx.vb
View File

@@ -167,7 +167,7 @@ Partial Class Contabilidad_FisImpuestos
Dim objConta As New ClsContabilidad
Dim DtTemp As New DataTable
Dim _CvePrePoliza As Integer = 0
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(62).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden")
Dim DtTempDetalle As New DataTable
With DtTempDetalle.Columns
@@ -247,7 +247,7 @@ Partial Class Contabilidad_FisImpuestos
Private Sub CargaDetallesPlantilla()
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(62).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden")
Dim Cuenta As String = ""
Dim IdCuenta As Integer = 0
Dim CodigoCuenta As String = ""
@@ -343,7 +343,7 @@ Partial Class Contabilidad_FisImpuestos
Protected Sub GvMov_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMov.RowDataBound
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(62).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, 62).FiltraParametros("", "Orden")
If e.Row.RowType = DataControlRowType.DataRow Then

10
Contabilidad/PlantillasPolizasDetalle.aspx.vb
View File

@@ -242,14 +242,14 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
Public Sub updatatos()
Dim ObjPlantillaPolizaDetalle As New ClsContabilidad
If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, -1) Then
If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, UsuarioActual.CveEmpresa) Then
ViewState("DTPlantillaPolizaDetalle") = ObjPlantillaPolizaDetalle.DtResultados.FiltraParametros(String.Format(" CvePlantillaPoliza={0} AND CveEmpresa = {1}", CvePlantillaPoliza, UsuarioActual.CveEmpresa))
GlobalDTContaPlantillasPolizasDetalle(CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados
End If
If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizas(-1, -1) Then
GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = ObjPlantillaPolizaDetalle.DtResultados
' GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados
End If
GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = Nothing
ObjPlantillaPolizaDetalle.Dispose()
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click

2
Contabilidad/RegPrePoliza1.aspx.vb
View File

@@ -636,7 +636,7 @@ Partial Class ContabilidadC_RegPrePoliza
Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden")
Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden")
Dim Cuenta As String = ""
Dim IdCuenta As Integer = 0
Dim CodigoCuenta As String = ""