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

Browse Source
This commit is contained in:
Rene Molina
2019-10-04 13:41:01 -07:00
parent 06f518883e
commit 0749c4d616
2 changed files with 25 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Compras/Compras.aspx.vb
View File

@@ -6208,7 +6208,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
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
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}"
Importe176 = ObjOC.DtResultados.FiltroPrimeroValor("Importe176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN176").ToDecimal * Dr("Cantidad").ToString.ToDecimal
Importe228 = ObjOC.DtResultados.FiltroPrimeroValor("Importe228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN228").ToDecimal * Dr("Cantidad").ToString.ToDecimal
@@ -15327,11 +15327,13 @@ Partial Class Compras_Compras
TotalFlete = 0
TotalAlmacen = 0
'Obtenemos el total del almacen y guardamos las consecutivas pertenecientes al mismo
For Each Dr2 As DataRow In DtInv.Rows
TotalAlmacen += Math.Round(Dr2("Total").ToString.ToDecimal, 2)
ListaConsecutivas.Add(Dr2("Consec").ToString)
Next
If DtInv IsNot Nothing Then
'Obtenemos el total del almacen y guardamos las consecutivas pertenecientes al mismo
For Each Dr2 As DataRow In DtInv.Rows
TotalAlmacen += Math.Round(Dr2("Total").ToString.ToDecimal, 2)
ListaConsecutivas.Add(Dr2("Consec").ToString)
Next
End If
'sino hay producto en almacen para aplciarle un servicio, no se debe de amrcar como costo indirecto
'esto aplica cuando la factura solo trae un concepto, y es el de servicio