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

--mejora pago prepolizaventa

Browse Source
This commit is contained in:
rrene
2023-01-28 07:10:15 -07:00
parent cc7782e978
commit 1d3fea7607
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
App_Code/ClsPaginas.vb
View File

@@ -9888,6 +9888,8 @@ Public Class ClsPaginas
Pago.CveConceptoPago = If(Pago.CveConceptoPago = -1, 17, Pago.CveConceptoPago) 'si viene en parametro lo toma com primera opcion, sino el 17 Pago.CveConceptoPago = If(Pago.CveConceptoPago = -1, 17, Pago.CveConceptoPago) 'si viene en parametro lo toma com primera opcion, sino el 17
If CompraActual.CveTipoConceptoProveedor = 2 Then Pago.CveConceptoPago = 308 'cuando es acreedor If CompraActual.CveTipoConceptoProveedor = 2 Then Pago.CveConceptoPago = 308 'cuando es acreedor
'
If Pago.CveConceptoPago = 272 And CompraActual.CveMoneda = 2 Then Pago.CveConceptoPago = 304 'pago nota de crédito ME
If CompraActual.CveMoneda <> 1 Then If CompraActual.CveMoneda <> 1 Then
Select Case Pago.CveConceptoPago Select Case Pago.CveConceptoPago
Case 17 : Pago.CveConceptoPago = 312 Case 17 : Pago.CveConceptoPago = 312
@@ -10558,14 +10560,13 @@ Public Class ClsPaginas
'si tiene otros gastos/ingresos 'si tiene otros gastos/ingresos
ImporteMovimiento = Pago.OtroGastoIngreso ImporteMovimiento = Pago.OtroGastoIngreso
If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then
Dim tOtCveCon As Integer = 211 Dim tOtCveCon As Integer = 78
Dim tOtTipoMovto As Boolean = False Dim tOtTipoMovto As Boolean = True
If ImporteMovimiento < 0 Then If ImporteMovimiento < 0 Then
tOtTipoMovto = True : tOtCveCon = 78 tOtTipoMovto = False : tOtCveCon = 211
ImporteMovimiento = Math.Abs(ImporteMovimiento) ImporteMovimiento = Math.Abs(ImporteMovimiento)
End If End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tOtTipoMovto, ImporteMovimiento, ImporteMovimiento, tOtCveCon, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveSubProyecto:=VentaActual.CveSubProyecto, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tOtTipoMovto, ImporteMovimiento, ImporteMovimiento, tOtCveCon, VentaActual.SerieFolio, Concepto, 0, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveSubProyecto:=VentaActual.CveSubProyecto, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
End If End If
If Not ErrorMovtos AndAlso TCValuacionVenta <> TCValuacionPago Then If Not ErrorMovtos AndAlso TCValuacionVenta <> TCValuacionPago Then