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

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

Browse Source
This commit is contained in:
Raul Pimienta
2019-09-09 15:20:31 -07:00
parent 91d5de0186 cec16f3e91
commit 9f0a73e494
12 changed files with 3616 additions and 2787 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
App_Code/ClsInventarios.vb
View File

@@ -123,6 +123,8 @@ Public Class ClsInventarios
Public Property PuestoRecibio As String Public Property PuestoRecibio As String
Public Property PuestoEntrego As String Public Property PuestoEntrego As String
Public Property CveRemanufactura As Integer Public Property CveRemanufactura As Integer
Public Property ResponsableCarga As String
Public Property ResponsableRecibio As String
@@ -834,6 +836,8 @@ Public Class ClsInventarios
GastoIndirecto = dr("GastoIndirecto").ToString.ToDouble GastoIndirecto = dr("GastoIndirecto").ToString.ToDouble
PuestoEntrego = dr("PuestoRecibio").ToString PuestoEntrego = dr("PuestoRecibio").ToString
PuestoRecibio = dr("PuestoEntrego").ToString PuestoRecibio = dr("PuestoEntrego").ToString
ResponsableCarga = dr("ResponsableCarga").ToString
ResponsableRecibio = dr("ResponsableRecibio").ToString
Retorno = True Retorno = True
End If End If
@@ -942,7 +946,8 @@ Public Class ClsInventarios
Optional CveConsignacion As Integer = -1, Optional Guia As String = "", Optional CveAlmacenDestino As Integer = -1, Optional Observaciones As String = "", Optional Recibio As String = "", Optional CveConsignacion As Integer = -1, Optional Guia As String = "", Optional CveAlmacenDestino As Integer = -1, Optional Observaciones As String = "", Optional Recibio As String = "",
Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Double = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1, Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Double = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1,
Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Double = -1, Optional CveChofer As Integer = -1, Optional Placa As String = "", Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Double = -1, Optional CveChofer As Integer = -1, Optional Placa As String = "",
Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "") As Integer Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "",
Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "") As Integer
Dim Retorno As Integer = -1 Dim Retorno As Integer = -1
@@ -988,7 +993,13 @@ Public Class ClsInventarios
.Add("@Placa", SqlDbType.VarChar).Value = Placa .Add("@Placa", SqlDbType.VarChar).Value = Placa
.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega .Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega
.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad .Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad
.Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga
.Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio
.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion
.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
.Add("@Licencia", SqlDbType.VarChar).Value = Licencia
End With End With
Try Try

30
Compras/PopUpVerFactura.aspx.vb
View File

