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

-- activación de proyecto: Zona

Browse Source
This commit is contained in:
rrene
2024-07-13 08:45:37 -07:00
parent 6e49a52182
commit cba1e4cdef
16 changed files with 1022 additions and 1077 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
App_Code/ClsPaginas.vb
View File

@@ -4988,7 +4988,7 @@ Public Class ClsPaginas
ObjUsuario.Dispose()
Return Retorno
End Function
Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing, Optional divProyecto As HtmlControl = Nothing)
Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing, Optional divProyecto As HtmlControl = Nothing, Optional VisualizacionReporte As Integer = -1)
Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 1
@@ -5001,6 +5001,14 @@ Public Class ClsPaginas
If LblProyecto IsNot Nothing Then LblProyecto.Visible = False
If divProyecto IsNot Nothing Then divProyecto.Visible = False
If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
If VisualizacionReporte = 1 Then
If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = True
If LblProyecto IsNot Nothing Then LblProyecto.Visible = True
If divProyecto IsNot Nothing Then divProyecto.Visible = True
If LblProyecto IsNot Nothing Then LblProyecto.Text = UsuarioActual.Empresa.Funcionalidad(307)
End If
End If
Case 3
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
If LblProyecto IsNot Nothing Then LblProyecto.Visible = False
@@ -10672,8 +10680,8 @@ Public Class ClsPaginas
PaginaDict.Add("/Ventas/RepCotizaciones.aspx".ToUpper(), 430)
PaginaDict.Add("/Ventas/RepCotizacionesDetalle.aspx".ToUpper(), 430)
PaginaDict.Add("/Ventas/RepVentasPV.aspx".ToUpper(), 9)
PaginaDict.Add("/Ventas/RepVentaDetalle.aspx".ToUpper(), 9)
PaginaDict.Add("/Ventas/RepVentaDetalle.aspx?Menu=1".ToUpper(), 785)
PaginaDict.Add("/Ventas/RepVentasDetalle.aspx".ToUpper(), 9)
PaginaDict.Add("/Ventas/RepVentasDetalle.aspx?Menu=1".ToUpper(), 785)
PaginaDict.Add("/Ventas/CatClasificaciones.aspx".ToUpper(), 12)
PaginaDict.Add("/Ventas/CatClasificaciones2.aspx".ToUpper(), 396)
PaginaDict.Add("/Ventas/CatClasificacionesDetalle.aspx".ToUpper(), 12)
@@ -10931,3 +10939,4 @@ Public Class ClsPaginas
#End Region
End Class

97
Compras/RepCompras.aspx
View File

