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

Merge branch 'master' of http://jarvizu@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
janeth arvizu
2019-11-08 09:59:48 -07:00
parent 51c28b8448 d304753de6
commit c1bd74cab5
2 changed files with 15 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Empresas/Grales/Formatos/EntradasSalidas.rdlc
View File

@@ -1776,10 +1776,10 @@
<Height>1.16692in</Height> <Height>1.16692in</Height>
<Style /> <Style />
</Body> </Body>
<Width>8.23098in</Width> <Width>8.2362in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>3.33515cm</Height> <Height>4.57869cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage> <PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage> <PrintOnLastPage>true</PrintOnLastPage>
<ReportItems> <ReportItems>
@@ -1896,7 +1896,7 @@
<rd:DefaultName>Textbox15</rd:DefaultName> <rd:DefaultName>Textbox15</rd:DefaultName>
<Top>2.40001cm</Top> <Top>2.40001cm</Top>
<Left>0.01325cm</Left> <Left>0.01325cm</Left>
<Height>0.6cm</Height> <Height>1.8259cm</Height>
<Width>20.89344cm</Width> <Width>20.89344cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
<Style> <Style>
@@ -1910,7 +1910,8 @@
</Style> </Style>
</Textbox> </Textbox>
<Line Name="Line1"> <Line Name="Line1">
<Top>3.1764cm</Top> <Top>4.4023cm</Top>
<Left>0.01325cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>20.90669cm</Width> <Width>20.90669cm</Width>
<ZIndex>4</ZIndex> <ZIndex>4</ZIndex>
@@ -2107,6 +2108,7 @@
</Textbox> </Textbox>
<Line Name="Line2"> <Line Name="Line2">
<Top>0.127cm</Top> <Top>0.127cm</Top>
<Left>0cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>20.90669cm</Width> <Width>20.90669cm</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>

17
OS/OrdenesServicios.aspx.vb
View File

@@ -373,16 +373,16 @@ Partial Class OS_OrdenesServicios
End If End If
UpDetalleOS.Update() UpDetalleOS.Update()
End Sub End Sub
Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs) 'Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs)
Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow) ' Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow)
Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue ' Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue
gvr.FCDropDownList("DDlSubProyecto").Items.Clear() ' gvr.FCDropDownList("DDlSubProyecto").Items.Clear()
gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero) ' gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero)
gvr.FCDropDownList("DDlSubProyecto").DataBind() ' gvr.FCDropDownList("DDlSubProyecto").DataBind()
gvr.FCDropDownList("DDlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) ' gvr.FCDropDownList("DDlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
End Sub 'End Sub
Protected Sub DdlFR_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlFR_SelectedIndexChanged(sender As Object, e As EventArgs)
Dim DdlFR_Gv As DropDownList = CType(sender, DropDownList) Dim DdlFR_Gv As DropDownList = CType(sender, DropDownList)
Dim index As Integer = CType(DdlFR_Gv.NamingContainer, GridViewRow).FCLiteral("LtlConsecutivo").Text.ToString.ToEntero Dim index As Integer = CType(DdlFR_Gv.NamingContainer, GridViewRow).FCLiteral("LtlConsecutivo").Text.ToString.ToEntero
@@ -1303,6 +1303,7 @@ Partial Class OS_OrdenesServicios
TmpDT.Rows(Row.RowIndex)("Estatus") = "False" TmpDT.Rows(Row.RowIndex)("Estatus") = "False"
Row.FCLinkButton("imgEstatus").CssClass = "btn btn-circle btn-sm red" Row.FCLinkButton("imgEstatus").CssClass = "btn btn-circle btn-sm red"
End If End If
UpDetalleOS.Update()
End Sub End Sub
Private Sub BtnAddGvDetalle_Click(sender As Object, e As EventArgs) Handles BtnAddGvDetalle.Click Private Sub BtnAddGvDetalle_Click(sender As Object, e As EventArgs) Handles BtnAddGvDetalle.Click
Dim ObjOS As New ClsOS Dim ObjOS As New ClsOS