@@ -661,6 +661,13 @@ Partial Class PopUpVerFactura
Dim Recibio As String = "" Dim Recibio As String = ""
Dim FechaEntrega As String = "" Dim FechaEntrega As String = ""
Dim EspecifUnidad As String = "" Dim EspecifUnidad As String = ""
Dim ResponsableCarga As String = ""
Dim ResponsableRecibio As String = ""
Dim Identificacion As String = ""
Dim Domicilio As String = ""
Dim Telefono As String = ""
Dim Ciudad As String = ""
Dim Licencia As String = ""
Dim SBDireccionO As New StringBuilder() Dim SBDireccionO As New StringBuilder()
Dim SBDireccionD As New StringBuilder() Dim SBDireccionD As New StringBuilder()
@@ -704,6 +711,14 @@ Partial Class PopUpVerFactura
If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString) If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString)
If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString) If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
End If End If
ResponsableCarga = Dr("ResponsableCarga").ToString
ResponsableRecibio = Dr("ResponsableRecibio").ToString
Identificacion = Dr("Identificacion").ToString
Domicilio = Dr("Domicilio").ToString
Telefono = Dr("Telefono").ToString
Ciudad = Dr("Ciudad").ToString
Licencia = Dr("Licencia").ToString
End If End If
End If End If
End If End If
@@ -743,6 +758,13 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("EspecifUnidad", EspecifUnidad)) params.Add(New ReportParameter("EspecifUnidad", EspecifUnidad))
params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString)) params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString))
params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString)) params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString))
params.Add(New ReportParameter("ResponsableCarga", ResponsableCarga))
params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio))
params.Add(New ReportParameter("Identificacion", Identificacion))
params.Add(New ReportParameter("Domicilio", Domicilio))
params.Add(New ReportParameter("Telefono", Telefono))
params.Add(New ReportParameter("Ciudad", Ciudad))
params.Add(New ReportParameter("Licencia", Licencia))
ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString)) ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
End If End If
End If End If
@@ -1121,6 +1143,8 @@ Partial Class PopUpVerFactura
Dim Recibio As String = ObjInventarios.Recibio Dim Recibio As String = ObjInventarios.Recibio
Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio
Dim PuestoEnrego As String = ObjInventarios.PuestoEntrego Dim PuestoEnrego As String = ObjInventarios.PuestoEntrego
Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga
Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio
If Recibio.Trim = "" Then If Recibio.Trim = "" Then
Dim ObjRH As New ClsRH Dim ObjRH As New ClsRH
@@ -1182,7 +1206,7 @@ Partial Class PopUpVerFactura
Personal, Capturo, AlmacenDestino, CveConsignacion, CveMoneda, Moneda, FolioVenta, FolioOC, Personal, Capturo, AlmacenDestino, CveConsignacion, CveMoneda, Moneda, FolioVenta, FolioOC,
FolioInterno, FechaHora, ObservacionesSolicitud, DepartamentoEntrega, RazonSocialOC, FolioInterno, FechaHora, ObservacionesSolicitud, DepartamentoEntrega, RazonSocialOC,
Remision, Proveedor, CalleOrigen, NoExtOrigen, ColoniaOrigen, LocalidadOrigen, MunicipioOrigen, Remision, Proveedor, CalleOrigen, NoExtOrigen, ColoniaOrigen, LocalidadOrigen, MunicipioOrigen,
EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino, MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio, PuestoEnrego, RazonSocial) EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino, MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio, PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio)
End Sub End Sub
Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1198,7 +1222,7 @@ Partial Class PopUpVerFactura
FolioInterno As String, FechaHora As DateTime, ObservacionesSolicitud As String, DepartamentoEntrega As String, RazonSocialOC As String, FolioInterno As String, FechaHora As DateTime, ObservacionesSolicitud As String, DepartamentoEntrega As String, RazonSocialOC As String,
Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String, Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String, EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String, RazonSocial As String) EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String, RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String)
Select Case CveConcepto Select Case CveConcepto
Case 1 'INICIAL Case 1 'INICIAL
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta)) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta))
@@ -1948,6 +1972,8 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("AlmacenOrigen", Almacen)) params.Add(New ReportParameter("AlmacenOrigen", Almacen))
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
params.Add(New ReportParameter("ResponsableCarga", ResponsableCarga))
params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio))
DtMovimientos = DtMovimientos.FiltraParametros("", "PS") DtMovimientos = DtMovimientos.FiltraParametros("", "PS")
End If End If

32
Empresas/119/Formatos/Traslado.rdlc
View File

@@ -1133,8 +1133,10 @@ Hermosillo, Sonora, Mexico</Value>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Parameters!NombreEntrego.Value</Value> <Value>=Parameters!ResponsableCarga.Value</Value>
<Style /> <Style>
<FontSize>9pt</FontSize>
</Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
@@ -1143,9 +1145,9 @@ Hermosillo, Sonora, Mexico</Value>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName> <rd:DefaultName>Textbox21</rd:DefaultName>
<Top>2.35662cm</Top> <Top>3.28266cm</Top>
<Left>3.14986cm</Left> <Left>3.14986cm</Left>
<Height>0.63472cm</Height> <Height>0.50243cm</Height>
<Width>5.79375cm</Width> <Width>5.79375cm</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
<Visibility> <Visibility>
@@ -1168,8 +1170,10 @@ Hermosillo, Sonora, Mexico</Value>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Parameters!NombreAccion.Value</Value> <Value>=Parameters!ResponsableRecibio.Value</Value>
<Style /> <Style>
<FontSize>9pt</FontSize>
</Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
@@ -1178,9 +1182,9 @@ Hermosillo, Sonora, Mexico</Value>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName> <rd:DefaultName>Textbox21</rd:DefaultName>
<Top>2.35662cm</Top> <Top>3.28266cm</Top>
<Left>11.86467cm</Left> <Left>11.86467cm</Left>
<Height>0.63528cm</Height> <Height>0.50243cm</Height>
<Width>5.78664cm</Width> <Width>5.78664cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
<Visibility> <Visibility>
@@ -1850,6 +1854,18 @@ Hermosillo, Sonora, Mexico</Value>
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="ResponsableCarga">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ResponsableRecibio">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="compuproveedores"> <EmbeddedImage Name="compuproveedores">

20
Empresas/132/Formatos/Cotizacion.rdlc
View File

