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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2020-08-25 09:11:42 -07:00
parent 1de3c1b1c0 8651eebeaf
commit d612ac7f70
3 changed files with 41 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Empresas/72/Formatos/OC.rdlc
View File

@@ -2289,7 +2289,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Comprador: </Value> <Value>Asignado a: </Value>
<Style> <Style>
<FontFamily>Myriad Pro Light</FontFamily> <FontFamily>Myriad Pro Light</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>

25
OC/RepOC.aspx
View File

@@ -149,12 +149,12 @@
<asp:ListItem Value="OC" Text="Ordenes Compra"></asp:ListItem> <asp:ListItem Value="OC" Text="Ordenes Compra"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="colf-1 truncate">Proyecto:</label> <asp:Label runat="server" ID="LblProyecto" class="colf-1 truncate">Proyecto:</asp:Label>
<div class="colf-2"> <div runat="server" id="DivProyectos" class="colf-2">
<asp:DropDownList ID="DdlProyectos" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto"> <asp:DropDownList ID="DdlProyectos" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="colf-1 truncate">SubProyecto:</label> <asp:Label runat="server" ID="LblSubProyecto" class="colf-1 truncate">SubProyecto:</asp:Label>
<div class="colf-2"> <div class="colf-2">
<asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto"> <asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
</asp:DropDownList> </asp:DropDownList>
@@ -186,6 +186,11 @@
<asp:DropDownList ID="DdlUsuarioAutorizo" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Nombre" DataValueField="CveUsuario"> <asp:DropDownList ID="DdlUsuarioAutorizo" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Nombre" DataValueField="CveUsuario">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="colf-1">Usuario Asignado</label>
<div class="colf-2">
<asp:DropDownList ID="DdlUsuarioAsignado" runat="server" CssClass="form-control input-sm select2me" DataTextField="Nombre" DataValueField="CveUsuario" Style="width: 95px; height: 30px; display: inline-block;">
</asp:DropDownList>
</div>
</div> </div>
<div class="row rownomargin"> <div class="row rownomargin">
@@ -241,6 +246,14 @@
<div class="colf-3"> <div class="colf-3">
<asp:CheckBox Text="No Completa" TextAlign="Left" CssClass="md-checksd2" ID="CheckNoCompleta" Visible="true" runat="server" /> <asp:CheckBox Text="No Completa" TextAlign="Left" CssClass="md-checksd2" ID="CheckNoCompleta" Visible="true" runat="server" />
</div> </div>
<label class="colf-1">Es Entrega Directa</label>
<div class="colf-2">
<asp:DropDownList ID="DdlEntregaDirecta" runat="server" CssClass="form-control input-sm select2me" Style="width: 95px; height: 30px; display: inline-block;">
<asp:ListItem selected="True" Text="Todos" Value="-1"/>
<asp:ListItem Text="No" Value="0"/>
<asp:ListItem Text="Si" Value="1"/>
</asp:DropDownList>
</div>
</div> </div>
</div> </div>
</div> </div>
@@ -326,6 +339,8 @@
<asp:BoundField DataField="NombreComercial" HeaderText="Proveedor" /> <asp:BoundField DataField="NombreComercial" HeaderText="Proveedor" />
<asp:BoundField DataField="Cliente" HeaderText="Cliente" /> <asp:BoundField DataField="Cliente" HeaderText="Cliente" />
<asp:BoundField DataField="CodigoAF" HeaderText="AF" /> <asp:BoundField DataField="CodigoAF" HeaderText="AF" />
<asp:BoundField DataField="FechaEstimadaEntrega" HeaderText="Fecha Entrega" DataFormatString = "{0:dd/MM/yyyy}"/>
<asp:BoundField DataField="EntregaDirectaFormat" HeaderText="Entrega Directa" />
<asp:BoundField DataField="Total" DataFormatString="{0:N2}" HeaderText="Total" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField DataField="Total" DataFormatString="{0:N2}" HeaderText="Total" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" /> <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
</Columns> </Columns>
@@ -361,6 +376,8 @@
<asp:BoundField DataField="NombreComercial" HeaderText="Proveedor" /> <asp:BoundField DataField="NombreComercial" HeaderText="Proveedor" />
<asp:BoundField DataField="Cliente" HeaderText="Cliente" /> <asp:BoundField DataField="Cliente" HeaderText="Cliente" />
<asp:BoundField DataField="CodigoAF" HeaderText="AF" /> <asp:BoundField DataField="CodigoAF" HeaderText="AF" />
<asp:BoundField DataField="FechaEstimadaEntrega" HeaderText="Fecha Entrega" DataFormatString = "{0:dd/MM/yyyy}"/>
<asp:BoundField DataField="EntregaDirectaFormat" HeaderText="Entrega Directa" />
<asp:BoundField DataField="Total" HeaderText="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px" /> <asp:BoundField DataField="Total" HeaderText="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px" />
<asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" /> <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
</Columns> </Columns>
@@ -398,6 +415,8 @@
<asp:BoundField DataField="NombreComercial" HeaderText="Proveedor" /> <asp:BoundField DataField="NombreComercial" HeaderText="Proveedor" />
<asp:BoundField DataField="Cliente" HeaderText="Cliente" /> <asp:BoundField DataField="Cliente" HeaderText="Cliente" />
<asp:BoundField DataField="CodigoAF" HeaderText="AF" /> <asp:BoundField DataField="CodigoAF" HeaderText="AF" />
<asp:BoundField DataField="FechaEstimadaEntrega" HeaderText="Fecha Entrega" DataFormatString = "{0:dd/MM/yyyy}"/>
<asp:BoundField DataField="EntregaDirectaFormat" HeaderText="Entrega Directa" />
<asp:BoundField DataField="Total" HeaderText="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px" /> <asp:BoundField DataField="Total" HeaderText="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px" />
<asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" /> <asp:BoundField DataField="MonAbreviatura" HeaderText="Mon" />
</Columns> </Columns>

