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

18
Ventas/Ventas.aspx
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>

5
Ventas/Ventas.aspx.vb
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