@@ -479,7 +479,7 @@
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DsOC</DataSetName> <DataSetName>DsOC</DataSetName>
<Top>3.50398in</Top> <Top>2.87898in</Top>
<Left>0.13746in</Left> <Left>0.13746in</Left>
<Height>0.5in</Height> <Height>0.5in</Height>
<Width>7.1093in</Width> <Width>7.1093in</Width>
@@ -558,9 +558,9 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName> <rd:DefaultName>Textbox4</rd:DefaultName>
<Top>5.55633cm</Top> <Top>4.00467cm</Top>
<Left>3.76464in</Left> <Left>3.76084in</Left>
<Height>2.00758cm</Height> <Height>1.50487cm</Height>
<Width>8.84471cm</Width> <Width>8.84471cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
<Style> <Style>
@@ -642,7 +642,7 @@
<rd:DefaultName>Textbox4</rd:DefaultName> <rd:DefaultName>Textbox4</rd:DefaultName>
<Top>2.15054cm</Top> <Top>2.15054cm</Top>
<Left>12.26628cm</Left> <Left>12.26628cm</Left>
<Height>1.47842cm</Height> <Height>1.16092cm</Height>
<Width>6.14066cm</Width> <Width>6.14066cm</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
<Style> <Style>
@@ -677,8 +677,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>5.03951cm</Top> <Top>3.48785cm</Top>
<Left>9.56206cm</Left> <Left>9.55241cm</Left>
<Height>0.51682cm</Height> <Height>0.51682cm</Height>
<Width>8.84471cm</Width> <Width>8.84471cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
@@ -786,8 +786,8 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName> <rd:DefaultName>Textbox1</rd:DefaultName>
<Top>2.19667in</Top> <Top>2.19667in</Top>
<Left>0.13746in</Left> <Left>0.13371in</Left>
<Height>0.89583in</Height> <Height>0.58333in</Height>
<Width>2.99896in</Width> <Width>2.99896in</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>
<Style> <Style>
@@ -1267,7 +1267,7 @@
</Line> </Line>
</ReportItems> </ReportItems>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>10.31122cm</Top> <Top>8.72373cm</Top>
<Left>0.09346cm</Left> <Left>0.09346cm</Left>
<Height>2.95451cm</Height> <Height>2.95451cm</Height>
<Width>19.05149cm</Width> <Width>19.05149cm</Width>

34
Empresas/72/Formatos/Traslado.rdlc
View File

@@ -1018,8 +1018,10 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Parameters!NombreEntrego.Value</Value> <Value>=Parameters!ResponsableCarga.Value</Value>
<Style /> <Style>
<FontSize>9pt</FontSize>
</Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
@@ -1028,9 +1030,9 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName> <rd:DefaultName>Textbox21</rd:DefaultName>
<Top>0.85456cm</Top> <Top>2.49498cm</Top>
<Left>2.91702cm</Left> <Left>2.91702cm</Left>
<Height>0.63472cm</Height> <Height>0.50243cm</Height>
<Width>5.79375cm</Width> <Width>5.79375cm</Width>
<Visibility> <Visibility>
<Hidden>=iif(Parameters!CveConcepto.Value = 9,true,false)</Hidden> <Hidden>=iif(Parameters!CveConcepto.Value = 9,true,false)</Hidden>
@@ -1052,8 +1054,10 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Parameters!NombreAccion.Value</Value> <Value>=Parameters!ResponsableRecibio.Value</Value>
<Style /> <Style>
<FontSize>9pt</FontSize>
</Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
@@ -1062,9 +1066,9 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName> <rd:DefaultName>Textbox21</rd:DefaultName>
<Top>0.85456cm</Top> <Top>2.49498cm</Top>
<Left>11.63183cm</Left> <Left>11.63893cm</Left>
<Height>0.63528cm</Height> <Height>0.50243cm</Height>
<Width>5.78664cm</Width> <Width>5.78664cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
<Visibility> <Visibility>
@@ -1684,6 +1688,18 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="ResponsableCarga">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ResponsableRecibio">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="compuproveedores"> <EmbeddedImage Name="compuproveedores">

294
Empresas/Grales/Formatos/CartaPorte.rdlc
View File