@@ -174,43 +174,14 @@
</asp:DropDownList>--%>
<asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
</div>
<div class="col-md-1" title="Fecha Inicio de Captura">F. I. Captura</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px; width: 100px !important">
<asp:TextBox Width="80px" ID="TxtFechaICaptura" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaICaptura" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaICaptura" runat="server" TargetControlID="TxtFechaICaptura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFEchaICaptura" TargetControlID="TxtFechaICaptura" PopupButtonID="ImgFechaICaptura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFechaICaptura" runat="server" ControlToValidate="TxtFechaICaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFechaICaptura" runat="server" ControlToValidate="TxtFechaICaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaICaptura" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaICaptura" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-md-1" title="Fecha Fin de Captura">F. F. Captura:</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px; width: 100px !important">
<asp:TextBox Width="80px" ID="TxtFechaFCaptura" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaFCaptura" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaFCaptura" runat="server" TargetControlID="TxtFechaFCaptura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFEchaFCaptura" TargetControlID="TxtFechaFCaptura" PopupButtonID="ImgFechaFCaptura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFechaFCaptura" runat="server" ControlToValidate="TxtFechaFCaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFechaFCaptura" runat="server" ControlToValidate="TxtFechaFCaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFCaptura" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFCaptura" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-md-1">Moneda:</div>
<div class="col-md-1">
<asp:DropDownList ID="DdlMonedas" runat="server" CssClass=" select2me" AppendDataBoundItems="true" DataTextField="Moneda" DataValueField="CveMoneda" Width="100%">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1">Tipo de Proveedor:</div>
<div class="col-md-1">Tipo de Prov:</div>
<div class="col-md-1">
<asp:DropDownList ID="DdlTipoProveedor" runat="server" CssClass=" select2me" AppendDataBoundItems="true" Width="100%">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
@@ -219,14 +190,18 @@
<asp:ListItem Text="Ambos" Value="3"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="row">
<div class="col-md-1 ">Capturó:</div>
<div class="col-md-2 ">
<asp:DropDownList ID="DDlUsuarioCaptura" CssClass=" select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario" Width="100%">
<div class="col-md-1">Tipo Docto:</div>
<div class="col-md-1">
<asp:DropDownList CssClass="select2me" Width="100%" ID="DdlTipoDocto" runat="server" AppendDataBoundItems="true">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Factura" Value="Fac"></asp:ListItem>
<asp:ListItem Text="Nota de Crédito" Value="NC"></asp:ListItem>
<asp:ListItem Text="Devolución" Value="DEV"></asp:ListItem>
<asp:ListItem Text="Anticipo" Value="Ant"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="row">
<div class="col-md-1">Responsable:</div>
<div class="col-md-2">
<asp:DropDownList CssClass="select2me" Width="100%" ID="DdlUsuario" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario">
@@ -239,17 +214,45 @@
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>--%>
<asp:ListBox ID="DdlTipoGasto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
</div>
<div class="col-md-1">Tipo Docto:</div>
<div class="col-md-2">
<asp:DropDownList CssClass="select2me" Width="100%" ID="DdlTipoDocto" runat="server" AppendDataBoundItems="true">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Factura" Value="Fac"></asp:ListItem>
<asp:ListItem Text="Nota de Crédito" Value="NC"></asp:ListItem>
<asp:ListItem Text="Devolución" Value="DEV"></asp:ListItem>
<asp:ListItem Text="Anticipo" Value="Ant"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
<div class="row">
<div class="col-md-1 ">Capturó:</div>
<div class="col-md-2 ">
<asp:DropDownList ID="DDlUsuarioCaptura" CssClass=" select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario" Width="100%">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1" title="Fecha Inicio de Captura">F. I. Captura</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px; width: 100px !important">
<asp:TextBox Width="80px" ID="TxtFechaICaptura" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaICaptura" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaICaptura" runat="server" TargetControlID="TxtFechaICaptura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFEchaICaptura" TargetControlID="TxtFechaICaptura" PopupButtonID="ImgFechaICaptura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFechaICaptura" runat="server" ControlToValidate="TxtFechaICaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFechaICaptura" runat="server" ControlToValidate="TxtFechaICaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaICaptura" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaICaptura" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-md-1" title="Fecha Fin de Captura">F. F. Captura:</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px; width: 100px !important">
<asp:TextBox Width="80px" ID="TxtFechaFCaptura" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaFCaptura" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaFCaptura" runat="server" TargetControlID="TxtFechaFCaptura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFEchaFCaptura" TargetControlID="TxtFechaFCaptura" PopupButtonID="ImgFechaFCaptura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFechaFCaptura" runat="server" ControlToValidate="TxtFechaFCaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFechaFCaptura" runat="server" ControlToValidate="TxtFechaFCaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFCaptura" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFCaptura" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
</div>
</div>

6
Compras/RepCompras.aspx.vb
View File

@@ -68,7 +68,9 @@ Partial Class Compras_RepCompras
DdlGrupo.Items.Insert(6, New ListItem("Tipo Documento", "6"))
DdlGrupo.Items.Insert(7, New ListItem("Clasificación Prov.", "7"))
DdlGrupo.Items.Insert(8, New ListItem("Responsable", "8"))
DdlGrupo.Items.Insert(9, New ListItem("Remesa", "10"))
DdlGrupo.Items.Insert(9, New ListItem("Remesa", "10"))
If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(10, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "13"))
DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("3")
End Sub
@@ -77,7 +79,7 @@ Partial Class Compras_RepCompras
txtFechaI.Text = $"01/01/{NowADS().Year}"
'Carga Tipo Centro de Costo
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
'CargaProveedores
DdlProveedores.setEsWebService(True)

91
Compras/RepComprasDetalle.aspx
View File

