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

Amortizar factura con nc y pagar contado

Browse Source
This commit is contained in:
Raul Pimienta
2019-10-23 22:50:59 -07:00
parent a19771053a
commit a17380bb3a
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Compras/Compras.aspx.vb
View File

@@ -4190,7 +4190,7 @@ Partial Class Compras_Compras
Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaPago.Text.ToDate).ToString.ToDecimal Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaPago.Text.ToDate).ToString.ToDecimal
Dim CveMonedaPago As Integer = DdlMoneda.SelectedValue.ToEntero Dim CveMonedaPago As Integer = DdlMoneda.SelectedValue.ToEntero
If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado If RBLPago.SelectedValue.ToEntero = 2 Then 'Contado
If RBLContado.SelectedValue = "1" Then If RBLContado.SelectedValue = "1" Then
ImportePago = TxtDocumentoImporte.Text.Trim.ToDecimal ImportePago = TxtDocumentoImporte.Text.Trim.ToDecimal
@@ -6740,7 +6740,7 @@ Partial Class Compras_Compras
' End If ' End If
'End If 'End If
For Each Ant As Anticipos In ArrAnticipos For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
Dim ConceptoContableAnticipo, ConceptoContableAnticipoComplementaria As Integer Dim ConceptoContableAnticipo, ConceptoContableAnticipoComplementaria As Integer
Dim CveCompraNC As Integer = CveCompra Dim CveCompraNC As Integer = CveCompra
@@ -7327,7 +7327,7 @@ Partial Class Compras_Compras
Dim PorcentajePago As Decimal Dim PorcentajePago As Decimal
Dim CveConceptoAnt As Integer = 21 Dim CveConceptoAnt As Integer = 21
Dim CveCompraNC As Integer Dim CveCompraNC As Integer
For Each Ant As Anticipos In ArrAnticipos For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
CveCompraNC = CveCompra CveCompraNC = CveCompra
Dim CveConceptoPago As Integer = 17 Dim CveConceptoPago As Integer = 17
Select Case Ant.TipoMovto Select Case Ant.TipoMovto
@@ -8840,7 +8840,7 @@ Partial Class Compras_Compras
Dim ImporteAnticipo As Decimal = 0 Dim ImporteAnticipo As Decimal = 0
If ArrAnticipos.Count > 0 Then If ArrAnticipos.Count > 0 Then
For Each Ant As Anticipos In ArrAnticipos For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
ImporteAnticipo += Ant.Importe ImporteAnticipo += Ant.Importe
Next Next
End If End If
@@ -12255,7 +12255,7 @@ Partial Class Compras_Compras
Select Case RBLContado.SelectedValue Select Case RBLContado.SelectedValue
Case "1" ' Bancos Case "1" ' Bancos
PnlContadoBancos.Visible = True PnlContadoBancos.Visible = True
TxtDocumentoImporte.Text = TxtTotal.Text TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
Case "2" ' F y E Case "2" ' F y E
PnlContadoFyE.Visible = True PnlContadoFyE.Visible = True
CargaFuncionariosEmpleados() CargaFuncionariosEmpleados()
@@ -12270,7 +12270,7 @@ Partial Class Compras_Compras
CargaAcreedores() CargaAcreedores()
Case "6" ' Caja Chica Case "6" ' Caja Chica
PnlContadoCajaChica.Visible = True PnlContadoCajaChica.Visible = True
TxtDocumentoImporteCaja.Text = TxtTotal.Text TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
End Select End Select
UpContado.Update() UpContado.Update()
@@ -14596,7 +14596,7 @@ Partial Class Compras_Compras
'ANTICIPOS COMPRA 'ANTICIPOS COMPRA
Dim ImporteAnticipo As Decimal = 0 Dim ImporteAnticipo As Decimal = 0
If ArrAnticipos.Count > 0 Then If ArrAnticipos.Count > 0 Then
For Each Ant As Anticipos In ArrAnticipos For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
ImporteAnticipo += Ant.Importe ImporteAnticipo += Ant.Importe
Next Next
End If End If