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

SMS - 2024.04.11

Browse Source
This commit is contained in:
rakcsle
2024-04-13 08:05:27 -07:00
parent ba3bad0f70
commit dd87858084
9 changed files with 82 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
AF/AF.aspx
View File

@@ -154,20 +154,22 @@
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-4 ">
<label class="control-label">Grupo:</label>
</div>
<div class="col-md-6"> <div class="col-md-4 ">
<div class="form-group"> <label class="control-label">Grupo:</label>
<asp:DropDownList ID="DdlGrupo" runat="server" DataValueField="CveGrupo" DataTextField="Grupo" CssClass="form-control input-small select2me"> </div>
</asp:DropDownList>
</div> <div class="col-md-6">
</div> <div class="form-group">
<div class="col-md-1"> <asp:DropDownList ID="DdlGrupo" runat="server" DataValueField="CveGrupo" DataTextField="Grupo" CssClass="form-control input-small select2me">
<asp:Button ID="BtnAgregarGrupo" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="True" /> </asp:DropDownList>
</div> </div>
</div>
<div class="col-md-1">
<asp:Button ID="BtnAgregarGrupo" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="True" />
</div>
</div>
<div class="row"> <div class="row">
<div class="col-md-4 "> <div class="col-md-4 ">
@@ -195,7 +197,7 @@
</div> </div>
</div>
<div class="row"> <div class="row">

3
AF/AF.aspx.vb
View File

@@ -2760,7 +2760,8 @@ Partial Class AF_AF
Dim ObjAFCaracteristicas As New ClsAF Dim ObjAFCaracteristicas As New ClsAF
If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, CveEmpresaActual) Then If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, CveEmpresaActual) Then
Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue)) Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, $"CveSubTipoActivoFijo = {DdlSubTipoActivoFijo.SelectedValue} OR (CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue} AND CveSubTipoActivoFijo IS NULL)", $"CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue}")
'Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue))
GvC.DataSource = ObjAFCaracteristicas.DtResultados.FiltraParametros(Filtro, "CaracteristicaClasificacion, Orden") GvC.DataSource = ObjAFCaracteristicas.DtResultados.FiltraParametros(Filtro, "CaracteristicaClasificacion, Orden")
If ObjAFCaracteristicas.GetCaracteristicasOpcionesSubTipo(-1, DdlSubTipoActivoFijo.SelectedValue.ToEntero, CveEmpresaActual) Then If ObjAFCaracteristicas.GetCaracteristicasOpcionesSubTipo(-1, DdlSubTipoActivoFijo.SelectedValue.ToEntero, CveEmpresaActual) Then

23
AF/CatClasificacionesCaracteristicas.aspx
View File

@@ -238,7 +238,7 @@
<tr> <tr>
<td style="text-align: center"> <td style="text-align: center">
<asp:DropDownList ID="DdlTiposActivosFijosCA" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataValueField="CveTipoActivoFijo" DataTextField="TipoActivoFijo" ValidationGroup="GrpGuardarCA" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 79px !important;"> <asp:DropDownList ID="DdlTiposActivosFijosCA" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataValueField="CveTipoActivoFijo" DataTextField="TipoActivoFijo" ValidationGroup="GrpGuardarCA" Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 79px !important;">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<%-- <asp:RequiredFieldValidator ID="RFVTiposActivosFijosCA" runat="server" ControlToValidate="DdlTiposActivosFijosCA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Activo Fijo''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardarCA"></asp:RequiredFieldValidator> <%-- <asp:RequiredFieldValidator ID="RFVTiposActivosFijosCA" runat="server" ControlToValidate="DdlTiposActivosFijosCA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Activo Fijo''</b> es necesario, por favor ingréselo." InitialValue="-1" ValidationGroup="GrpGuardarCA"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOTiposActivosFijosCA" runat="server" HighlightCssClass="vco" TargetControlID="RFVTiposActivosFijosCA" Width="300px"></ajax:ValidatorCalloutExtender>--%> <ajax:ValidatorCalloutExtender ID="VCOTiposActivosFijosCA" runat="server" HighlightCssClass="vco" TargetControlID="RFVTiposActivosFijosCA" Width="300px"></ajax:ValidatorCalloutExtender>--%>
@@ -298,9 +298,16 @@
</table> </table>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatosCA" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatosCA" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatosCA" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristica" EmptyDataText="No se encontraron Características" CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px; text-align: center;" GridLines="None">
<asp:GridView ID="GvDatosCA" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCaracteristica" EmptyDataText="No se encontraron Características" Width="1095px"
CssClass="table table-striped table-advance table-hover mysmallbtn" Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosCA" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate> <ItemTemplate>&nbsp;<asp:Literal ID="LtlTiposActivosFijosCA" runat="server" Text='<%# Eval("TipoActivoFijo", "{0}")%>'></asp:Literal></ItemTemplate>
@@ -391,10 +398,16 @@
<asp:Literal ID="LtlUsuarioCA" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal> <asp:Literal ID="LtlUsuarioCA" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Editar"> <asp:TemplateField HeaderText="Editar" ItemStyle-Width="70px">
<EditItemTemplate> <EditItemTemplate>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpEditGuardarCA" />&nbsp;
<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" /> <div class="row">
<div class="col-lg-6"><asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpEditGuardarCA" />&nbsp;</div>
<div class="col-lg-6"><asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" /></div>
</div>
</EditItemTemplate> </EditItemTemplate>
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" ToolTip="Editar" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" /> <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" ToolTip="Editar" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />

