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

-- cambios de serie,lote

Browse Source
This commit is contained in:
rrene
2020-05-29 00:02:18 -07:00
parent 310740e2b1
commit 9e01a2067f
7 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Compras/Compras.aspx.vb
View File

@@ -6543,6 +6543,7 @@ Partial Class Compras_Compras
Case 176
Dim SumatoriaOCINV = 0.0D, Importe176 = 0.0D, ImporteME176 = 0.0D, ImporteMN176 = 0.0D, Importe228 = 0.0D, ImporteME228 = 0.0D, ImporteMN228 = 0.0D, Importe229 = 0.0D, ImporteME229 = 0.0D, ImporteMN229 = 0.0D, ImporteCI176 = 0.0D
Dim SumatoriaInventario As Decimal = 0
Dim TCO As Decimal = 1
For Each Dr As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").Rows
If ObjOC.OrdenesCompraDetalleCostoPP(Dr("CveOrdenCompraDetalle").ToString.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count >= 1 Then
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text} OC {ObjOC.DtResultados.FiltroPrimeroValor("Folio").ToString} Inv{ObjOC.DtResultados.FiltroPrimeroValor("FolioAlmacen").ToString}"
@@ -6554,6 +6555,7 @@ Partial Class Compras_Compras
Dim TCAjuste As Decimal = ObjOC.DtResultados.FiltroPrimeroValor("TipoCambioAjuste").ToDecimal
'RMF. falta verificar el costo indirecto de la OC
If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
TCO = TxtTC.Text.ToDecimal
ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI228").ToDecimal
CostoIndirectoAcum176 += ImporteCI176
SumatoriaInventario += Importe228 + Importe229
@@ -6586,7 +6588,7 @@ Partial Class Compras_Compras
Next
'calcula la diferencia entre lo recibido por la OC, considerando costos indirectos y lo que se ingresaria en la compra
SumatoriaOCINV = SumatoriaInventario - TmpDT.SUMD("Total") 'sumatoria de la factura
SumatoriaOCINV = SumatoriaInventario - (TmpDT.SUMD("Total") * 1).RoundSQL 'sumatoria de la factura
If SumatoriaOCINV.RoundSQL <> 0 Then
' se abona el costo, cambiamos su naturaleza
'SumatoriaOCINV = -SumatoriaOCINV
@@ -18529,6 +18531,9 @@ Partial Class Compras_Compras
If ObjVentas.GetInv_ComprasMov(CveCompra, UsuarioActual.CveEmpresa) Then
If ObjVentas.DtResultados.Rows.Count > 0 Then
GvInvMov.DataSource = ObjVentas.DtResultados
GvInvMov.Columns(3).Visible = ObjVentas.DtResultados.MAX("Serie", "Serie <> ''") <> ""
'GvInvMov.Columns(5).Visible = DtTemporal.MAX("Lote", "Lote <> ''") <> ""
'GvInvMov.Columns(6).Visible = DtTemporal.MAX("FechaCaducidad").ToDate > MinFecha
End If
End If
GvInvMov.DataBind()