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

-- cambios en GlobalDT

Browse Source
This commit is contained in:
rrene
2023-02-24 10:51:18 -07:00
parent 601c23100a
commit 07d161bff3
24 changed files with 143 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
OS/PopUpMateriales.aspx.vb
View File

@@ -96,7 +96,7 @@ Partial Class OS_PopUpMateriales
End Sub
Private Sub CargaClasificaciones()
DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
DdlClasificacion.DataBind()
End Sub
@@ -129,7 +129,7 @@ Partial Class OS_PopUpMateriales
Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString.ToEntero
Dim UM = GlobalDTUnidadesMedida.FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString
Dim CveClasificacion As Integer = RowPS("CveClasificacion").ToString.ToEntero
Dim Clasificacion As String = GlobalDTClasificaciones.FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString
Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString
AddPS(Material("CveMaterialUtilizado").ToString.ToEntero, CveOSDetalle, Material("Cantidad").ToString.ToDecimal, CveUnidadMedida, UM, Material("CvePS").ToString.ToEntero, PS, CveClasificacion, Clasificacion, Material("SeFacturara").ToString)
Next
@@ -176,7 +176,7 @@ Partial Class OS_PopUpMateriales
e.Row.FCDropDownList("DdlPS").DataBind()
e.Row.FCDropDownList("DdlPS").SelectedValue = e.Row.DBCampo("CvePS")
e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlClasificacion").DataBind()
e.Row.FCDropDownList("DdlClasificacion").SelectedValue = e.Row.DBCampo("CveClasificacion")
End If