From 2f1fd335b869112cbd25262ee1f44b7a677f29af Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Fri, 12 Feb 2021 02:04:16 -0700 Subject: [PATCH] Agregar la funcion de Devolucion automatica en la cancelacion de compras --- Compras/Compras.aspx | 6 ++++ Compras/Compras.aspx.vb | 77 ++++++++++++++++++++++++++++++++++++++--- 2 files changed, 79 insertions(+), 4 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 66bddceac..283f3403f 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -3217,6 +3217,12 @@ +
+ +
+ +
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 8ad8229a3..c04194dcf 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1591,8 +1591,12 @@ Partial Class Compras_Compras LtlTareaNueva.Text = String.Format(" Tarea", CveCompra) - End If + 'Valida si tienes permisos para devolucion automatica y si cumple con las condiciones para mostrarlo + If UsuarioActual.TienePermisoProceso(315) And GvInvMov.Rows.Count > 0 Then + divDevAuto.Visible = True + End If + End If 'SE OCUPAN AFUERA DEL POSTBACK ?? cargaddlVinculacionServcios() @@ -5258,7 +5262,6 @@ Partial Class Compras_Compras 'hay que restarle descuento importeconcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, dr("pu").ToString.ToDecimal, dr("pu").ToString.ToDecimal * TipoCambioGuardar) - (If(DdlMoneda.SelectedValue.ToEntero = 1, dr("descuento").ToString.ToDecimal, dr("descuento").ToString.ToDecimal * TipoCambioGuardar) / dr("cantidad").ToString.ToDecimal) If Not ObjInventario.AddMovimientoDetalle(cvemovimientoentrada, dr("cantidad").ToString.ToDouble, dr("cveum").ToString.ToEntero, dr("cveps").ToString.ToEntero, importeconcepto, -1, PUTC:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, dr("pu").ToString.ToDecimal), CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero) Then - ErrorMovInv = True Exit For End If @@ -14751,7 +14754,7 @@ Partial Class Compras_Compras If UsuarioActual.TienePermisoProceso(140) Then If CveMovimientoAlmacen > 0 And EstatusAlmacen = 2 Then BtnCancelarCompra.Visible = True - ElseIf CveMovimientoAlmacen = 0 Then + Else BtnCancelarCompra.Visible = True End If End If @@ -14788,6 +14791,70 @@ Partial Class Compras_Compras End If ObjComprasComprobacion.Dispose() + + 'DEVOLUCIÓN AUTOMATICA + If CheckDevAuto.Checked Then + Dim ErrorMovInv As Boolean = False + Dim cvemovimientoentrada As Integer + Dim folio As Integer + Dim fecha As Date = TxtFechaCancelacion.Text.ToDate + Dim importeconcepto As Decimal + Dim ObjInventario As New ClsInventarios + Dim ObjCompra As New ClsCompras + Dim tbmovs As DataTable = Nothing + Dim TmpDT As DataTable = Nothing + Dim TipoCambioGuardar As Decimal = 1 + Dim tcvealmacen As Integer = 0 + + If ObjCompra.GetCompraDetalle(CveCompra) Then + If ObjCompra.DtResultados.Rows.Count > 0 Then + TmpDT = ObjCompra.DtResultados + End If + End If + + If ObjInventario.GetInv_ComprasMov(CveCompra, UsuarioActual.CveEmpresa) Then + If ObjInventario.DtResultados.Rows.Count > 0 Then + tbmovs = ObjInventario.DtResultados + End If + End If + + If DdlMoneda.SelectedValue.ToEntero > 1 Then + TipoCambioGuardar = If(DivTC.Visible, TxtTC.Text.ToDecimal, LblTC.Text.Substring(3).ToDecimal) + End If + TipoCambio = If(DivTC.Visible, TipoCambioGuardar, TipoCambio) + + For Each dtMovs As DataRow In TmpDT.Rows + If TmpDT.Rows.Count > 0 Then + tcvealmacen = dtMovs("AlmacenRegistrado").ToString.ToEntero + Exit For + End If + Next + + folio = ObjInventario.GetFolioSiguiente(13, UsuarioActual.CveEmpresa) + cvemovimientoentrada = ObjInventario.AddMovimiento(tcvealmacen, 13, 1, fecha, folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Devolucion Automatica") + If cvemovimientoentrada <= 0 Then + ErrorMovInv = True + Else + For Each dr As DataRow In tbmovs.Rows + If dr("cvealmacen").ToString.ToEntero = tcvealmacen And dr("CveCompraDetalle").ToString.ToEntero <> -1 And dr("origen").ToString.ToEntero <> -1 And dr("Total").ToString.ToDecimal <> 0 Then + 'hay que restarle descuento + importeconcepto = dr("Total").ToString.ToDecimal + If Not ObjInventario.AddMovimientoDetalle(cvemovimientoentrada, dr("cantidad").ToString.ToDouble, dr("cveum").ToString.ToEntero, dr("cveps").ToString.ToEntero, importeconcepto, -1, CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero, Serie:=dr("Serie").ToString) Then + ErrorMovInv = True + Exit Sub + End If + End If + Next + + End If + + If ErrorMovInv = True Then + ObjInventario.RollBack() + End If + ObjInventario.Dispose() + ObjCompra.Dispose() + End If + Dim ObjAC As ClsContPAQi = Nothing If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then ObjAC = New ClsContPAQi(UsuarioActual.Empresa) @@ -14805,7 +14872,7 @@ Partial Class Compras_Compras ' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS) - If TxtFecha.Text.ToDate.Month < TxtFechaCancelacion.Text.ToDate.Month Or TxtFecha.Text.ToDate.Year < TxtFechaCancelacion.Text.ToDate.Year Or DdlTipoComprobante.SelectedValue.Contiene("NC") Then + If True Then 'CREA POLIZA NEGATIVA If IdPoliza > 0 AndAlso ObjAC IsNot Nothing AndAlso UsuarioActual.Empresa.UsaAC Then @@ -14960,6 +15027,8 @@ Partial Class Compras_Compras ObjAC.Dispose() End If + + End Sub Private Sub btnProrateo_Click(sender As Object, e As EventArgs) Handles btnProrateo.Click, btnProrateo2.Click