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

- cambio en otros ingresos al pagar la compra, toma como base la moneda de la compra. en lugar de la moneda del pago

Browse Source
This commit is contained in:
rrene
2023-12-09 14:23:50 -07:00
parent 94f6ea66ac
commit d939d28df9
2 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsPaginas.vb
View File

@@ -7570,7 +7570,7 @@ Public Class ClsPaginas
'si tiene otros gastos/ingresos 'si tiene otros gastos/ingresos
If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then
ImporteMovimiento = (Pago.OtroGastoIngreso * If(Pago.CveMonedaPago = 1, 1, Pago.TCPago)).RoundSQL ' cuando hay pagos en diferente moneda hay TC en ambos lados ImporteMovimiento = (Pago.OtroGastoIngreso * If(CompraActual.CveMoneda = 1, 1, Pago.TCPago)).RoundSQL ' cuando hay pagos en diferente moneda hay TC en ambos lados
Dim tOtCveCon As Integer = 211 Dim tOtCveCon As Integer = 211
Dim tOtTipoMovto As Boolean = False Dim tOtTipoMovto As Boolean = False

9
Compras/Compras.aspx.vb
View File

@@ -6939,7 +6939,7 @@ Partial Class Compras_Compras
End If End If
End If End If
''' A N T I C I P O S '' A N T I C I P O S
'If UsuarioActual.Empresa.UsaAC Then 'If UsuarioActual.Empresa.UsaAC Then
' If ArrAnticipos.Count > 0 Then ' If ArrAnticipos.Count > 0 Then
@@ -10264,7 +10264,8 @@ Partial Class Compras_Compras
End If End If
e.Row.FCCheckBox("cbInv").Enabled = False e.Row.FCCheckBox("cbInv").Enabled = False
End If End If
If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then 'que no sea recepcion alamcen adelatnado. DdlOCVinculaInv
If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso DdlOCVinculaInv.SelectedValue <> "176" Then
If e.Row.FCDropDownList("ddlEAlmacen").Items.Count > 1 Then If e.Row.FCDropDownList("ddlEAlmacen").Items.Count > 1 Then
e.Row.FCDropDownList("ddlEAlmacen").SelectedIndex = 1 e.Row.FCDropDownList("ddlEAlmacen").SelectedIndex = 1
e.Row.FCCheckBox("cbInv").Checked = True e.Row.FCCheckBox("cbInv").Checked = True
@@ -10343,7 +10344,8 @@ Partial Class Compras_Compras
e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4) e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4)
e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataBind() e.Row.FCDropDownList("ddlAlmacenConsignacionGeneral").DataBind()
If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then 'que no sea recepcion alamcen adelatnado. DdlOCVinculaInv
If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso DdlOCVinculaInv.SelectedValue <> "176" Then
If e.Row.FCDropDownList("ddlAlmacen").Items.Count > 1 Then If e.Row.FCDropDownList("ddlAlmacen").Items.Count > 1 Then
e.Row.FCDropDownList("ddlAlmacen").SelectedIndex = 1 e.Row.FCDropDownList("ddlAlmacen").SelectedIndex = 1
e.Row.FCCheckBox("cbAll").Checked = True e.Row.FCCheckBox("cbAll").Checked = True
@@ -14101,6 +14103,7 @@ Partial Class Compras_Compras
' Exit Sub ' Exit Sub
'End If 'End If
If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then
LbSubTotalDif.Visible = False LbSubTotalDif.Visible = False
Vinculacion() Vinculacion()