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

-- cambios aplicación pagos compras

Browse Source
This commit is contained in:
rrene
2023-05-05 07:29:54 -07:00
parent e70366e1f1
commit a52ec03c15
3 changed files with 38 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
Bancos/IE.aspx.vb
View File

@@ -2660,6 +2660,7 @@ Partial Class Bancos_IE
Case "AC" ' Acreedores Diversos
If CveProveedor > 0 Then
CveConceptoCompra = 48 'anticipo a acreedor diverso
If CveMoneda = 2 Then CveConceptoCompra = 345
CveConceptoContable = 30 'Bancos
'limpio el iva
HdnProvPorIVA.Value = "0"
@@ -2883,7 +2884,7 @@ Partial Class Bancos_IE
Select Case ConceptoContable
Case 10, 338
Case 10, 338, 345
If RBL.SelectedValue = "P" AndAlso CveProveedor > 0 Then
importeMovimiento = TxtImporte.Text.ToDecimal
importeMX = importeMovimiento
@@ -3622,29 +3623,6 @@ Partial Class Bancos_IE
End If
End If
'Select Case ConceptoContable
' Case 30
' importeMovimiento = TxtImporte.Text.ToDecimal
' importeMX = importeMovimiento
' Case 42
' importeMovimiento = TxtImporte.Text.ToDecimal
' importeMX = importeMovimiento
' If tCveMoneda > 1 Then
' importeMovimiento = TxtImporte.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal
' importeMX = importeMovimiento
' End If
' Case 57
' importeMovimiento = TxtImporte.Text.ToDecimal
' importeMX = importeMovimiento
' If tCveMoneda > 1 Then
' importeMovimiento = TxtImporte.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal
' importeMX = importeMovimiento
' End If
' Case 46
' If TxtInteresMoratorio.Text.ToDecimal > 0 Then
@@ -3656,13 +3634,6 @@ Partial Class Bancos_IE
' End If
'End Select
' If importeMovimiento <> 0 Then
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
' MsgError = "Ocurrió un error al registrar el asiento del ingreso."
' End If
' End If
Case Else
@@ -3710,7 +3681,7 @@ Partial Class Bancos_IE
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
End If
If CveConceptoCompra.Contiene(10, 338, 48) Then
If CveConceptoCompra.Contiene(10, 338, 48, 345) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, If(CveConceptoCompra = 10, 266, 340), Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
End If