SMS - 2024.01.25

2024-01-26 18:05:09 -07:00
parent 299a3a0331
commit 692b148452
6 changed files with 139 additions and 139 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -36108,6 +36108,8 @@ Partial Class Ventas
                Dim dRow As DataRow = objVenta.DtResultados.Rows(0)
                DdlMedico.SelectedValueExist(dRow("CveMedico").ToString.ToEntero)
                DdlProcedimiento.SelectedValueExist(dRow("CveProcedimiento").ToString.ToEntero)
+                TxtPaciente.Text = dRow("Paciente").ToString
+                TxtEpisodio.Text = dRow("Episodio").ToString
                SeEstaFActurandoVentaMedica = True
                CveTipoVenta = dRow("CveTipoVenta").ToString.ToEntero
                ChkRequiereTecnico_CheckedChanged(Nothing, Nothing)