28
OC/RepOC.aspx.vb
View File

@@ -53,7 +53,7 @@ Partial Class RepOC
'End If 'End If
CargaProyectos() CargaProyectos()
CargaSubProyectos() 'CargaSubProyectos()
CargaUsuarios() CargaUsuarios()
CargaProveedores() CargaProveedores()
CargaEstatus() CargaEstatus()
@@ -81,9 +81,12 @@ Partial Class RepOC
#Region " CARGA COMBOS " #Region " CARGA COMBOS "
Protected Sub CargaProyectos() Protected Sub CargaProyectos()
DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1)) 'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
DdlProyectos.DataBind() 'DdlProyectos.DataBind()
DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1")) 'DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LblSubProyecto)
GvPorAtender.Columns(5).HeaderText = LblSubProyecto.Text
DivProyectos.Visible = DdlProyectos.Visible
End Sub End Sub
Protected Sub CargaSubProyectos() Protected Sub CargaSubProyectos()
@@ -97,6 +100,10 @@ Partial Class RepOC
ddlUsuario.DataBind() ddlUsuario.DataBind()
ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1")) ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
DdlUsuarioAsignado.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuarioAsignado.DataBind()
DdlUsuarioAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
DdlUsuarioAutorizo.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlUsuarioAutorizo.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuarioAutorizo.DataBind() DdlUsuarioAutorizo.DataBind()
DdlUsuarioAutorizo.Items.Insert(0, New ListItem("Todos", "-1")) DdlUsuarioAutorizo.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -187,8 +194,8 @@ Partial Class RepOC
Dim OC As New ClsOC Dim OC As New ClsOC
If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 0, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 0, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero,
DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
DtPorAtender = OC.DtResultados DtPorAtender = OC.DtResultados
GvPorAtender.DataSource = DtPorAtender 'OC.DtResultados GvPorAtender.DataSource = DtPorAtender 'OC.DtResultados
@@ -203,8 +210,8 @@ Partial Class RepOC
End If End If
If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 1, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 1, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero,
DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False)) Then CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
GvPendientes.DataSource = OC.DtResultados GvPendientes.DataSource = OC.DtResultados
GvPendientes.DataBind() GvPendientes.DataBind()
'If (GvPendientes.Rows.Count > 0) Then 'If (GvPendientes.Rows.Count > 0) Then
@@ -317,8 +324,9 @@ Partial Class RepOC
Dim OC As New ClsOC Dim OC As New ClsOC
If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero()) Then ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
GvConsultar.DataSource = OC.DtResultados GvConsultar.DataSource = OC.DtResultados
DtOC = OC.DtResultados DtOC = OC.DtResultados