SMS - 2024.01.25 Ventas agregar Medico y procedimiento en modal

Ventas/Ventas.aspx.vb

@@ -36120,7 +36120,7 @@ Partial Class Ventas
         RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
     End Sub
 
-    Private Sub CargaProcedimientos()
+    Private Sub CargaProcedimientos(Optional CveProcedimientSeleccion As Integer = -1)
         DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlProcedimiento.DataBind()
 
@@ -36128,17 +36128,35 @@ Partial Class Ventas
         DdlProcedimientoModal.DataBind()
 
 
+        If CveProcedimientSeleccion > 0 Then
+            DdlProcedimientoModal.SelectedValueExist(CveProcedimientSeleccion)
+        End If
+
+        UpDvModalTipoVenta.Update()
+        UpCliente.Update()
 
     End Sub
 
-    Private Sub CargaMedicos()
+    Private Sub CargaMedicos(Optional CveMedicoSeleccion As Integer = -1)
+
+        DdlMedico.ClearSelection()
+        DdlMedico.SelectedValue = Nothing
+
+        DdlMedicoModal.ClearSelection()
+        DdlMedicoModal.SelectedValue = Nothing
+
         DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlMedico.DataBind()
 
         DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlMedicoModal.DataBind()
 
+        If CveMedicoSeleccion > 0 Then
+            DdlMedicoModal.SelectedValueExist(CveMedicoSeleccion)
+        End If
 
+        UpDvModalTipoVenta.Update()
+        UpCliente.Update()
 
     End Sub
 
@@ -36576,6 +36594,36 @@ Partial Class Ventas
 
     End Function
 
+
+    Protected Sub LnkAddMedicoModal_Click(sender As Object, e As EventArgs)
+        'iFrameAddMedicoProcedimiento.Attributes.Add("src", "/Ventas/CatMedicos.aspx?EsFrame=1")
+        AddMedicoControl.CveMedico = -1
+        AddMedicoControl.LimpiarControles()
+        UpModalAddMedico.Update()
+
+        RegistraScript("$('#DvModalAddMedico').modal();")
+    End Sub
+
+    Protected Sub LnkAddProcedimientoModal_Click(sender As Object, e As EventArgs)
+        'iFrameAddMedicoProcedimiento.Attributes.Add("src", "/Ventas/CatProcedimientoDetalle.aspx?CveProcedimiento=-1")
+
+        AddProcedimientoControl.CveProcedimiento = -1
+        AddProcedimientoControl.LimpiarControles()
+        UpModalAddProcedimiento.Update()
+        RegistraScript("$('#DvModalAddProcedimiento').modal();")
+
+    End Sub
+
+    Protected Sub BtnRecargaMedicos_Click(sender As Object, e As EventArgs)
+
+        CargaMedicos(HdnCveMedicoNuevo.Value.ToEntero)
+
+    End Sub
+
+    Protected Sub BtnRecargaProcedimientos_Click(sender As Object, e As EventArgs)
+        CargaProcedimientos(HdnCveProcedimientoNuevo.Value.ToEntero)
+    End Sub
+
 #End Region
 
     'Protected Sub LnkCancelarSoloCFDI_Click(sender As Object, e As EventArgs)
@@ -36655,5 +36703,10 @@ Partial Class Ventas
     Protected Sub TxtFechaAnticipoCliente_TextChanged(sender As Object, e As EventArgs)
         CargaAnticipos(CveCliente)
     End Sub
+
+
+
+
+
 End Class