25
AF/CatClasificacionesCaracteristicas.aspx.vb
View File

@@ -52,6 +52,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
'Carga Globals para DT 'Carga Globals para DT
CargaTiposActivosFijos() CargaTiposActivosFijos()
DdlTiposActivosFijosCA_SelectedIndexChanged(Nothing, Nothing)
''CargaCaracteristicasClasificaciones() ''CargaCaracteristicasClasificaciones()
'CargaCaracteristicas() 'CargaCaracteristicas()
End If End If
@@ -64,6 +65,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
DdlTiposActivosFijosCA.DataBind() DdlTiposActivosFijosCA.DataBind()
DdlTiposActivosFijosOpciones.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) DdlTiposActivosFijosOpciones.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
DdlTiposActivosFijosOpciones.DataBind() DdlTiposActivosFijosOpciones.DataBind()
'DdlTiposActivosFijosCA.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
#Region "CLASIFICACIONES" #Region "CLASIFICACIONES"
@@ -261,7 +263,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
End If End If
e.Row.Cells(0).Width = Unit.Pixel(95) 'TipoActivoFijo e.Row.Cells(0).Width = Unit.Pixel(95) 'TipoActivoFijo
e.Row.Cells(1).Width = Unit.Pixel(100) 'SubTipoActivoFIjo e.Row.Cells(1).Width = Unit.Pixel(140) 'SubTipoActivoFIjo
e.Row.Cells(2).Width = Unit.Pixel(110) 'Clasificacion e.Row.Cells(2).Width = Unit.Pixel(110) 'Clasificacion
e.Row.Cells(3).Width = Unit.Pixel(120) 'Caracteristica e.Row.Cells(3).Width = Unit.Pixel(120) 'Caracteristica
e.Row.Cells(4).Width = Unit.Pixel(70) 'Orden e.Row.Cells(4).Width = Unit.Pixel(70) 'Orden
@@ -271,8 +273,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
e.Row.Cells(8).Width = Unit.Pixel(70) 'Estatus e.Row.Cells(8).Width = Unit.Pixel(70) 'Estatus
e.Row.Cells(9).Width = Unit.Pixel(75) 'FechaIng e.Row.Cells(9).Width = Unit.Pixel(75) 'FechaIng
e.Row.Cells(10).Width = Unit.Pixel(75) 'Usuario e.Row.Cells(10).Width = Unit.Pixel(75) 'Usuario
e.Row.Cells(11).Width = Unit.Pixel(55) ' e.Row.Cells(11).Width = Unit.Pixel(70) '
e.Row.Cells(12).Width = Unit.Pixel(61) ' e.Row.Cells(12).Width = Unit.Pixel(55) '
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
@@ -285,10 +287,18 @@ Partial Class AF_CatClasificacionesCaracteristicas
'End If 'End If
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
e.Row.FCDropDownList("DdlTiposActivosFijosCA").DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) e.Row.FCDropDownList("DdlTiposActivosFijosCA").DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlTiposActivosFijosCA").DataBind() e.Row.FCDropDownList("DdlTiposActivosFijosCA").DataBind()
e.Row.FCDropDownList("DdlTiposActivosFijosCA").Items.Insert(0, New ListItem("Todos", "-1"))
e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue = e.Row.DBCampo("CveTipoActivoFijo") e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue = e.Row.DBCampo("CveTipoActivoFijo")
e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} ", e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue))
If e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue.ToEntero > 0 Then
e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} ", e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue))
Else
e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa)
End If
e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataBind() e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataBind()
e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo") e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo")
e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").Items.Insert(0, New ListItem("Todos", "-1")) e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").Items.Insert(0, New ListItem("Todos", "-1"))
@@ -376,7 +386,12 @@ Partial Class AF_CatClasificacionesCaracteristicas
Dim ddl As DropDownList = gvr.FCDropDownList("DdlSubTiposActivosFijosCA") Dim ddl As DropDownList = gvr.FCDropDownList("DdlSubTiposActivosFijosCA")
ddl.Items.Clear() ddl.Items.Clear()
ddl.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} AND CveEmpresa = {1}", ddl1.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)) If ddl1.SelectedValue.ToEntero > 0 Then
ddl.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} AND CveEmpresa = {1}", ddl1.SelectedValue.ToEntero, UsuarioActual.CveEmpresa))
Else
ddl.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa)
End If
ddl.DataBind() ddl.DataBind()
ddl.Items.Insert(0, New ListItem("Todos", "-1")) ddl.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub

2
Bancos/PopIEVentas.aspx.vb
View File

@@ -434,7 +434,7 @@ Partial Class Bancos_PopIEVentas
If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" AndAlso dr("FolioFiscal").ToString() <> "" Then If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" AndAlso dr("FolioFiscal").ToString() <> "" Then
Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString(), UsuarioActual.Empresa.RFC, dr("RFCReceptor").ToString, dr("Total").ToString.ToDecimal.RoundAD(2)) Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString().Trim, UsuarioActual.Empresa.RFC, dr("RFCReceptor").ToString, dr("Total").ToString.ToDecimal.RoundAD(2))
If Valida.EsValida > 0 Then If Valida.EsValida > 0 Then
If Valida.EsValida = 2 Then If Valida.EsValida = 2 Then

2
Inventarios/EntregaAlmacen.aspx
View File

@@ -393,7 +393,7 @@
<asp:GridView ID="GVPendientes" runat="server" DataKeyNames="TipoEntrega,CveVenta,CveTraspasoSolicitud,CveOS" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="200" data-freezerows="1" GridLines="None"> <asp:GridView ID="GVPendientes" runat="server" DataKeyNames="TipoEntrega,CveVenta,CveTraspasoSolicitud,CveOS" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowHeader="true" ShowHeaderWhenEmpty="True" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall ScrollAD" data-height="200" data-freezerows="1" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="Tipo" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" /> <asp:BoundField HeaderText="Tipo" DataField="TipoDocto" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
<asp:BoundField HeaderText="Cliente" DataField="Nombre" ItemStyle-Width="45%" /> <asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-Width="45%" />
<asp:TemplateField HeaderText="Serie-Folio" ItemStyle-Width="20%"> <asp:TemplateField HeaderText="Serie-Folio" ItemStyle-Width="20%">
<ItemTemplate> <ItemTemplate>

1
OS/RepOSMedicas.aspx
View File

@@ -207,6 +207,7 @@
<asp:BoundField HeaderText="Observaciones" DataField="Observaciones" visible="false" /> <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" visible="false" />
<%--14--%> <%--14--%>
<asp:BoundField HeaderText="Folio Adicional" DataField="FolioAdicional" visible="false" /> <asp:BoundField HeaderText="Folio Adicional" DataField="FolioAdicional" visible="false" />
<asp:BoundField HeaderText="Total" DataField="TotalRemision" DataFormatString="{0:###,###,###.00}" />
</Columns> </Columns>

18
Ventas/Ventas.aspx
View File

@@ -614,15 +614,29 @@
<b>Paciente:</b> <b>Paciente:</b>
</td> </td>
<td runat="server"> <td runat="server">
<asp:TextBox ID="TxtPaciente" runat="server" CssClass="make-switchsd" Style="width: 130px" MaxLength="50"></asp:TextBox> <asp:TextBox ID="TxtPaciente" runat="server" Style="width: 130px" MaxLength="50"></asp:TextBox>
</td> </td>
<td runat="server" id="Td9" visible="true"> <td runat="server" id="Td9" visible="true">
<b>Episodio:</b> <b>Episodio:</b>
</td> </td>
<td runat="server"> <td runat="server">
<asp:TextBox ID="TxtEpisodio" runat="server" CssClass="make-switchsd" Style="width: 130px" MaxLength="20"></asp:TextBox> <asp:TextBox ID="TxtEpisodio" runat="server" Style="width: 130px" MaxLength="20"></asp:TextBox>
</td> </td>
</tr> </tr>
<tr runat="server" id="TrVentasMedicas4" visible="false">
<td runat="server" id="Td8" >
<b>Folio Remisión:</b>
</td>
<td runat="server">
<asp:TextBox ID="TxtFolioRemision" runat="server" Style="width: 130px" MaxLength="20" Enabled="false"></asp:TextBox>
</td>
<td runat="server" id="Td10" >
</td>
<td runat="server">
</td>
</tr>
</table> </table>
</div> </div>
</div> </div>

5
Ventas/Ventas.aspx.vb
View File

@@ -6139,6 +6139,11 @@ Partial Class Ventas
End If End If
If DdlTipoDocto.SelectedValue.Contiene("Ing", "Rem") Then
TrVentasMedicas4.Visible = True
TxtFolioRemision.Text = DbRowVenta("Alfa1").ToString
End If
End If End If