From ee1ec3a792b0ec3c8b27bb6514ae4a9d187c90b8 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 24 Jan 2022 07:33:14 -0700 Subject: [PATCH] =?UTF-8?q?--=20envio=20de=20folios=20de=20garant=C3=ADa?= =?UTF-8?q?=20en=20traspasos=20a=20devoluciones=20a=20proveedor?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Acumuladores/CatFoliosGarantia.aspx | 45 ++++++-------- Acumuladores/CatFoliosGarantia.aspx.vb | 20 +++--- Inventarios/TraspasoAlmacen.aspx | 2 +- Inventarios/TraspasoAlmacen.aspx.vb | 85 +++++++++++++++++++------- 4 files changed, 98 insertions(+), 54 deletions(-) diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index f707c911f..fa6b8bc56 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -109,15 +109,13 @@ - - +
-
+
" style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
- +
@@ -125,7 +123,7 @@ @@ -162,8 +160,12 @@   - - + + + + + + @@ -370,20 +372,12 @@
-
- - - - - -
Folio Garantia: - -
+
-
+
Folio Garantia:
-
+
" style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
@@ -395,21 +389,21 @@ - + - - - - + + + + - + @@ -425,6 +419,7 @@ + diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb index c367fba25..0408ee6a0 100644 --- a/Acumuladores/CatFoliosGarantia.aspx.vb +++ b/Acumuladores/CatFoliosGarantia.aspx.vb @@ -56,8 +56,8 @@ Partial Class Acumuladores_CatFoliosGarantia Dim objAcum As New ClsAcumuladores - If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=EstatusValor, TipoFolio:=tipoFolioValor, Area:=-1, CveSubProyecto:=DdlSubProyectoFiltro.SelectedValue.ToEntero()) Then - GvFolioGarantia.DataSource = objAcum.DtResultados + If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=EstatusValor, TipoFolio:=tipoFolioValor, Area:=-1, CveSubProyecto:=DdlSubProyectoFiltro.SelectedValue.ToEntero()) Then + GvFolioGarantia.DataSource = objAcum.DtResultados Else GvFolioGarantia.DataSource = Nothing End If @@ -124,7 +124,7 @@ Partial Class Acumuladores_CatFoliosGarantia 'TxtCompra.Text = "" 'TxtPuntos.Text = "" - CargadatosGvFolioGarantia(-1, "-1") + CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, "-1") RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolioGarantia"), "jsHideModalFolioGarantia") UpGral.Update() @@ -144,7 +144,7 @@ Partial Class Acumuladores_CatFoliosGarantia 'TxtCompra.Text = "" 'TxtPuntos.Text = "" - CargadatosGvFolioGarantia(-1, "-1") + CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, "-1") UpModalFolioGarantia.Update() RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolioGarantia"), "jsHideModalFolioGarantia") @@ -176,7 +176,7 @@ Partial Class Acumuladores_CatFoliosGarantia End If objAcum.Dispose() - CargadatosGvFolioGarantia(-1, "-1") + CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, "-1") CveFolioGarantia = -1 End Sub @@ -189,8 +189,8 @@ Partial Class Acumuladores_CatFoliosGarantia LtlTituloModalFolioGarantia.Text = "Editar Folio Garantía" Actualizar = True - CveFolioGarantia = GvRow.DataKey("CveFolioGarantia") - + CveFolioGarantia = GvRow.DataKey("CveFolioGarantia") + TxtFolioGarantia.Text = GvRow.DataKey("FolioGarantia") DdlEstatusEditar.SelectedValueExist(GvRow.DataKey("CveEstatus")) TxtLimite.Text = GvRow.DataKey("Limite") @@ -225,6 +225,8 @@ Partial Class Acumuladores_CatFoliosGarantia Using ObjAcum As New ClsAcumuladores If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia) Then GvGarantiasDetalle.DataSource = ObjAcum.DtResultados + HplGenerarSalida.NavigateUrl = "/Inventarios/TraspasoAlmacen.aspx?CveFolioGarantia=" & CveFolioGarantia + End If End Using GvGarantiasDetalle.DataBind() @@ -307,4 +309,8 @@ Partial Class Acumuladores_CatFoliosGarantia e.Row.FCHyperLink("HlDescargarPDF").NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=AJUSTE&CveGarantiaDetalle={e.Row.DBCampo("CveGarantiaDetalle")}")}" End If End Sub + + Protected Sub BtnGenerarSalida_Click(sender As Object, e As EventArgs) + + End Sub End Class diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx index 4b253dae3..9a2231966 100644 --- a/Inventarios/TraspasoAlmacen.aspx +++ b/Inventarios/TraspasoAlmacen.aspx @@ -460,7 +460,7 @@
- + diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index ce676f0f5..8f46ab1f2 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -28,7 +28,6 @@ Partial Class Inventarios_TraspasoAlmacen End Set End Property - Private Property CveAlmacenTransitorio As Integer Get Return CType(ViewState("CveAlmacenTransitorio"), Integer) @@ -198,6 +197,10 @@ Partial Class Inventarios_TraspasoAlmacen CargaMovimiento(Request("CveEntrada").ToString.ToEntero) End If + If Request("CveFolioGarantia") IsNot Nothing AndAlso Request("CveFolioGarantia").ToString.ToEntero > 0 Then + CargaMovimientoGarantia(Request("CveFolioGarantia").ToString.ToEntero) + End If + If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then DivCodigoSeriePS.Visible = True Else @@ -221,7 +224,7 @@ Partial Class Inventarios_TraspasoAlmacen End If CantidadTotal = 0 - CvePS = 0 + CvePS = 0 TipoSeccionAlmacen = 0 If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then @@ -358,6 +361,56 @@ Partial Class Inventarios_TraspasoAlmacen UpMov.Update() End Sub + + + Private Sub CargaMovimientoGarantia(CveFolioGarantia As Integer) + Using ObjAcum As New ClsAcumuladores + If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia) Then + ''carga + Dim dra As DataRow = ObjAcum.DtResultados(0) + DivMov.Visible = True + ltlFolio.Text = dra("FolioGarantia").ToString + Dim CveSub As Integer = dra("CveSubProyecto").ToString.ToEntero + + 'If Mov.CveCompra > 0 Then + ' hplRef.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={Mov.CveCompra}" + ' lblCompraRef.Visible = True + ' hplRef.Visible = True + 'Else + ' hplRef.Visible = False + ' lblCompraRef.Visible = False + 'End If + ChkTransitorio.Enabled = False + DdlAlmacenOrigen.Enabled = True + DdlAlmacenOrigen.Items.Clear() + DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltraParametros(String.Format("CveSubProyecto={0}", CveSub)) + DdlAlmacenOrigen.DataBind() + + DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 21).FiltraParametros(String.Format("CveSubProyecto={0}", CveSub)) + DdlAlmacenDestino.DataBind() + + CargadoDeMov = True + + Dim dtt As DataTable = ObjAcum.DtResultados.FiltraParametros("", DistinctColumns:={"CvePS", "PS", "CveUM", "UnidadMedida", "Codigo"}) + + For Each drr As DataRow In dtt.Rows + Dim dr As DataRow = DtMovimientos.NewRow + dr("CvePS") = drr("CvePS") + dr("PS") = String.Format("{0} - {1}", drr("Codigo"), drr("PS")) + dr("CveUM") = drr("CveUM") + dr("UnidadMedida") = drr("UnidadMedida") + dr("Cantidad") = ObjAcum.DtResultados.COUNT("CvePS", "CvePS = " & drr("CvePS").ToString) + DtMovimientos.Rows.Add(dr) + Next + + CargaGvDatos() + End If + End Using + + UpMov.Update() + End Sub + + Private Sub AlmacenTransitorioDefaults() ChkTransitorio.Checked = UsuarioActual.Empresa.Funcionalidad(154).ToString.ToEntero > 0 ChkTransitorio.Enabled = Not UsuarioActual.Empresa.Funcionalidad(154).ToString.ToEntero > 0 @@ -898,16 +951,6 @@ Partial Class Inventarios_TraspasoAlmacen Dim tLote As String = If(Lote <> "-1", String.Format("AND Lote = '{0}' ", Lote), "") Dim tFechaCaducidad As String = If(FechaCaducidad > MinFecha, String.Format("AND FechaCaducidad = '{0}' ", FechaCaducidad), "") - 'If UsuarioActual.CveEmpresa = 140 Then - ' Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero - - ' If Not CveSubProyecto.Contiene(11791, 11793, 11993, 11994, 11794, 11797, 11795, 12010, 12011) Then - ' Serie = "-1" - ' End If - - 'End If - - Dim ExistenciaEspecificada As Decimal = 0 CantidadenGrid = DtMovimientos.SUMD("Cantidad", String.Format("CvePS = {0} AND CveUM = {1} {2} {3} {4} ", dr("CvePS"), dr("CveUM"), If(Not dr("Serie").ToString.Contiene("-1", ""), $" AND Serie = '{dr("Serie")}'", ""), tLote, tFechaCaducidad)) If ObjInventario.GetExistenciasProducto(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then @@ -945,7 +988,7 @@ Partial Class Inventarios_TraspasoAlmacen Lote = If(gvr.DataKey("Lote") = "", "-1", gvr.DataKey("Lote")) FechaCaducidad = If(gvr.DataKey("FechaCaducidad") = "", MinFecha, gvr.DataKey("FechaCaducidad").ToDate) - If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToString.ToEntero, gvr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then + If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then 'si hay existencia en almacen costeado, lo tengo que sacar Existencia = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CVeAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal End If @@ -1249,12 +1292,12 @@ Partial Class Inventarios_TraspasoAlmacen RegistraScript(String.Format("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveMovimiento={0}',800,620);", CveMovimientoSalida)) End If - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then - Dim Correo As String = "jorgegonzalez@compuproveedores.com" - If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToEntero = 16 Then - MandaCorreo(CveMovimientoSalida, Correo) - End If - End If + 'If UsuarioActual.CveEmpresa.Contiene(72, 80) Then + ' Dim Correo As String = "jorgegonzalez@compuproveedores.com" + ' If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToEntero = 16 Then + ' MandaCorreo(CveMovimientoSalida, Correo) + ' End If + 'End If LimpiaMovimiento() @@ -1769,7 +1812,7 @@ Partial Class Inventarios_TraspasoAlmacen End If - If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then + If UsuarioActual.Empresa.Funcionalidad(132) = "1" OrElse UsuarioActual.CveEmpresa = 140 Then DivCodigoSeriePSRecepcion.Visible = True Else DivCodigoSeriePSRecepcion.Visible = False @@ -3330,7 +3373,7 @@ Partial Class Inventarios_TraspasoAlmacen If SATClaveUnidadMedida.Length = 0 Then SBMensaje.AppendLine("-Producto sin unidad de medida SAT asignada. ") - SBMensaje.AppendLine($"

Corregir Producto ") + SBMensaje.AppendLine($"
Editar Producto ") Alert(SBMensaje.ToString, TipoMensaje.MsgAdvertencia)