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

EntregaRuta

Browse Source
This commit is contained in:
rakcsle
2021-11-17 18:35:30 -07:00
parent 1bef6ac22b
commit bcfd65d305
12 changed files with 43 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
AC/RepEstadoActividades.aspx.vb
View File

@@ -330,8 +330,8 @@ Partial Class AC_RepEstadoActividades
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf))) params.Add(New ReportParameter("pFirma1", String.Format("Ing. Héctor Díaz Young{0}Dirección Administrativa", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("M.E.R Carla Neudert Cordova{0}Dirección General", vbCrLf)))
ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf))) params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf)))

6
AC/RepSituacionFinanciera.aspx.vb
View File

@@ -639,9 +639,10 @@ Partial Class AC_SituacionFinanciera
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("CveEmpresa", UsuarioActual.CveEmpresa.ToString)) params.Add(New ReportParameter("CveEmpresa", UsuarioActual.CveEmpresa.ToString))
params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf))) params.Add(New ReportParameter("pFirma1", String.Format("Ing. Héctor Díaz Young{0}Dirección Administrativa", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("M.E.R Carla Neudert Cordova{0}Dirección General", vbCrLf)))
ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf))) params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf)))
@@ -652,6 +653,7 @@ Partial Class AC_SituacionFinanciera
params.Add(New ReportParameter("pFirma1", "")) params.Add(New ReportParameter("pFirma1", ""))
params.Add(New ReportParameter("pFirma2", "")) params.Add(New ReportParameter("pFirma2", ""))
End If End If
params.Add(New ReportParameter("pFechaFin", FechaF)) params.Add(New ReportParameter("pFechaFin", FechaF))
params.Add(New ReportParameter("Level2", If(ChkNivel.Checked, "SI", "NO"))) params.Add(New ReportParameter("Level2", If(ChkNivel.Checked, "SI", "NO")))
ImprimirPDF(reportpath, lrds, params, fileName, Formato) ImprimirPDF(reportpath, lrds, params, fileName, Formato)

13
AC/Reportes/RepEstadoActividades.rdlc
View File

@@ -1008,18 +1008,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>C.P Vera Guadalupe Tarazon Moreno</Value> <Value>=Parameters!pFirma1.Value</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Director Administrativo</Value>
<Style /> <Style />
</TextRun> </TextRun>
</TextRuns> </TextRuns>

13
AC/Reportes/RepSituacionFinanciera.rdlc
View File

@@ -2942,18 +2942,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>C.P Vera Guadalupe Tarazon Moreno</Value> <Value>=Parameters!pFirma1.Value</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Director Administrativo</Value>
<Style /> <Style />
</TextRun> </TextRun>
</TextRuns> </TextRuns>

4
General/RepEntregaAlmacenRuta.aspx
View File

@@ -232,8 +232,8 @@
<asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="Opciones"> <asp:TemplateField ItemStyle-Width="13%" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="Opciones">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="LnkEditar" runat="server" OnClick="imgEditar_Click" AlternateText="Editar" ToolTip="Actualizar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" /> <asp:LinkButton ID="LnkEditar" runat="server" OnClick="imgEditar_Click" AlternateText="Editar" ToolTip="Actualizar" CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-pencil'></i>" />
<asp:LinkButton ID="LnkTimbrar" runat="server" OnClick="LnkTimbrar_Click" AlternateText="Editar" ToolTip="Timbrar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-external-link'></i>" /> <asp:LinkButton ID="LnkTimbrar" runat="server" OnClick="LnkTimbrar_Click" AlternateText="Timbrar" ToolTip="Timbrar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-external-link'></i>" />
<asp:LinkButton ID="LnkCancelaTimbre" runat="server" OnClick="LnkCancelaTimbre_Click" AlternateText="Editar" ToolTip="Cancelar timbre" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" /> <asp:LinkButton ID="LnkCancelaTimbre" runat="server" OnClick="LnkCancelaTimbre_Click" AlternateText="Cancelar timbre" ToolTip="Cancelar timbre" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>

2
General/RepEntregaAlmacenRuta.aspx.cs
View File

@@ -410,6 +410,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
} }
LnkCancelaTimbre.Visible = true;
} }
} }

1
General/SaldosIniciales.aspx.vb
View File

@@ -390,6 +390,7 @@ Partial Class General_SaldosIniciales
End If End If
End If End If
ElseIf RblFormato.SelectedValue = "7" Then ElseIf RblFormato.SelectedValue = "7" Then
If Not dt.Columns(0).ColumnName = "Código" Then If Not dt.Columns(0).ColumnName = "Código" Then
Alert("El nombre de la primera columna debe ser 'Código'. Favor de corregirlo", TipoMensaje.MsgError) Alert("El nombre de la primera columna debe ser 'Código'. Favor de corregirlo", TipoMensaje.MsgError)

6
Inventarios/EntregaAlmacenRuta.aspx
View File

@@ -15,7 +15,7 @@
</style> </style>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
Entrega Alamacen Ruta Entrega Almacen Ruta
</asp:Content> </asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
@@ -98,8 +98,8 @@
</div> </div>
<div class="col-md-1" style="text-align:center!important"> <div class="col-md-2" style="text-align:center!important">
<asp:LinkButton runat="server" CssClass="btn btn-primary" ID="LnkGenerarDocumentos" OnClick="LnkGenerarDocumentos_Click">Generar Documentos</asp:LinkButton> <asp:LinkButton runat="server" CssClass="btn btn-primary" ID="LnkGenerarDocumentos" OnClick="LnkGenerarDocumentos_Click">Preselección de Entregas</asp:LinkButton>
</div> </div>
<div class="col-md-1" style="text-align:center!important"> <div class="col-md-1" style="text-align:center!important">

