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

rdlc 4.0 emp 38,137 , Compras redondedo concepto 68, RegPrepolizas tipo de gasto

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-03-17 08:28:16 -07:00
parent a1dbcc0c8a
commit 1630cfad2a
20 changed files with 37106 additions and 27978 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -1465,6 +1465,8 @@ Partial Class Inventarios_TraspasoAlmacen
DivRealizarDevolucion.Visible = False
ChkRealizarDevolucion.Checked = False
Dim CveMovimientoTraspaso As Integer = -1
Dim Dtt As DataTable = Nothing
FolioBusqueda = If(TxtFolioRecepcion.Text = "", -1, TxtFolioRecepcion.Text.ToEntero)
@@ -1472,6 +1474,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetMovimientosTransitorios(DdlAlmacenRecepcion.SelectedValue.ToEntero, -1, DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero, -1, FolioBusqueda, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
Dtt = ObjInventarios.DtResultados.FiltraParametros(String.Format("CveTipoAlmacenDestino <> 4"))
CveMovimientoTraspaso = Dtt.FiltroPrimeroValor("CveMovimiento").ToEntero
Else
Alert("Ocurrió un error al consultar los movimientos transitorios. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia)
Dtt = Nothing
@@ -1493,8 +1496,6 @@ Partial Class Inventarios_TraspasoAlmacen
GvDatosRecepcion.DataSource = Dtt
GvDatosRecepcion.DataBind()
'GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("Serie") <> ""
GvDatosRecepcion.Columns(6).Visible = Dtt.MAX("AplicaSerie") = "True"
GvDatosRecepcion.Columns(7).Visible = Dtt.MAX("AplicaLote").ToEntero > 0 'Dtt.MAX("Lote") <> ""
@@ -1515,6 +1516,13 @@ Partial Class Inventarios_TraspasoAlmacen
If UsuarioActual.TienePermisoProceso(347) Then
DivRealizarDevolucion.Visible = True
End If
If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
HplImprimirRecepcion.Visible = True
HplImprimirRecepcion.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=Alm&CveMovimiento={CveMovimientoTraspaso}&EsTransitorio=True&CveAlmacenRecepcion={DdlAlmacenRecepcion.SelectedValue.ToEntero}&CveAlmacenTransitorioRecepcion={DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero}&FolioBusquedaTrasitorio={FolioBusqueda}")}"
End If
End If