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

-- afectar alamcen en la devolución y considerar registrar lote/caducidad

Browse Source
This commit is contained in:
rrene
2024-06-17 08:31:49 -07:00
parent e43e14ce86
commit 54ac9b836b
1 changed files with 39 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
Compras/Compras.aspx.vb
View File

@@ -6,7 +6,6 @@ Imports System.Xml
Imports System.Diagnostics Imports System.Diagnostics
Imports System.Globalization Imports System.Globalization
Imports System.IO Imports System.IO
Imports System.IO
Imports System.Threading.Tasks Imports System.Threading.Tasks
Imports Newtonsoft.Json Imports Newtonsoft.Json
Imports Extensiones Imports Extensiones
@@ -2683,6 +2682,7 @@ Partial Class Compras_Compras
ChkEsNoDeducible.Checked = dr("NoDeducible").ToString.ToEntero > 0 ChkEsNoDeducible.Checked = dr("NoDeducible").ToString.ToEntero > 0
If ChkEsNoDeducible.Checked Then AplicarNoDeducible() If ChkEsNoDeducible.Checked Then AplicarNoDeducible()
LblMetodoPago.Text = dr("MetodoPagoSAT").ToString LblMetodoPago.Text = dr("MetodoPagoSAT").ToString
CveConceptoContableAlmacen = dr("CveConceptoContableAlmacen").ToString.ToEntero
If UsuarioActual.Empresa.UsaAC Then If UsuarioActual.Empresa.UsaAC Then
CambiaEjercicioAC(False) CambiaEjercicioAC(False)
@@ -13743,7 +13743,7 @@ Partial Class Compras_Compras
If dr("CveAlmacen").ToString.ToEntero = CveAlmacen And dr("CveCompraDetalle").ToString.ToEntero <> -1 And dr("origen").ToString.ToEntero <> -1 And dr("Total").ToString.ToDecimal <> 0 Then If dr("CveAlmacen").ToString.ToEntero = CveAlmacen And dr("CveCompraDetalle").ToString.ToEntero <> -1 And dr("origen").ToString.ToEntero <> -1 And dr("Total").ToString.ToDecimal <> 0 Then
'hay que restarle descuento 'hay que restarle descuento
importeconcepto = dr("Total").ToString.ToDecimal importeconcepto = dr("Total").ToString.ToDecimal
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("CvePS").ToString.ToEntero, importeconcepto, -1, CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero, Serie:=dr("Serie").ToString) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, dr("Cantidad").ToString.ToDecimal, dr("CveUM").ToString.ToEntero, dr("CvePS").ToString.ToEntero, importeconcepto, -1, CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero, Serie:=dr("Serie").ToString, Lote:=dr("Lote").ToString, FechaCaducidad:=dr("FechaCaducidad").ToString.ToDate) Then
ErrorCancelar = True ErrorCancelar = True
Exit For Exit For
End If End If
@@ -13758,30 +13758,40 @@ Partial Class Compras_Compras
Total68 = ObjInventario.DtResultados.SUMD("Total").RoundSQL(2) * -1 Total68 = ObjInventario.DtResultados.SUMD("Total").RoundSQL(2) * -1
End If End If
If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
Dim DtPrePolizaAlmacen As DataTable = ObjContabilidad.DtResultados.FiltraParametros($"CveMovimientoAlmacen = {CveMovimientoReferencia}")
If CvePrePolizaNueva > 0 Then If CvePrePolizaNueva > 0 Then
Dim tTotal As Decimal = 0 Dim tTotal As Decimal = 0
For Each dr As DataRow In DtPrePolizaAlmacen.Rows
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), Total68, Total68, dr("CveConceptoContable").ToString.ToEntero, If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, True, Total68, Total68, CveConceptoContableAlmacen,
dr("Referencia").ToString, dr("Concepto").ToString, dr("CveIE").ToString.ToEntero, TxtFolio.Text, TxtFolio.Text, CveCompra:=CveCompra,
dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimientoEntrada) Then
CveMovimientoEntrada,
dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
ImporteME:=Total68,
CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal,
CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
ErrorCancelar = True ErrorCancelar = True
Exit For
End If End If
tTotal += Total68 If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, False, Total68, Total68, 68, TxtFolio.Text, TxtFolio.Text, CveCompra:=CveCompra,
Next CveMovimientoAlmacen:=CveMovimientoEntrada) Then
ErrorCancelar = True
End If
'For Each dr As DataRow In DtPrePolizaAlmacen.Rows
' If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), Total68, Total68, dr("CveConceptoContable").ToString.ToEntero,
' dr("Referencia").ToString, dr("Concepto").ToString, dr("CveIE").ToString.ToEntero,
' dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
' CveMovimientoEntrada,
' dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
' ImporteME:=Total68,
' CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
' PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal,
' CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
' ErrorCancelar = True
' Exit For
' End If
' tTotal += Total68
'Next
'si el importe es diferente al subtotal, se deberá generar un ajuste al costo 'si el importe es diferente al subtotal, se deberá generar un ajuste al costo
If Abs(tTotal) <> TxtSubTotal.Text.ToDecimal Then If Abs(Total68) <> TxtSubTotal.Text.ToDecimal Then
tTotal = Abs(tTotal) - TxtSubTotal.Text.ToDecimal tTotal = Abs(Total68) - TxtSubTotal.Text.ToDecimal
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, False, tTotal, tTotal, 69, "", "cancelación", If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, False, tTotal, tTotal, 69, "", "cancelación",
CveCompra:=CveCompra, CveSubProyecto:=TmpDT.MAX("CveSubProyecto").ToEntero, CveCompra:=CveCompra, CveSubProyecto:=TmpDT.MAX("CveSubProyecto").ToEntero,
CveMovimientoAlmacen:=CveMovimientoEntrada, CveMovimientoAlmacen:=CveMovimientoEntrada,
@@ -13793,9 +13803,7 @@ Partial Class Compras_Compras
Else Else
ErrorCancelar = True ErrorCancelar = True
End If End If
Else
ErrorCancelar = True
End If
End If End If
Next Next