This commit is contained in:
2024-04-13 09:05:20 -07:00
9 changed files with 82 additions and 31 deletions

View File

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

View File

@@ -2758,9 +2758,10 @@ Partial Class AF_AF
CaracClasif = ""
Dim ObjAFCaracteristicas As New ClsAF
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))
If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, CveEmpresaActual) Then
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")
If ObjAFCaracteristicas.GetCaracteristicasOpcionesSubTipo(-1, DdlSubTipoActivoFijo.SelectedValue.ToEntero, CveEmpresaActual) Then

View File

@@ -238,7 +238,7 @@
<tr>
<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:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</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>
<ajax:ValidatorCalloutExtender ID="VCOTiposActivosFijosCA" runat="server" HighlightCssClass="vco" TargetControlID="RFVTiposActivosFijosCA" Width="300px"></ajax:ValidatorCalloutExtender>--%>
@@ -298,9 +298,16 @@
</table>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatosCA" runat="server" UpdateMode="Conditional">
<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>
<asp:TemplateField>
<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>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Editar">
<asp:TemplateField HeaderText="Editar" ItemStyle-Width="70px">
<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>
<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>" />

View File

@@ -52,6 +52,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
'Carga Globals para DT
CargaTiposActivosFijos()
DdlTiposActivosFijosCA_SelectedIndexChanged(Nothing, Nothing)
''CargaCaracteristicasClasificaciones()
'CargaCaracteristicas()
End If
@@ -64,6 +65,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
DdlTiposActivosFijosCA.DataBind()
DdlTiposActivosFijosOpciones.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
DdlTiposActivosFijosOpciones.DataBind()
'DdlTiposActivosFijosCA.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
#Region "CLASIFICACIONES"
@@ -261,7 +263,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
End If
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(3).Width = Unit.Pixel(120) 'Caracteristica
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(9).Width = Unit.Pixel(75) 'FechaIng
e.Row.Cells(10).Width = Unit.Pixel(75) 'Usuario
e.Row.Cells(11).Width = Unit.Pixel(55) '
e.Row.Cells(12).Width = Unit.Pixel(61) '
e.Row.Cells(11).Width = Unit.Pixel(70) '
e.Row.Cells(12).Width = Unit.Pixel(55) '
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
@@ -285,10 +287,18 @@ Partial Class AF_CatClasificacionesCaracteristicas
'End If
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
e.Row.FCDropDownList("DdlTiposActivosFijosCA").DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
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("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").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo")
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")
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.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub

View File

@@ -434,7 +434,7 @@ Partial Class Bancos_PopIEVentas
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 = 2 Then

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">
<Columns>
<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%">
<ItemTemplate>

View File

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

View File

@@ -614,15 +614,29 @@
<b>Paciente:</b>
</td>
<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 runat="server" id="Td9" visible="true">
<b>Episodio:</b>
</td>
<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>
</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>
</div>
</div>

View File

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