@@ -217,37 +217,8 @@
</asp:DropDownList>--%>
<asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
</div>
<div class="col-md-1" title="Fecha Inicio de Captura">F. I. Captura</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px; width: 100px !important">
<asp:TextBox Width="80px" ID="TxtFechaICaptura" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaICaptura" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaICaptura" runat="server" TargetControlID="TxtFechaICaptura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFEchaICaptura" TargetControlID="TxtFechaICaptura" PopupButtonID="ImgFechaICaptura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFechaICaptura" runat="server" ControlToValidate="TxtFechaICaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFechaICaptura" runat="server" ControlToValidate="TxtFechaICaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaICaptura" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaICaptura" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-md-1" title="Fecha Fin de Captura">F. F. Captura:</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px; width: 100px !important">
<asp:TextBox Width="80px" ID="TxtFechaFCaptura" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaFCaptura" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaFCaptura" runat="server" TargetControlID="TxtFechaFCaptura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFEchaFCaptura" TargetControlID="TxtFechaFCaptura" PopupButtonID="ImgFechaFCaptura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFechaFCaptura" runat="server" ControlToValidate="TxtFechaFCaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFechaFCaptura" runat="server" ControlToValidate="TxtFechaFCaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFCaptura" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFCaptura" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-md-1">Tipo de Proveedor:</div>
<div class="col-md-1">Tipo Prov.:</div>
<div class="col-md-1">
<asp:DropDownList ID="DdlTipoProveedor" runat="server" CssClass=" select2me" AppendDataBoundItems="true" Width="100%">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
@@ -256,14 +227,19 @@
<asp:ListItem Text="Ambos" Value="3"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="row">
<div class="col-md-1 ">Capturó:</div>
<div class="col-md-2 ">
<asp:DropDownList ID="DDlUsuarioCaptura" CssClass=" select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario" Width="100%">
<div class="col-md-1">Tipo Docto:</div>
<div class="col-md-1">
<asp:DropDownList CssClass="select2me" Width="100%" ID="DdlTipoDocto" runat="server" AppendDataBoundItems="true">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Factura" Value="Fac"></asp:ListItem>
<asp:ListItem Text="Nota de Crédito" Value="NC"></asp:ListItem>
<asp:ListItem Text="Anticipo" Value="Ant"></asp:ListItem>
<asp:ListItem Text="Devolución" Value="DEV"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="row">
<div class="col-md-1">Responsable:</div>
<div class="col-md-2">
<asp:DropDownList CssClass="select2me" Width="100%" ID="DdlUsuario" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario">
@@ -277,16 +253,45 @@
</asp:DropDownList>--%>
<asp:ListBox ID="DdlTipoGasto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
</div>
<div class="col-md-1">Tipo Docto:</div>
<div class="col-md-2">
<asp:DropDownList CssClass="select2me" Width="100%" ID="DdlTipoDocto" runat="server" AppendDataBoundItems="true">
</div>
<div class="row">
<div class="col-md-1 ">Capturó:</div>
<div class="col-md-2 ">
<asp:DropDownList ID="DDlUsuarioCaptura" CssClass=" select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario" Width="100%">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
<asp:ListItem Text="Factura" Value="Fac"></asp:ListItem>
<asp:ListItem Text="Nota de Crédito" Value="NC"></asp:ListItem>
<asp:ListItem Text="Anticipo" Value="Ant"></asp:ListItem>
<asp:ListItem Text="Devolución" Value="DEV"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1" title="Fecha Inicio de Captura">F. I. Captura</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px; width: 100px !important">
<asp:TextBox Width="80px" ID="TxtFechaICaptura" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaICaptura" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaICaptura" runat="server" TargetControlID="TxtFechaICaptura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFEchaICaptura" TargetControlID="TxtFechaICaptura" PopupButtonID="ImgFechaICaptura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFechaICaptura" runat="server" ControlToValidate="TxtFechaICaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFechaICaptura" runat="server" ControlToValidate="TxtFechaICaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaICaptura" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaICaptura" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-md-1" title="Fecha Fin de Captura">F. F. Captura:</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding: 0px; width: 100px !important">
<asp:TextBox Width="80px" ID="TxtFechaFCaptura" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgFechaFCaptura" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:MaskedEditExtender ID="MEEFechaFCaptura" runat="server" TargetControlID="TxtFechaFCaptura" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CEFEchaFCaptura" TargetControlID="TxtFechaFCaptura" PopupButtonID="ImgFechaFCaptura" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RFVFechaFCaptura" runat="server" ControlToValidate="TxtFechaFCaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CVFechaFCaptura" runat="server" ControlToValidate="TxtFechaFCaptura" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFCaptura" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFCaptura" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
</div>
</div>

