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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:04:25 -07:00
parent 3bc4f72658
commit e5c000432f
28 changed files with 192 additions and 279 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Agropecuaria/CierreCultivo.aspx.vb
View File

@@ -175,12 +175,12 @@ Partial Class Agrupecuaria_CierreCultivo
Dim CveConceptoTotal As Integer = 69
If CveClasificacion > 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, ImporteMovimiento, ImporteMovimiento, CveConceptoClasificaiones, Clasificacion, Clasificacion, CvePrePolizaOriginal:=CvePrePoliza, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMovimiento, CveConceptoClasificaiones, Clasificacion, Clasificacion, CvePrePolizaOriginal:=CvePrePoliza, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacion) Then
ErrorProceso = True
Exit For
End If
Else
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, 0, ImporteCierre, ImporteCierre, 69, ConceptoTotales, ConceptoTotales, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionTotalitaria) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteCierre, ImporteCierre, 69, ConceptoTotales, ConceptoTotales, CveSubProyecto:=CveSubProyecto, CveClasificacion:=CveClasificacionTotalitaria) Then
ErrorProceso = True
Exit For
End If