@@ -1353,7 +1353,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value>=Parameters!Chofer.Value</Value> <Value>=Parameters!ResponsableRecibio.Value</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -1468,7 +1468,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName> <rd:DefaultName>Textbox21</rd:DefaultName>
<Top>12.88411cm</Top> <Top>13.24837cm</Top>
<Left>2.21206cm</Left> <Left>2.21206cm</Left>
<Height>1.2cm</Height> <Height>1.2cm</Height>
<Width>5.78664cm</Width> <Width>5.78664cm</Width>
@@ -1505,7 +1505,7 @@
<rd:DefaultName>Textbox22</rd:DefaultName> <rd:DefaultName>Textbox22</rd:DefaultName>
<Top>11.58471cm</Top> <Top>11.58471cm</Top>
<Left>2.21206cm</Left> <Left>2.21206cm</Left>
<Height>0.57354cm</Height> <Height>0.6cm</Height>
<Width>5.78664cm</Width> <Width>5.78664cm</Width>
<ZIndex>15</ZIndex> <ZIndex>15</ZIndex>
<Style> <Style>
@@ -1551,8 +1551,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName> <rd:DefaultName>Textbox21</rd:DefaultName>
<Top>12.88411cm</Top> <Top>13.24837cm</Top>
<Left>11.59464cm</Left> <Left>11.60471cm</Left>
<Height>1.2cm</Height> <Height>1.2cm</Height>
<Width>5.78664cm</Width> <Width>5.78664cm</Width>
<ZIndex>16</ZIndex> <ZIndex>16</ZIndex>
@@ -1601,8 +1601,246 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Textbox Name="Textbox35">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!ResponsableCarga.Value</Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox22</rd:DefaultName>
<Top>12.88411cm</Top>
<Left>2.21206cm</Left>
<Height>0.52062cm</Height>
<Width>5.78664cm</Width>
<ZIndex>18</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox45">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!ResponsableRecibio.Value</Value>
<Style>
<FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox22</rd:DefaultName>
<Top>12.88411cm</Top>
<Left>11.60471cm</Left>
<Height>0.52062cm</Height>
<Width>5.78664cm</Width>
<ZIndex>19</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox46">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>IDENTIFICACIÓN: </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Identificacion.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>DOMICILIO: </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Domicilio.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>TELÉFONO: </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Telefono.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>CIUDAD: </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Ciudad.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>LICENCIA: </Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Licencia.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>20.42682cm</Top>
<Left>0.23022cm</Left>
<Height>2.22232cm</Height>
<Width>19.21855cm</Width>
<ZIndex>20</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<BottomBorder>
<Style>None</Style>
</BottomBorder>
<LeftBorder>
<Style>None</Style>
</LeftBorder>
<RightBorder>
<Style>None</Style>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox21">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>DOCUMENTACIÓN DEL CHOFER</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>19.80083cm</Top>
<Left>0.23022cm</Left>
<Height>0.62599cm</Height>
<Width>19.21855cm</Width>
<ZIndex>21</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<TopBorder>
<Style>None</Style>
</TopBorder>
<LeftBorder>
<Style>None</Style>
</LeftBorder>
<RightBorder>
<Style>None</Style>
</RightBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems> </ReportItems>
<Height>6.27115in</Height> <Height>8.91698in</Height>
<Style /> <Style />
</Body> </Body>
<Width>7.7174in</Width> <Width>7.7174in</Width>
@@ -1852,7 +2090,7 @@
<ReportItems> <ReportItems>
<Line Name="Line1"> <Line Name="Line1">
<Top>0.03528cm</Top> <Top>0.03528cm</Top>
<Left>0.20001cm</Left> <Left>0.22015cm</Left>
<Height>0cm</Height> <Height>0cm</Height>
<Width>19.22862cm</Width> <Width>19.22862cm</Width>
<Style> <Style>
@@ -2260,6 +2498,48 @@
<Nullable>true</Nullable> <Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="ResponsableCarga">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ResponsableRecibio">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Identificacion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Domicilio">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Telefono">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Ciudad">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Licencia">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<Language>es-MX</Language> <Language>es-MX</Language>
<rd:ReportUnitType>Cm</rd:ReportUnitType> <rd:ReportUnitType>Cm</rd:ReportUnitType>

70
Inventarios/TraspasoAlmacen.aspx
View File

@@ -203,6 +203,76 @@
</div> </div>
</div> </div>
</div> </div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div id="DivDocChofer" class="col-md-4" style="display: none;">
<asp:UpdatePanel ID="UpDocChofer" runat="server">
<ContentTemplate>
<div class="portlet light xspadding traspasorow bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">DOCUMENTACIÓN DEL CHOFER</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body ">
<div class="rowpadding">
<div class="row">
<label class="col-md-5">Responsable cargó:</label>
<div class="col-md-4">
<asp:TextBox runat="server" Text="" ID="TxtResponsableCarga" Width="150px" />
</div>
</div>
<div class="row">
<label class="col-md-5">Responsable recibió:</label>
<div class="col-md-4">
<asp:TextBox runat="server" Text="" ID="TxtResponsableRecibio" Width="150px" />
</div>
</div>
<div class="row">
<label class="col-md-5">Identificación:</label>
<div class="col-md-4">
<asp:TextBox runat="server" Text="" ID="TxtIdentificacion" Width="150px" />
</div>
</div>
<div class="row">
<label class="col-md-5">Domicilio:</label>
<div class="col-md-4">
<asp:TextBox runat="server" Text="" ID="TxtDomicilio" Width="150px" />
</div>
</div>
<div class="row">
<label class="col-md-5">Teléfono:</label>
<div class="col-md-4">
<asp:TextBox runat="server" Text="" ID="TxtTelefono" Width="150px" />
</div>
</div>
<div class="row">
<label class="col-md-5">Ciudad:</label>
<div class="col-md-4">
<asp:TextBox runat="server" Text="" ID="TxtCiudad" Width="150px" />
</div>
</div>
<div class="row">
<label class="col-md-5">Licencia:</label>
<div class="col-md-4">
<asp:TextBox runat="server" Text="" ID="TxtLicencia" Width="150px" />
</div>
</div>
</div>
</div>
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

