From 3b242450ad75b9454cec95e95c2432a5856f9739 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Fri, 8 Nov 2019 09:13:23 -0700
Subject: [PATCH] =?UTF-8?q?Se=20le=20di=C3=B3=20mas=20espacio=20al=20repor?=
 =?UTF-8?q?te=20de=20EntradasSalidas.rdlc=20y=20a=20ordenes=20de=20servici?=
 =?UTF-8?q?o=20se=20le=20quito=20un=20metodo=20que=20no=20se=20utilizaba?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Empresas/Grales/Formatos/EntradasSalidas.rdlc | 10 ++++++----
 OS/OrdenesServicios.aspx.vb                   | 17 +++++++++--------
 2 files changed, 15 insertions(+), 12 deletions(-)

diff --git a/Empresas/Grales/Formatos/EntradasSalidas.rdlc b/Empresas/Grales/Formatos/EntradasSalidas.rdlc
index ccc1a6336..1bbcecdbc 100644
--- a/Empresas/Grales/Formatos/EntradasSalidas.rdlc
+++ b/Empresas/Grales/Formatos/EntradasSalidas.rdlc
@@ -1776,10 +1776,10 @@
         <Height>1.16692in</Height>
         <Style />
       </Body>
-      <Width>8.23098in</Width>
+      <Width>8.2362in</Width>
       <Page>
         <PageHeader>
-          <Height>3.33515cm</Height>
+          <Height>4.57869cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -1896,7 +1896,7 @@
               <rd:DefaultName>Textbox15</rd:DefaultName>
               <Top>2.40001cm</Top>
               <Left>0.01325cm</Left>
-              <Height>0.6cm</Height>
+              <Height>1.8259cm</Height>
               <Width>20.89344cm</Width>
               <ZIndex>3</ZIndex>
               <Style>
@@ -1910,7 +1910,8 @@
               </Style>
             </Textbox>
             <Line Name="Line1">
-              <Top>3.1764cm</Top>
+              <Top>4.4023cm</Top>
+              <Left>0.01325cm</Left>
               <Height>0cm</Height>
               <Width>20.90669cm</Width>
               <ZIndex>4</ZIndex>
@@ -2107,6 +2108,7 @@
             </Textbox>
             <Line Name="Line2">
               <Top>0.127cm</Top>
+              <Left>0cm</Left>
               <Height>0cm</Height>
               <Width>20.90669cm</Width>
               <ZIndex>5</ZIndex>
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 4b128eac3..115a6f2cf 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -373,16 +373,16 @@ Partial Class OS_OrdenesServicios
         End If
         UpDetalleOS.Update()
     End Sub
-    Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs)
-        Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow)
-        Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue
+    'Protected Sub DdlCCEdit_SelectedIndexChanged(sender As Object, e As System.EventArgs)
+    '    Dim gvr As GridViewRow = DirectCast(DirectCast(sender, DropDownList).BindingContainer, GridViewRow)
+    '    Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue
 
-        gvr.FCDropDownList("DDlSubProyecto").Items.Clear()
-        gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero)
-        gvr.FCDropDownList("DDlSubProyecto").DataBind()
-        gvr.FCDropDownList("DDlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
+    '    gvr.FCDropDownList("DDlSubProyecto").Items.Clear()
+    '    gvr.FCDropDownList("DDlSubProyecto").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero)
+    '    gvr.FCDropDownList("DDlSubProyecto").DataBind()
+    '    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)
         Dim DdlFR_Gv As DropDownList = CType(sender, DropDownList)
         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"
             Row.FCLinkButton("imgEstatus").CssClass = "btn btn-circle btn-sm red"
         End If
+        UpDetalleOS.Update()
     End Sub
     Private Sub BtnAddGvDetalle_Click(sender As Object, e As EventArgs) Handles BtnAddGvDetalle.Click
         Dim ObjOS As New ClsOS