15
Compras/RepComprasDetalle.aspx.vb
View File

@@ -114,14 +114,8 @@ Partial Class Compras_RepComprasDetalle
If IfNull(Request("TipoCambio"), "1").ToString <> "1" Then
RblTipoCambio.SelectedValue = IfNull(Request("TipoCambio"), "1").ToString
End If
'txtFechaI.Text = If(Anio <> "-1", String.Format("01/01/{0}", Anio), txtFechaI.Text)
'txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text)
'txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 2).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text)
End If
If Fecha <> "-1" Then
txtFechaI.Text = Fecha
txtFechaF.Text = Fecha
@@ -130,7 +124,6 @@ Partial Class Compras_RepComprasDetalle
If FechaF <> "-1" Then txtFechaF.Text = FechaF
End If
If FechaCaptura <> "-1" Then
TxtFechaICaptura.Text = FechaCaptura
TxtFechaFCaptura.Text = FechaCaptura
@@ -145,6 +138,8 @@ Partial Class Compras_RepComprasDetalle
DdlProyecto.SelectedValueExist(CveProyecto)
If CveProyecto.ToEntero > 0 Then CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos")
'CARGA LISTBOXs
DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
DdlTipoGasto.SelectedValuesIfExistM(TipoGasto)
@@ -189,7 +184,7 @@ Partial Class Compras_RepComprasDetalle
Private Sub CargaCombos()
'Carga Tipo Centro de Costo
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
'Carga Tipo de Gasto
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)

34
Compras/RepProductosServicios.aspx.vb
View File

@@ -114,7 +114,7 @@ Partial Class Compras_RepProductosServicios
CargaGrupo()
'Carga Tipo Centro de Costo
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
lblCultivo.Visible = True
@@ -123,36 +123,7 @@ Partial Class Compras_RepProductosServicios
lblCultivo.Visible = False
DivCultivo.Visible = False
DdlSubProyecto.AutoPostBack = False
End If
'CARGA COSTOS
If UsuarioActual.CveEmpresa = 66 Then
Dim NumItems As Integer = DdlGrupo.Items.Count
'COSTOS PROYECTO
DdlGrupo.Items.Insert(NumItems, New ListItem("Costos", "13"))
RowCostos.Visible = True
'Carga Familias
DdlFamilia.DataSource = GlobalDTFamilias(66)
DdlFamilia.DataBind()
'Carga SubFamilias
DdlSubFamilia.DataSource = GlobalDTSubFamilias(66)
DdlSubFamilia.DataBind()
'COSTOS AF
DdlGrupo.Items.Insert(NumItems + 1, New ListItem("Costos por Activo Fijo", "14"))
'Carga AF
'DdlAF.DataSource = GlobalDTActivoFijos().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
'DdlAF.DataBind()
End If
RowActivoFijo.Visible = True
'Carga Fechas
@@ -175,6 +146,7 @@ Partial Class Compras_RepProductosServicios
DdlGrupo.Items.Insert(7, New ListItem("Proveedor", "10"))
DdlGrupo.Items.Insert(8, New ListItem("Usuario", "11"))
DdlGrupo.Items.Insert(9, New ListItem("Estatus Fact.", "12"))
If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(10, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "1"))
'Agrega el grupo si es una empresa Agricola
If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
@@ -330,7 +302,7 @@ Partial Class Compras_RepProductosServicios
#Region " SELECTED INDEX CHANGED"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos")
End Sub
Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged

12
Compras/RepProductosServiciosDetalle.aspx
View File

@@ -261,19 +261,19 @@
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="100%" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Fecha" DataField="FechaCompra" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
<Columns>
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto o Servicio" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="AF" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Producto o Servicio" DataField="PS" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Clasificación" DataField="Clasificacion" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="PU" DataField="PU" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="SubTotal" DataField="SubTotal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:HyperLinkField HeaderText="Serie Folio" DataTextField="SerieFolio" ItemStyle-HorizontalAlign="Left" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
<asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Fecha" DataField="FechaCompra" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
<asp:HyperLinkField HeaderText="Serie Folio" DataTextField="SerieFolio" ItemStyle-HorizontalAlign="Left" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
<asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Proveedor" DataField="RazonSocial" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="AF" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" />
</Columns>
</asp:GridView>
</ContentTemplate>

34
Compras/RepProductosServiciosDetalle.aspx.vb
View File