19
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -200,7 +200,7 @@ Partial Class Inventarios_TraspasoAlmacen
Else Else
DivCodigoSeriePS.Visible = False DivCodigoSeriePS.Visible = False
End If End If
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);") If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
If UsuarioActual.CveEmpresa.Contiene(1, 119) Then DivEmiirTimbrado.Visible = True If UsuarioActual.CveEmpresa.Contiene(1, 119) Then DivEmiirTimbrado.Visible = True
@@ -212,7 +212,7 @@ Partial Class Inventarios_TraspasoAlmacen
TipoSeccionAlmacen = 0 TipoSeccionAlmacen = 0
Else Else
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);") If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
End If End If
End Sub End Sub
@@ -753,7 +753,9 @@ Partial Class Inventarios_TraspasoAlmacen
CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"), Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDouble > 0, TxtGastoIndirecto.Text, "-1").ToDouble, CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDouble > 0, TxtGastoIndirecto.Text, "-1").ToDouble,
CveChofer:=If(ChkTransitorio.Checked, DldChofer.SelectedValue.ToEntero, -1), Placa:=If(ChkTransitorio.Checked, TxtPlaca.Text.Trim, "-1"), FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:=If(ChkTransitorio.Checked, TxtEspecifUnidad.Text.Trim, "-1")) CveChofer:=If(ChkTransitorio.Checked, DldChofer.SelectedValue.ToEntero, -1), Placa:=If(ChkTransitorio.Checked, TxtPlaca.Text.Trim, "-1"), FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:=If(ChkTransitorio.Checked, TxtEspecifUnidad.Text.Trim, "-1"),
ResponsableCarga:=If(ChkTransitorio.Checked, TxtResponsableCarga.Text.Trim, "-1"), ResponsableRecibio:=If(ChkTransitorio.Checked, TxtResponsableRecibio.Text.Trim, "-1"), Identificacion:=If(ChkTransitorio.Checked, TxtIdentificacion.Text.Trim, "-1"), Domicilio:=If(ChkTransitorio.Checked, TxtDomicilio.Text.Trim, "-1"),
Telefono:=If(ChkTransitorio.Checked, TxtTelefono.Text.Trim, "-1"), Ciudad:=If(ChkTransitorio.Checked, TxtCiudad.Text.Trim, "-1"), Licencia:=If(ChkTransitorio.Checked, TxtLicencia.Text.Trim, "-1"))
FolioSalida = ObjInventario.Folio FolioSalida = ObjInventario.Folio
Folio = ObjInventario.Folio Folio = ObjInventario.Folio
If CveMovimientoSalida <= 0 Then If CveMovimientoSalida <= 0 Then
@@ -991,6 +993,13 @@ Partial Class Inventarios_TraspasoAlmacen
TxtPlaca.Text = "" TxtPlaca.Text = ""
TxtEspecifUnidad.Text = "" TxtEspecifUnidad.Text = ""
DtSeccionAlmacen.Rows.Clear() DtSeccionAlmacen.Rows.Clear()
TxtResponsableCarga.Text = ""
TxtResponsableRecibio.Text = ""
TxtIdentificacion.Text = ""
TxtDomicilio.Text = ""
TxtTelefono.Text = ""
TxtCiudad.Text = ""
TxtLicencia.Text = ""
DivMov.Visible = False DivMov.Visible = False
CargadoDeMov = False CargadoDeMov = False
@@ -1264,9 +1273,9 @@ Partial Class Inventarios_TraspasoAlmacen
'DdlResponsable.SelectedValue = "-1" 'DdlResponsable.SelectedValue = "-1"
TxtResponsable.Text = "" TxtResponsable.Text = ""
TxtGastoIndirecto.Text = "" TxtGastoIndirecto.Text = ""
RegistraScript("$('#DivTransitorio').show(200);$('#DivGastoIndirecto').show(100);") RegistraScript("$('#DivTransitorio').show(200);$('#DivGastoIndirecto').show(100);$('#DivDocChofer').show(100);")
Else Else
RegistraScript("$('#DivTransitorio').hide(500);$('#DivGastoIndirecto').hide(500);") RegistraScript("$('#DivTransitorio').hide(500);$('#DivGastoIndirecto').hide(500);$('#DivDocChofer').hide(500);")
End If End If
UpModalSeccionAlmacen.Update() UpModalSeccionAlmacen.Update()

