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

PopIECompras. pago con acreedores Diversos, que usen el concepto 56,346(en dólares)

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-12-22 11:01:49 -07:00
parent e1d86f61ef
commit a7b98b2244
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Bancos/PopIECompras.aspx.vb
View File

@@ -1464,7 +1464,7 @@ Partial Class Bancos_PopIECompras
Case "5" 'Acreedores Diversos
ImportePagado = TxtImporte.Text.Trim.ToDecimal
CveConcepto = 17
CveConcepto2 = 41
CveConcepto2 = 56
CveProveedor2 = DdlAcreedor.SelectedValue.ToEntero
CveIE = -1
'verifica que se halla selccionado algun acreedor
@@ -1779,7 +1779,7 @@ Partial Class Bancos_PopIECompras
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, TipoCambio:=If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion)) Then
MsgError = "No se pudo insertar la póliza"
End If
'123456789
If CveMonedaCompra <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then
IdCtaContable = IdCtaContComplementaria
If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
@@ -2736,6 +2736,8 @@ Partial Class Bancos_PopIECompras
CveIE = rw.DataKey("CveIE").ToString.ToEntero
ConceptoContable = If(CveMoneda <> 1, 346, 56)
IdCtaContable = CtaProveedorAcreedores
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=tipoCambioPago) Then
MsgError = "No se pudo insertar la póliza"