@@ -130,7 +130,8 @@ Partial Class Compras_RepProductosServiciosDetalle
End If
End If
DdlProyecto.SelectedValueExist(Proyecto)
'CARGA LISTBOXs
'CARGA
If Proyecto.ToEntero > 0 Then CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos")
DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
DdlTipoGasto.SelectedValuesIfExistM(TipoGasto)
DdlCategoria.SelectedValuesIfExistM(Categoria)
@@ -181,7 +182,7 @@ Partial Class Compras_RepProductosServiciosDetalle
Private Sub SetValues()
'Carga Tipo Centro de Costo
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
'Carga Tipos de Gasto
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
@@ -233,33 +234,6 @@ Partial Class Compras_RepProductosServiciosDetalle
'Carga Grupos
CargaGrupo()
'CARGA COSTOS
If UsuarioActual.CveEmpresa = 66 Then
Dim NumItems As Integer = DdlGrupo.Items.Count
'COSTOS PROYECTO
DdlGrupo.Items.Insert(NumItems, New ListItem("Costos", "13"))
RowCostos.Visible = True
'Carga Familias
DdlFamilia.DataSource = GlobalDTFamilias(66)
DdlFamilia.DataBind()
'Carga SubFamilias
DdlSubFamilia.DataSource = GlobalDTSubFamilias(66)
DdlSubFamilia.DataBind()
'COSTOS AF
DdlGrupo.Items.Insert(NumItems + 1, New ListItem("Costos por Activo Fijo", "14"))
'Carga AF
'DdlAF.DataSource = GlobalDTActivoFijos().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
'DdlAF.DataBind()
End If
RowActivoFijo.Visible = True
'Carga Fechas
@@ -365,7 +339,7 @@ Partial Class Compras_RepProductosServiciosDetalle
#Region "SELECT INDEX CHANGED"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos")
End Sub
Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
CargaCultivo()

2
Ventas/RepProductosServicios.aspx
View File

@@ -196,7 +196,7 @@
<div class="row">
<asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%;"></asp:DropDownList>
</div>
<asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2">

4
Ventas/RepProductosServicios.aspx.vb
View File

@@ -161,7 +161,7 @@ Partial Class Ventas_RepProductosServicios
DdlClienteClasificacion.DataBind()
DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
CargaGrupo()
@@ -396,7 +396,7 @@ Partial Class Ventas_RepProductosServicios
End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos")
End Sub
'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged

4
Ventas/RepProductosServiciosDetalle.aspx
View File

@@ -198,11 +198,11 @@
<div class="row">
<asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%"></asp:DropDownList>
</div>
<asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%"></asp:DropDownList>
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%"></asp:DropDownList>
</div>
<label class="col-md-1 ">Cliente:</label>
<div class="col-md-2">

23
Ventas/RepProductosServiciosDetalle.aspx.vb
View File

@@ -191,7 +191,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
DdlTipoPSDes.DataBind()
CargaGrupo()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
TCEspecifico = 0
@@ -210,9 +210,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
Private Sub CargaSucursales(CveCliente As Integer, CveClienteSucursal As Integer)
DdlClienteSucursal.Items.Clear()
If CveCliente > 0 Then
Dim ObjCliente As New ClsClientes
@@ -224,19 +221,12 @@ Partial Class Ventas_RepProductosServiciosDetalle
End If
End If
ObjCliente.Dispose()
DdlClienteSucursal.DataBind()
End If
DdlClienteSucursal.Items.Insert(0, New ListItem("Todas", "-1"))
DdlClienteSucursal.Items.Insert(1, New ListItem("Sin Sucursal", "0"))
DdlClienteSucursal.SelectedValueExist(CveClienteSucursal)
End Sub
Private Sub CargaParametrosDetalle()
@@ -248,7 +238,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
Dim CveClasificacionDetalle As Integer = -1
Dim CveClienteSucursal As Integer = -1
GPO = If(Request("Grupo") IsNot Nothing AndAlso Request("Grupo").ToEntero() > 0, Request("Grupo").ToEntero(), -1).ToString
CveProyecto = If(Request("CveProyecto") IsNot Nothing AndAlso Request("CveProyecto").ToEntero() > 0, Request("CveProyecto").ToEntero(), -1).ToString
@@ -335,17 +324,13 @@ Partial Class Ventas_RepProductosServiciosDetalle
Else
txtFechaF.Text = FechaFRef.ToString("dd/MM/yyyy")
End If
End If
Else
If FechaI = "-1" Then
txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 1).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text)
Else
txtFechaI.Text = FechaI
End If
FechaFtemporal = $"01/{AnioMes.Substring(5, 1).PadLeft(2, "0"c)}/{AnioMes.Substring(0, 4)}"
If FechaF = "-1" Then
@@ -360,10 +345,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
txtFechaF.Text = FechaFRef.ToString("dd/MM/yyyy")
End If
End If
End If
End If
txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text)
@@ -408,6 +390,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToEntero
DdlProyecto.SelectedValueExist(CveProyecto)
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos")
DdlSubProyecto.SelectedValueExist(CveSubProyecto)
DdlCategoria.SelectedValueExist(CveCategoria)
DdlClasificacion.SelectedValueExist(CveClasificacion)
@@ -621,7 +604,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos")
End Sub

