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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rakcsle
2022-07-05 19:32:14 -07:00
parent aabee3f8b5 20d5bca010
commit ee21bcbe83
27 changed files with 8517 additions and 1315 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Bancos/CreditosPagoMultiple.aspx.vb
View File

@@ -183,7 +183,7 @@ Partial Class Bancos_CreditosPagoMultiple
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
Dim Total As Double = 0
Dim Total As Decimal = 0
For Each gvr As GridViewRow In GvV.Rows
If gvr.FCCheckBox("Chk").Checked Then
Total += gvr.DataKey("Total").ToDouble
@@ -205,7 +205,7 @@ Partial Class Bancos_CreditosPagoMultiple
Dim CveConceptoContable As Integer = 30
Dim CveConceptoCompra As Integer = 48
' Dim CveCreditoDetalle As Integer = -1
Dim CIF As Double = 0
Dim CIF As Decimal = 0
Dim CvePlantillaPoliza As Integer = 5
Dim TC As Double = 1.0
Dim Estatus As Integer = 2
@@ -260,8 +260,8 @@ Partial Class Bancos_CreditosPagoMultiple
ObjIE.UpdateCreditosDetalle(Estatus, CveCreditoDetalle)
Dim IVA As Double = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, gvr.DataKey("Total").ToDouble - IVA - CIF, TxtObservaciones.Text, CveConceptoCompra, TxtObservaciones.Text, Now, 0, -1, CveIE, CveProveedor:=CveProveedor, CveCreditoDetalle:=CveCreditoDetalle) Then
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
MsgError = "Detalle"
End If

2
Bancos/OtrosIE.aspx.vb
View File

@@ -354,7 +354,7 @@ Partial Class Bancos_OtrosIE
If CvePrePoliza > 0 Then
Dim Importe As Double = 0
Dim Importe As Decimal = 0
Dim TipoMovto As Boolean = False
'INSERTO LAS COMPRAS QUE VOY A PAGAR