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

-- se depuró/limpió la variables idctaXXX

Browse Source
This commit is contained in:
rrene
2023-08-17 18:56:22 -07:00
parent 70fce81f48
commit 2765dab757
74 changed files with 1350 additions and 5328 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Ventas/ProductosFinancieros.aspx.vb
View File

@@ -337,31 +337,19 @@ Partial Class Bancos_ProductosFinancieros
Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero
Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
Dim importeMovimiento As Decimal
Dim FechaMovimiento As Date = Now
Dim IdCtaContablePP As Integer = 0
Select Case ConceptoContable
Case 45, 46, 47, 67
importeMovimiento = Importe.ToString.ToDecimal
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
IdCtaContablePP = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
End If
Case 30
importeMovimiento = Importe.ToString.ToDecimal
IdCtaContablePP = CtaCuenta
End Select
If importeMovimiento <> 0 Then
If IdCtaContablePP = 0 Then
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
idCuentaContabilizacion = 0
End If
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDouble, "", ConceptoContable, TxtConcepto.Text, FechaMovimiento, IdCtaContablePP, -1, CveIE) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDouble, TxtImporte.Text.ToDouble, ConceptoContable, "", TxtConcepto.Text, CveIE:=CveIE) Then
ErrorTransaccion = True
End If
End If