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

-- registro de oc en pesos con facturas en dólares, que el concepto se registre en base al importe de la OC, y no de la factura

Browse Source
This commit is contained in:
rrene
2024-09-04 10:11:26 -07:00
parent 5a2a8827db
commit 15f529e06b
1 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Compras/Compras.aspx.vb
View File

@@ -6570,8 +6570,14 @@ Partial Class Compras_Compras
Dim tCveColectiva As Integer = ObjOC.DtResultados.FiltroPrimeroValor("CveColectiva").ToEntero Dim tCveColectiva As Integer = ObjOC.DtResultados.FiltroPrimeroValor("CveColectiva").ToEntero
CveMovimientoAlmacen = ObjOC.DtResultados.FiltroPrimeroValor("CveMovimientoAlmacen").ToEntero CveMovimientoAlmacen = ObjOC.DtResultados.FiltroPrimeroValor("CveMovimientoAlmacen").ToEntero
Dim TCAjuste As Decimal = ObjOC.DtResultados.FiltroPrimeroValor("TipoCambioAjuste").ToDecimal Dim TCAjuste As Decimal = ObjOC.DtResultados.FiltroPrimeroValor("TipoCambioAjuste").ToDecimal
'RMF. falta verificar el costo indirecto de la OC 'RMF. si la Factura es USD, y la OC, en pesos, el registro debe de ser el concepto de la moneda de la oc
If DdlMoneda.SelectedValue.ToEntero <> 1 Then If Importe176 > 0 AndAlso DdlMoneda.SelectedValue <> "1" Then
'Importe176 = (Importe176 * TxtTipoCambioOC.Text.ToDecimal).RoundSQL
'ImporteMN176 = Importe176
TCO = TxtTC.Text.ToDecimal
End If
If Importe228 > 0 Then
TCO = TxtTC.Text.ToDecimal TCO = TxtTC.Text.ToDecimal
ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI228").ToDecimal ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI228").ToDecimal
'CostoIndirectoAcum176 += ImporteCI176 'CostoIndirectoAcum176 += ImporteCI176
@@ -19531,6 +19537,11 @@ Partial Class Compras_Compras
Private Function AjustarPrePolizaVinculacionOC(ByRef OC As ClsOC, ByRef OCBitacora As ClsOIEventos, ByRef ObjInventarios As ClsInventarios, ByRef ObjConta As ClsContabilidad) As Boolean Private Function AjustarPrePolizaVinculacionOC(ByRef OC As ClsOC, ByRef OCBitacora As ClsOIEventos, ByRef ObjInventarios As ClsInventarios, ByRef ObjConta As ClsContabilidad) As Boolean
'' si está activado el Tipo de cambio de las OC, no debe de ajustarse, ya que hay una operación de cálculo
If DivTipoCambioOC.Visible Then
Return True
End If
'VARIABLES 'VARIABLES
Dim CveProveedorSucursal As Integer = -1 Dim CveProveedorSucursal As Integer = -1
Dim CveProveedorContacto As Integer = -1 Dim CveProveedorContacto As Integer = -1