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

-- mejora en conceptos

Browse Source
This commit is contained in:
rrene
2023-06-30 18:31:24 -07:00
parent ce134ca300
commit 7a428af5e8
2 changed files with 11 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Bancos/RepEgresosSinComprobante.aspx.vb
View File

@@ -2,6 +2,7 @@
Option Strict On
Imports System.Data
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class Bancos_RepEgresosSinComprobante
@@ -59,7 +60,7 @@ Partial Class Bancos_RepEgresosSinComprobante
DdlProveedores.SelectedValue = "-1"
CargaDatos()
TxtConcepto.Text = "Saldo de Egresos por comprobar"
TxtConcepto.Text = "Saldado de Egresos por comprobar"
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubproyecto, AplicaTodos:="Selecione uno")
End If
@@ -234,38 +235,18 @@ Partial Class Bancos_RepEgresosSinComprobante
Dim TipoMovtoConcepto As Boolean = True
Dim CveConceptoContable As Integer
Select Case gr.DataKey("CveConceptoContable").ToEntero
Case 10
CveConceptoContable = 21
Case 28
CveConceptoContable = 29
TipoMovtoOtIngresos = False
TipoMovtoConcepto = True
Case 37
CveConceptoContable = 43
Case 42
CveConceptoContable = 41
Case 43
CveConceptoContable = 37
Case 48
CveConceptoContable = 56
End Select
If gr.DataKey("CveMoneda").ToEntero > 1 Then
If CveConceptoContable = 21 Then CveConceptoContable = 339
If CveConceptoContable = 56 Then CveConceptoContable = 346
End If
Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, gr.DataKey("CveMoneda").ToEntero, True, gr.DataKey("CveTipoProveedor").ToEntero)
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteSaldo, ImporteSaldo, CveConceptoContable, gr.DataKey("Folio"), "Saldo de ExC por Sistema", -1,
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteSaldo, ImporteSaldo, ConPrepAplicacion.CveConcepto, gr.DataKey("Folio"), TxtConcepto.Text, -1,
CveIE:=gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
Exit For
End If
If gr.DataKey("CveMoneda").ToEntero > 1 Then
If CveConceptoContable = 339 Then CveConceptoContable = 340
If CveConceptoContable = 346 Then CveConceptoContable = 347
Dim ImporteMN As Decimal = (ImporteSaldo * gr.DataKey("TipoCambio").ToDecimal - ImporteSaldo).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteMN, ImporteMN, CveConceptoContable, gr.DataKey("Folio"), "Saldo de ExC por Sistema", -1,
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteMN, ImporteMN, ConPrepAplicacion.CveConceptoComplementario, gr.DataKey("Folio"), TxtConcepto.Text, -1,
CveIE:=gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
ImporteME:=gr.DataKey("Saldo").ToDecimal, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"