2
Ventas/RepVentas.aspx
View File

@@ -215,7 +215,7 @@
<div class="row">
<asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%;"></asp:DropDownList>
</div>
<asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2">

12
Ventas/RepVentas.aspx.vb
View File

@@ -179,6 +179,8 @@ Partial Class Ventas_RepVentas
DdlGrupo.Items.Insert(13, New ListItem("Tipo Cliente", "20"))
DdlGrupo.Items.Insert(13, New ListItem("Vendedor/Cliente", "21"))
DdlGrupo.Items.Insert(13, New ListItem("Giro", "22"))
If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(10, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "23"))
DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("3")
End Sub
@@ -191,9 +193,9 @@ Partial Class Ventas_RepVentas
Private Sub CargaCombos()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
'CargaClientes
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
'CargaClientes
Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
If EsWS Then
DdlClientes.setEsWebService(True)
@@ -389,7 +391,7 @@ Partial Class Ventas_RepVentas
End If
Dim CveSubProyecto As String = "-1", CveProyecto As String = "-1"
If DdlGrupo.SelectedValue.ToEntero = 19 Then
If DdlGrupo.SelectedValue.ToEntero.Contiene(19) Then
CveSubProyecto = e.Row.DBCampo("CveCentroCosto")
CveProyecto = e.Row.DBCampo("CveCentroCostoProyecto")
Else
@@ -486,7 +488,7 @@ Partial Class Ventas_RepVentas
'LIGA A DETALLE
Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}"
Dim Liga As String = $"/Ventas/RepVentasDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}"
e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"

1744
Ventas/RepVentaDetalle.aspx → Ventas/RepVentasDetalle.aspx
View File

File diff suppressed because it is too large Load Diff

4
Ventas/RepVentaDetalle.aspx.vb → Ventas/RepVentasDetalle.aspx.vb
View File

@@ -6,7 +6,7 @@ Imports Extensiones
Imports Microsoft.Reporting.WebForms
Imports System.Net.Http
Partial Class RepVentaDetalle
Partial Class RepVentasDetalle
Inherits ClsPaginas
#Region "P R O P I E D A D E S"
Private Property CveProyecto As Integer
@@ -1209,7 +1209,7 @@ Partial Class RepVentaDetalle
Vendedor = If(DdlVendedor.GetSelectedText = "", "", $"&emsp;<b>Vendedor:</b>&nbsp;{DdlVendedor.GetSelectedText}")
CveUsuario = If(DdlUsuario.SelectedValue = "-1", "", $"&emsp;<b>Usuario:</b>&nbsp;{DdlUsuario.SelectedItem.Text}")
CveEstatusFactura = If(DdlEstatus.GetSelectedText = "", "", $"&emsp;<b>Estatus:</b>&nbsp;{DdlEstatus.GetSelectedText}")
CondicionesPago = If(DdlCondicionesPago.selectedValue = "-1", "", String.Format("&emsp;<b>Condiciones Pago</b>: {0}", DdlCondicionesPago.SelectedItem.Text))
CondicionesPago = If(DdlCondicionesPago.SelectedValue = "-1", "", String.Format("&emsp;<b>Condiciones Pago</b>: {0}", DdlCondicionesPago.SelectedItem.Text))
Dim RutaFormato As String = String.Format("{0}Formatos\RepVentaDetalle.rdlc", UsuarioActual.Empresa.Ruta)