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:03:44 -07:00
parent 407256f079
commit 7ee978059d
9 changed files with 57 additions and 184 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Bancos/CreditosPagoMultiple.aspx.vb
View File

@@ -186,9 +186,8 @@ Partial Class Bancos_CreditosPagoMultiple
Dim Total As Decimal = 0
For Each gvr As GridViewRow In GvV.Rows
If gvr.FCCheckBox("Chk").Checked Then
Total += gvr.DataKey("Total").ToDouble
Total += gvr.DataKey("Total").ToDecimal
End If
Next
If Total <= 0 Then
@@ -244,8 +243,7 @@ Partial Class Bancos_CreditosPagoMultiple
If CvePrePoliza > 0 Then
'inserto el moviminto de banco
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Total, TxtObservaciones.Text, CveConceptoContable, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor) Then
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Total, Total, CveConceptoContable, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor) Then
For Each gvr As GridViewRow In GvV.Rows
If gvr.FCCheckBox("Chk").Checked Then
@@ -261,13 +259,13 @@ Partial Class Bancos_CreditosPagoMultiple
Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("Total").ToDecimal - IVA - CIF, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, TxtObservaciones.Text, 19, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("Total").ToDecimal - IVA - CIF, gvr.DataKey("Total").ToDecimal - IVA - CIF, CveConceptoCompra, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 19, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
MsgError = "Detalle"
End If
'intereses pagados
If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, TxtObservaciones.Text, 46, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, CIF, 46, TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
MsgError = "Detalle"
End If