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

-- envio de folios de garantía en traspasos a devoluciones a proveedor

Browse Source
This commit is contained in:
rrene
2022-01-24 07:33:14 -07:00
parent 536894806a
commit ee1ec3a792
4 changed files with 98 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Acumuladores/CatFoliosGarantia.aspx.vb
View File

@@ -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