1
OC/CatEstatus.aspx
View File

@@ -19,7 +19,6 @@
<ajax:TabPanel runat="server" ID="tabCatalogo" HeaderText="Catálogo"> <ajax:TabPanel runat="server" ID="tabCatalogo" HeaderText="Catálogo">
<ContentTemplate> <ContentTemplate>
<asp:UpdatePanel ID="UpCatalogo" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpCatalogo" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>

2
OC/CatEstatus.aspx.vb
View File

@@ -573,7 +573,7 @@ Partial Class OC_CatEstatus
For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows
Dim aux As Integer = Row.DataKey("CveUsuario").ToString.ToEntero
Dim r As Integer = 1 Dim r As Integer = 1
For i = 0 To Row.Cells.Count - 1 For i = 0 To Row.Cells.Count - 1

261
OS/CatEstatusOrdenServicio.aspx
View File

@@ -85,6 +85,9 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<ajax:TabContainer runat="server" ActiveTabIndex="0" Width="100%" CssClass="tabBodyOverride">
<ajax:TabPanel runat="server" ID="TabCatalogo" HeaderText="Estatus">
<ContentTemplate>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:HiddenField ClientIDMode="Static" runat="server" ID="HdnCveEstatus" Value="-1" /> <asp:HiddenField ClientIDMode="Static" runat="server" ID="HdnCveEstatus" Value="-1" />
@@ -108,6 +111,264 @@
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel runat="server" ID="TabConfiguracion" HeaderText="Configuracion">
<ContentTemplate>
<asp:UpdatePanel ID="UPPEmp" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvEstatusUsuariosREQ" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%" runat="server" AutoGenerateColumns="False" DataKeyNames="CveUsuario" EmptyDataText="No se encontraron Usuarios Registrados" ToolTip="Listado de Usuarios">
<HeaderStyle VerticalAlign="Middle" />
<Columns>
<asp:TemplateField>
<HeaderTemplate>Estatus</HeaderTemplate>
<ItemStyle Width="150px" BorderStyle="None" />
<ItemTemplate>
<asp:Label Font-Bold="true" Width="250px" ID="LblUsuario" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 50%; text-align: right">
<asp:CheckBox ID="chkEstatus1" runat="server" /><asp:HiddenField runat="server" ID="hdnCveEstatusUsuarios1" />
</td>
<td style="width: 50%; text-align: left">
<asp:Label ID="lblSuperior1" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
<asp:Label ID="lblLimites1" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
</td>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 50%; text-align: right">
<asp:CheckBox ID="chkEstatus2" runat="server" /><asp:HiddenField runat="server" ID="hdnCveEstatusUsuarios2" />
</td>
<td style="width: 50%; text-align: left">
<asp:Label ID="lblSuperior2" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
<asp:Label ID="lblLimites2" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
</td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 50%; text-align: right">
<asp:CheckBox ID="chkEstatus3" runat="server" /><asp:HiddenField runat="server" ID="hdnCveEstatusUsuarios3" />
</td>
<td style="width: 50%; text-align: left">
<asp:Label ID="lblSuperior3" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
<asp:Label ID="lblLimites3" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
</td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 50%; text-align: right">
<asp:CheckBox ID="chkEstatus4" runat="server" /><asp:HiddenField runat="server" ID="hdnCveEstatusUsuarios4" />
</td>
<td style="width: 50%; text-align: left">
<asp:Label ID="lblSuperior4" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
<asp:Label ID="lblLimites4" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
</td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 50%; text-align: right">
<asp:CheckBox ID="chkEstatus5" runat="server" /><asp:HiddenField runat="server" ID="hdnCveEstatusUsuarios5" />
</td>
<td style="width: 50%; text-align: left">
<asp:Label ID="lblSuperior5" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
<asp:Label ID="lblLimites5" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
</td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 50%; text-align: right">
<asp:CheckBox ID="chkEstatus6" runat="server" /><asp:HiddenField runat="server" ID="hdnCveEstatusUsuarios6" />
</td>
<td style="width: 50%; text-align: left">
<asp:Label ID="lblSuperior6" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
<asp:Label ID="lblLimites6" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
</td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 50%; text-align: right">
<asp:CheckBox ID="chkEstatus7" runat="server" /><asp:HiddenField runat="server" ID="hdnCveEstatusUsuarios7" />
</td>
<td style="width: 50%; text-align: left">
<asp:Label ID="lblSuperior7" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
<asp:Label ID="lblLimites7" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
</td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 50%; text-align: right">
<asp:CheckBox ID="chkEstatus8" runat="server" /><asp:HiddenField runat="server" ID="hdnCveEstatusUsuarios8" />
</td>
<td style="width: 50%; text-align: left">
<asp:Label ID="lblSuperior8" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
<asp:Label ID="lblLimites8" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
</td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 50%; text-align: right">
<asp:CheckBox ID="chkEstatus9" runat="server" /><asp:HiddenField runat="server" ID="hdnCveEstatusUsuarios9" />
</td>
<td style="width: 50%; text-align: left">
<asp:Label ID="lblSuperior9" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
<asp:Label ID="lblLimites9" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
</td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemStyle HorizontalAlign="Center" />
<ItemTemplate>
<table style="text-align: center; width: 100%">
<tr>
<td style="width: 50%; text-align: right">
<asp:CheckBox ID="chkEstatus10" runat="server" /><asp:HiddenField runat="server" ID="hdnCveEstatusUsuarios10" />
</td>
<td style="width: 50%; text-align: left">
<asp:Label ID="lblSuperior10" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
<asp:Label ID="lblLimites10" Font-Size="7" Font-Italic="true" runat="server"></asp:Label>
</td>
</tr>
</table>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
<asp:Button ID="btnGuardarEstatusUsuariosREQ" Text="Guardar" runat="server" Visible="true" CssClass="btn btn-primary" />
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" ID="UPSuperior" UpdateMode="Conditional">
<ContentTemplate>
<asp:HiddenField runat="server" ID="IDhdnCveEstatusUsuarios" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="IDCellYellow" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="IDimg" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="hdnCveEstatusUsuarios" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="hdnCveSuperior" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="hdnCveEstatusSiguiente" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="HiddenField1" ClientIDMode="Static" />
<asp:HiddenField runat="server" ID="hdnCveUsuario" ClientIDMode="Static" />
<div id="DivSuperior" style="width: 200px; background-color: White; border: solid 1px black; color: Black; display: none; position: absolute;">
<table border="0" style="width: 200px" cellpadding="0" cellspacing="0">
<tr class="Titulos">
<td style="width: 400px">Opciones&nbsp;</td>
<td style="padding-right: 4px; padding-top: 4px" valign="top">
<img alt="" src="/Imagenes/close.gif" style="cursor: pointer;" onclick="$('#DivSuperior').hide(1000);" /></td>
</tr>
<tr align="center">
<td colspan="2">
<table style="height: 80px; width: 100%">
<tr>
<td style="vertical-align: top; text-align: left; width: 100%">
<asp:CheckBox ID="chkMostrarLimites" Font-Bold="true" Style="display: none" ClientIDMode="Static" Text="Usar Limites" runat="server" /><br />
<div id="DivLimites" style="display: none;">
<table>
<tr>
<td>Inferior</td>
<td>
<asp:TextBox ID="txtLimiteInferior" Width="80px" runat="server" ClientIDMode="Static"></asp:TextBox></td>
</tr>
<tr>
<td>Superior</td>
<td>
<asp:TextBox ID="txtLimiteSuperior" Width="80px" runat="server" ClientIDMode="Static"></asp:TextBox></td>
</tr>
</table>
</div>
<table style="text-align: center" runat="server" id="tblSuperior">
<tr>
<td style="font-weight: bold">Superior</td>
</tr>
<tr>
<td>
<asp:DropDownList ID="ddlSuperior" Width="170px" ClientIDMode="Static" runat="server" DataValueField="CveUsuario" DataTextField="Nombre"></asp:DropDownList></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr style="height: 25px">
<td align="center" colspan="2">
<asp:Button ID="BtnGuardarSuperior" runat="server" ClientIDMode="Static" OnClientClick="$('#DivSuperior').hide(1000);" Text="Guardar" />
<input id="BtnCancelarObs" type="button" value="Cancelar" onclick="$('#DivSuperior').hide(1000);" />
</td>
</tr>
</table>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>
<%--POPUP AGREGAR--%> <%--POPUP AGREGAR--%>
<div id="divAddEstatusOS" class="modal ADS fade" role="dialog"> <div id="divAddEstatusOS" class="modal ADS fade" role="dialog">

