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

-- cambio de concepto de ajustes de salidas

Browse Source
This commit is contained in:
rrene
2025-04-21 16:50:57 -07:00
parent 1a5d6c1e1b
commit 319a35e7c6
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -2142,7 +2142,7 @@ Partial Class Inventarios_EntradasSalidas
CveConceptoContable = 78 CveConceptoContable = 78
EsContabilizable = True EsContabilizable = True
Case 28, 31 Case 28, 31
CveConceptoContable = 51 CveConceptoContable = 290
If DdlConcepto.SelectedValue.ToEntero = 28 Then If DdlConcepto.SelectedValue.ToEntero = 28 Then
''cuando es 28, es otros ingresos.78 ''cuando es 28, es otros ingresos.78
CveConceptoContable = 78 CveConceptoContable = 78
@@ -2154,7 +2154,7 @@ Partial Class Inventarios_EntradasSalidas
If DdlSubProyecto.Visible = True AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 Then tCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero If DdlSubProyecto.Visible = True AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 Then tCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
Case 34 Case 34
CveConceptoContable = 51 CveConceptoContable = 290
EsContabilizable = True EsContabilizable = True
Case 13, 29 Case 13, 29
CveConceptoContable = 69 CveConceptoContable = 69
@@ -2165,7 +2165,7 @@ Partial Class Inventarios_EntradasSalidas
CveClasificacion = drr("CveClasificacion").ToString.ToEntero CveClasificacion = drr("CveClasificacion").ToString.ToEntero
End If End If
Case 3 Case 3
CveConceptoContable = 51 CveConceptoContable = 290
EsContabilizable = True EsContabilizable = True
Case Else Case Else
CveConceptoContable = 95 CveConceptoContable = 95
@@ -2179,7 +2179,7 @@ Partial Class Inventarios_EntradasSalidas
Else Else
'Dim Total As Decimal = 0 'Dim Total As Decimal = 0
If CveConceptoContable.Contiene(181, 78, 51, 69) Then If CveConceptoContable.Contiene(181, 78, 290, 69) Then
Dim Dt As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"}).Copy Dim Dt As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"}).Copy
For Each Dr As DataRow In Dt.Rows For Each Dr As DataRow In Dt.Rows