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

-- limpieza de código de mandar idcta de contpaq

Browse Source
This commit is contained in:
rrene
2023-08-09 19:00:12 -07:00
parent eb4abbe9a5
commit 4e13b96c3a
90 changed files with 1583 additions and 10362 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Bancos/RegistroPagoIntermediario.aspx.vb
View File

@@ -149,8 +149,6 @@ Partial Class Bancos_PagosIntermediarios
Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
Dim ImporteMovimiento As Decimal = 0
Dim importeMX As Decimal
Dim IdCtaContable As Integer = 0
Dim CveCuenta As Integer = 0
Dim ConceptoMovimiento As String = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, gvr.FCLiteral("LtCliente").Text, gvr.FCHyperLink("LtSerieFolio").Text, TxtFolio.Text.Trim)
CveCliente = gvr.DataKey("CveCliente").ToString.ToEntero
@@ -160,24 +158,10 @@ Partial Class Bancos_PagosIntermediarios
ImporteMovimiento = gvr.FCTextBox("TxtComision").Text.ToDecimal
importeMX = ImporteMovimiento * tipoCambio
TotalComisiones += ImporteMovimiento
Dim ObjProv As New ClsCompProveedores
If ObjProv.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlProveedorPagoInt.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", 1, UsuarioActual.CveEmpresa) Then
IdCtaContable = ObjProv.IdCtaContDeudor
End If
ObjProv.Dispose()
Case 133 'Pago Intermediario
ImporteMovimiento = gvr.DataKey("Saldo").ToDecimal
importeMX = ImporteMovimiento * tipoCambio
TotalPagos += ImporteMovimiento
Dim ObjCliente As New ClsClientes
If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
IdCtaContable = ObjCliente.IdCtaContClientes
End If
ObjCliente.Dispose()
Case 30 'Bancos
ConceptoMovimientoBancos = ConceptoMovimiento
ImporteMovimiento = 0
@@ -188,12 +172,7 @@ Partial Class Bancos_PagosIntermediarios
End Select
If ImporteMovimiento <> 0 Then
'Conta ContPAQ
If (IdCtaContable < 1 Or IdCuentaBancaria < 1) Then
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(ConceptoContable).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, ConceptoMovimiento, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.DataKey("CveVenta").ToString.ToEntero, -1, -1, CveCliente, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero, ImporteMX:=importeMX, CveCuenta:=CveCuenta) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, ConceptoMovimiento, ConceptoContable, ConceptoMovimiento, FechaMovimiento, 0, -1, CveIE, gvr.DataKey("CveVenta").ToString.ToEntero, -1, -1, CveCliente, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero, ImporteMX:=importeMX) Then
MsgError = "No se pudo insertar la póliza"
End If