141
OS/CatEstatusOrdenServicio.aspx.vb
View File

@@ -26,14 +26,31 @@ Partial Class OS_CatEstatusOrdenServicio
ViewState("CveEstatuOS") = value ViewState("CveEstatuOS") = value
End Set End Set
End Property End Property
Private Property DTEstatusUsuarios As DataTable
Get
Return CType(ViewState("DTEstatusUsuarios"), DataTable)
End Get
Set(value As DataTable)
ViewState("DTEstatusUsuarios") = value
End Set
End Property
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
CreaGrid("Req")
CreaGrid("OC")
CargaGridEstatusUsuarios()
ViewState("Orden") = ""
'ViewState("TipoSeleccionado") = DdlTipo.SelectedValue
CveEstatuOS = -1 CveEstatuOS = -1
CargaDatos() CargaDatos()
'CargaProyectos()
CargaUsuarios()
End If End If
End Sub End Sub
@@ -154,4 +171,128 @@ Partial Class OS_CatEstatusOrdenServicio
End If End If
End Sub End Sub
#End Region #End Region
#Region "Configuracion"
Protected Sub ibOpciones1_Click(sender As Object, e As ImageClickEventArgs)
Dim imgBtn As ImageButton = DirectCast(sender, System.Web.UI.WebControls.ImageButton)
ddlSuperior.Items.Clear()
If imgBtn.CommandArgument <> "" Then
'chkMostrarLimites.Visible = If(GlobalDTOCEstatus.FiltraParametros("CveEstatusSiguiente = " + imgBtn.CommandArgument)(0)("TipoTermino").ToString.ToEntero = 3, False, True)
chkMostrarLimites.Style("display") = If(GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros("CveEstatusSiguiente = " + imgBtn.CommandArgument)(0)("TipoTermino").ToString.ToEntero = 3, "none", "inline")
'ddlSuperior.DataSource = DTEstatusUsuarios.FiltraParametros(String.Format("CveEstatus = {0}", imgBtn.CommandArgument), "Nombre DESC")
ddlSuperior.DataBind()
ddlSuperior.Items.Insert(0, New ListItem("Todos los Superiores", "-1"))
Try
ddlSuperior.SelectedValue = hdnCveSuperior.Value
Catch ex As Exception
End Try
tblSuperior.Visible = True
Else
tblSuperior.Visible = False
End If
UPSuperior.Update()
UPPEmp.Update()
RegistraScript("$('#DivSuperior').show(1000); PosicionaObjeto('" + imgBtn.ClientID + "','DivSuperior'); chkMostrarLimitesCambio();")
End Sub
Private Sub CreaGrid(Tipo As String)
Dim i As Integer = 1
For Each Row As DataRow In GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).Rows
GvEstatusUsuariosREQ.Columns(i).HeaderText = Row("EstatusOrdenServicio").ToString.ToUpper
GvEstatusUsuariosREQ.Columns(i).FooterText = Row("CveEstatusOrdenServicio").ToString
i += 1
Next
While i <= 10
GvEstatusUsuariosREQ.Columns(i).Visible = False
i += 1
End While
End Sub
Protected Sub CargaGridEstatusUsuarios()
GvEstatusUsuariosREQ.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
GvEstatusUsuariosREQ.DataBind()
UPPEmp.Update()
End Sub
Public Sub CargaUsuarios()
ddlSuperior.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
ddlSuperior.DataBind()
End Sub
Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click
Dim objEstatusOC As New ClsOS
objEstatusOC.IniciaTransacSQL()
Dim HuboErrores As Boolean = False
Dim CveSubProyecto = 59
For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows
Dim aux As String = Row.DataKey("CveUsuario").ToString
Dim r As Integer = 1
For i = 0 To Row.Cells.Count - 1
Dim CveEstatus As Integer = If(IsNumeric(GvEstatusUsuariosREQ.Columns(i).FooterText), GvEstatusUsuariosREQ.Columns(i).FooterText.ToEntero, 0)
If CveEstatus > 0 Then
If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero > 0 Then
'Eliminar el registro existente
If Not objEstatusOC.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero) Then
HuboErrores = True
Exit For
End If
ElseIf Row.FCCheckBox("chkEstatus" + r.ToString).Checked = True Then
'And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero = -1
'Guardado masivo cuando sea SubProyecto "Todos"
If CveSubProyecto = -2 Then
For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows
If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero, CveSubProyecto) Then
HuboErrores = True
Exit For
End If
Next
If HuboErrores Then
Exit For
End If
'Insertar el nuevo registro
Else
If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, Row.DataKey("CveUsuario").ToString.ToEntero, CveSubProyecto) Then
HuboErrores = True
Exit For
End If
End If
End If
r += 1
End If
Next
'Si tubo algun error terminamos el proceso (FOR)
If HuboErrores Then
Exit For
End If
Next
If Not HuboErrores Then
objEstatusOC.Commit()
Alert("Se guardaron los Cambios exitosamente", TipoMensaje.MsgInformacion)
Else
objEstatusOC.RollBack()
Alert("Ocurrió un error al guardar los cambios. Por favor vuelva a intentar", TipoMensaje.MsgError)
End If
objEstatusOC.Dispose()
CargaGridEstatusUsuarios()
End Sub
#End Region
End Class End Class