6
Inventarios/EntregaAlmacenRuta.aspx.cs
View File

@@ -321,7 +321,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
SelecionEntrega = false; SelecionEntrega = false;
LnkGenerarDocumentos.Text = "Regresa a selección"; LnkGenerarDocumentos.Text = "Regresar a Preselección";
//LnkGenerarDocumentos.CssClass = "btn btn-secondary";
BtnAsignar.Visible = true; BtnAsignar.Visible = true;
BtnConsultar.Visible = false; BtnConsultar.Visible = false;
@@ -334,7 +335,8 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
BtnConsultar.Visible = true; BtnConsultar.Visible = true;
SelecionEntrega = true; SelecionEntrega = true;
LnkGenerarDocumentos.Text = "Generar Documentos"; LnkGenerarDocumentos.Text = "Preselección de Entregas";
//LnkGenerarDocumentos.CssClass = "btn btn-primary";
BtnAsignar.Visible = false; BtnAsignar.Visible = false;
DVGvGenerarDocumentos.Visible = false; DVGvGenerarDocumentos.Visible = false;
DVGvPaqueteriasGuias.Visible = true; DVGvPaqueteriasGuias.Visible = true;

17
Inventarios/RepAnomalias.aspx
View File

@@ -268,8 +268,8 @@
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label> <asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left" Visible="false" /> <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" /> <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
@@ -325,8 +325,8 @@
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label> <asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left" Visible="false" /> <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" /> <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
@@ -375,8 +375,8 @@
<ItemTemplate> <ItemTemplate>
<asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label> <asp:Label ID="LblC" runat="server" Font-Size="6pt"></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left" Visible="false" /> <asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" /> <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />
@@ -474,9 +474,8 @@
<ItemTemplate> <ItemTemplate>
<asp:CheckBox ID="ChkPSFaltante" runat="server" /> <asp:CheckBox ID="ChkPSFaltante" runat="server" />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Proveedor" DataField="NombreComercial" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" /> <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" />

16
Inventarios/RepAnomalias.aspx.vb
View File

@@ -83,6 +83,14 @@ Partial Class Inventarios_RepAnomalias
Dim Inventario As New ClsInventarios Dim Inventario As New ClsInventarios
Dim dt As DataTable = Nothing Dim dt As DataTable = Nothing
If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
GvF.Columns(2).Visible = True
GvS.Columns(2).Visible = True
GvC.Columns(2).Visible = True
GvGrupos.Columns(1).Visible = True
End If
If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then If Inventario.GetInventarioFisico(CveInventarioFisico, UsuarioActual.CveEmpresa, -1, -1) Then
lbTitulo.Text = Inventario.InventarioFisico lbTitulo.Text = Inventario.InventarioFisico
lbObservaciones.Text = Inventario.Observaciones lbObservaciones.Text = Inventario.Observaciones
@@ -299,6 +307,7 @@ Partial Class Inventarios_RepAnomalias
End If End If
UpGeneral.Update()
LnkPDF.Visible = False LnkPDF.Visible = False
ImgExcel.Visible = False ImgExcel.Visible = False
@@ -306,14 +315,17 @@ Partial Class Inventarios_RepAnomalias
ImgExcelProdcutosCoinciden.Visible = False ImgExcelProdcutosCoinciden.Visible = False
LnkDescarExcelGrupos.Visible = True LnkDescarExcelGrupos.Visible = True
GvGrupos.DataSource = dt GvGrupos.DataSource = dt.FiltraParametros("CvePS > 0")
GvGrupos.DataBind() GvGrupos.DataBind()
LtlGrupos1.Text = dt.FiltraParametros("Orden = 1 and CvePS > 0").Rows.Count.ToString LtlGrupos1.Text = dt.FiltraParametros("Orden = 1 and CvePS > 0").Rows.Count.ToString
LtlGrupos2.Text = dt.FiltraParametros("Orden = 2 and CvePS > 0").Rows.Count.ToString LtlGrupos2.Text = dt.FiltraParametros("Orden = 2 and CvePS > 0").Rows.Count.ToString
LtlGrupos3.Text = dt.FiltraParametros("Orden = 3 and CvePS > 0").Rows.Count.ToString LtlGrupos3.Text = dt.FiltraParametros("Orden = 3 and CvePS > 0").Rows.Count.ToString
'PSIguales() If DdlGPO.SelectedValue.ToEntero = 1 Then
PSIguales()
End If
End If End If

2
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -1221,7 +1221,7 @@ Partial Class Inventarios_TraspasoAlmacen
If ChkEmitirTimbrado.Checked Then If ChkEmitirTimbrado.Checked Then
CveMovimientoTimbrado = CveMovimientoSalida CveMovimientoTimbrado = CveMovimientoSalida
Timbrar(CveTimbre, CveMovimientoTimbrado) 'Timbrar(CveTimbre, CveMovimientoTimbrado)
End If End If
Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, "") Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, "")