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

-- mejoras de GlobalDT

Browse Source
This commit is contained in:
rrene
2024-08-01 19:44:55 -07:00
parent 0a938008e7
commit 19aba02fb6
11 changed files with 31 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Presupuestos/GenerarPresupuestos.aspx.vb
View File

@@ -202,7 +202,7 @@ Partial Class Presupuestos_GenerarPresupuestos
ddlUM.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1"))
ddlMOUnidad.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1"))
ddlPUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
ddlPUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
ddlPUM.DataBind()
Dim ObjClientes As New ClsClientes
@@ -506,7 +506,7 @@ Partial Class Presupuestos_GenerarPresupuestos
Dim PU As Double = DtPS.FiltraParametros("CvePS=" & ddlMOPS.SelectedValue.ToString).Rows(0)("Precio").ToString.ToDouble
tbPrecioMO.Text = PU.ToString
ddlMOUnidad.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
ddlMOUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
ddlMOUnidad.DataBind()
End If
@@ -550,7 +550,7 @@ Partial Class Presupuestos_GenerarPresupuestos
If ddlPS.SelectedIndex > 0 Then
Dim PU As Double = DtPS.FiltroPrimero("CvePS=" & ddlPS.SelectedValue.ToString)("Precio").ToString.ToDouble
tbPrecio.Text = PU.ToString
ddlUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
ddlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
ddlUM.DataBind()
End If
End Sub