Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Ventas.aspx

@@ -8415,19 +8415,35 @@
                         </div>
 
 
-                        <%--Cliente--%>
+                        <%--Cliente Sucursales --%>
                         <div runat="server" visible="False" id="DvModalTipoVentaPasoCliente">
+                            <div class="row">
+                                <div class="form-group col-md-12 form-md-line-input input-iconright ">                                    
+                                    <asp:DropDownList ID="DdlClienteSucursal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="Clave" CausesValidation="true"
+                                        AutoPostBack="true" OnSelectedIndexChanged="DdlClienteSucursal_SelectedIndexChanged">                                        
+                                    </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RfvDdlClienteSucursal" runat="server" CssClass="" Display="None" InitialValue="-1"
+                                        ControlToValidate="DdlClienteSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hospital''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalVentaMedica"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VceRfvDdlClienteSucursal" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlClienteSucursal" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlClienteSucursal">Hospital:</asp:Label>
+                                </div>                                
+                            </div>
+                          </div>
+
+
+                        <%--Cliente--%>
+                     <%--   <div runat="server" visible="False" id="DvModalTipoVentaPasoClienteEliminar">
                             <div class="row">
                                 <div class="form-group col-md-12 form-md-line-input input-iconright ">
                                     <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlClientesWS">Hospital:</asp:Label>
                                     <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;" Onselectedindexchange="DdlClientesWS_selectedindexchange"></ADS:Dropdownlost>
                                 </div>
                             </div>
-                        </div>
+                        </div>--%>
 
 
                         <%--Sucursales--%>
-                          <div runat="server" visible="False" id="DvModalClientesucursal">
+                        <%--  <div runat="server" visible="False" id="DvModalClientesucursal">
                             <div class="row">
 
                                 <div class="form-group col-md-12 form-md-line-input input-iconright ">
@@ -8437,8 +8453,7 @@
                                     <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlSucursalClienteModal">Sucursal:</asp:Label>
                                 </div>                                
                             </div>
-
-                        </div>
+                          </div>--%>
                       
 
                         <%--Medico Procedimiento--%>
@@ -8511,11 +8526,6 @@
 
                             </div>
                         </div>
-
-
-
-
-
                     </div>
                     <div class="modal-footer">
                         <asp:LinkButton ID="LnkDvModalTipoVentaAceptar" ClientIDMode="Static" runat="server" CssClass="btn btn-primary" OnClick="LnkDvModalTipoVentaAceptar_Click" Text="Aceptar" Visible="false" ValidationGroup="GrpModalVentaMedica" />

Ventas/Ventas.aspx.vb

@@ -2553,8 +2553,7 @@ Partial Class Ventas
             If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                 CargaMedicos()
                 CargaProcedimientos()
-
-                CargaDdlClientes()
+                CargaDdlClientesSucursal()
             End If
 
 
@@ -3394,9 +3393,7 @@ Partial Class Ventas
                 CargaTiposVenta()
 
                 If CveCliente > 0 Then
-                    DdlClientesWS.txtValue.Value = CveCliente.ToString
-                    DdlClientesWS.txtText.Value = NombreCliente
-                    DdlClientesWS.SelectedValue = CveCliente.ToString
+                    SeleccionarClienteSucursal(CveCliente:=CveCliente)
                 End If
             End If
 
@@ -3425,6 +3422,8 @@ Partial Class Ventas
 
     End Sub
 
+
+
     Private Sub CargaListasPrecios()
         DivPrecioLista.Visible = True
 
@@ -7745,88 +7744,7 @@ Partial Class Ventas
         DdlClasificacion.DataBind()
     End Sub
 
-    Private Sub CargaTiposVenta()
 
-        RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
-        RBLTipoVenta.DataBind()
-        RBLTipoVenta.Items.Add(New ListItem("Otros", "5"))
-
-        TrVentasMedicas1.Visible = True
-        TrVentasMedicas2.Visible = True
-
-        For Each item As ListItem In RBLTipoVenta.Items
-            item.Text = $"&nbsp {item.Text}"
-        Next
-
-        RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
-    End Sub
-
-    Private Sub CargaProcedimientos()
-        DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
-        DdlProcedimiento.DataBind()
-
-        DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
-        DdlProcedimientoModal.DataBind()
-
-        DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
-        DdlProcedimientoObservaciones.DataBind()
-
-    End Sub
-
-    Private Sub CargaMedicos()
-        DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
-        DdlMedico.DataBind()
-
-        DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
-        DdlMedicoModal.DataBind()
-
-        DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
-        DdlMedicoObservaciones.DataBind()
-
-    End Sub
-
-    Private Sub CargaSucursalesModal(CveClienteSeleccionado As Integer)
-
-        DdlSucursalClienteModal.Items.Clear()
-        DdlSucursalClienteModal.ClearSelection()
-        DdlSucursalClienteModal.SelectedValue = Nothing
-
-        Dim ObjCliente As New ClsClientes
-        If ObjCliente.GetSucursales(CveClienteSeleccionado) Then
-            DdlSucursalClienteModal.DataSource = ObjCliente.DtResultados
-            If ObjCliente.DtResultados.Rows.Count > 0 Then
-                DvModalClientesucursal.Visible = True
-            Else
-                DvModalClientesucursal.Visible = False
-            End If
-        Else
-            DvModalClientesucursal.Visible = False
-            DdlSucursalClienteModal.DataSource = Nothing
-        End If
-        ObjCliente.Dispose()
-
-        DdlSucursalClienteModal.DataBind()
-        DdlSucursalClienteModal.Items.Insert(0, New ListItem("Matriz", "-1"))
-
-        UpDvModalTipoVenta.FindDataSourceControl
-
-    End Sub
-
-
-
-    Private Sub CargaDdlClientes()
-        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-            DdlClientesWS.setEsWebService(True)
-        Else
-            DdlClientesWS.setEsWebService(False)
-            If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-                DdlClientesWS.ddl.Items.Clear()
-                DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-                DdlClientesWS.DataBind()
-                DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-            End If
-        End If
-    End Sub
 
     Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost, Optional AplicaParaVenta As Boolean = True)
 
@@ -10771,11 +10689,7 @@ Partial Class Ventas
         ObjFacturaDevolucion.Fech2 = TxtFech2.Text.Trim.ToDate
         ObjFacturaDevolucion.Fech3 = TxtFech3.Text.Trim.ToDate
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
-            ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
-        Else
-            ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
-        End If
+
 
         ObjFacturaDevolucion.Alfa2 = TxtAlfa2.Text.Trim
         ObjFacturaDevolucion.Alfa3 = TxtAlfa3.Text.Trim
@@ -10803,6 +10717,13 @@ Partial Class Ventas
         ObjFacturaDevolucion.CveSucursalEjecucion = DdlSucursalEjecucion.SelectedValue.ToEntero()
         ObjFacturaDevolucion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero()
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
+            ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
+            ObjFacturaDevolucion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
+        Else
+            ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
+        End If
+
         ObjFacturaDevolucion.AtencionA = If(ObjFacturaDevolucion.TipoDocto = "Cot" Or (ObjFacturaDevolucion.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1")
         ObjFacturaDevolucion.MotivoDescuento = TxtMotivoDescuento.Text.Trim
         ObjFacturaDevolucion.Observaciones = TxtObsFact.Text.Trim
@@ -11053,12 +10974,6 @@ Partial Class Ventas
         ObjFacturaBonificacion.Fech2 = TxtFech2.Text.Trim.ToDate
         ObjFacturaBonificacion.Fech3 = TxtFech3.Text.Trim.ToDate
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
-            ObjFacturaBonificacion.Alfa1 = TxtFechaOS.Text.Trim
-        Else
-            ObjFacturaBonificacion.Alfa1 = TxtAlfa1.Text.Trim
-        End If
-
         ObjFacturaBonificacion.Alfa2 = TxtAlfa2.Text.Trim
         ObjFacturaBonificacion.Alfa3 = TxtAlfa3.Text.Trim
         ObjFacturaBonificacion.Num1 = TxtNum1.Text.Trim.ToDouble
@@ -11085,6 +11000,13 @@ Partial Class Ventas
         ObjFacturaBonificacion.CveSucursalEjecucion = DdlSucursalEjecucion.SelectedValue.ToEntero()
         ObjFacturaBonificacion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero()
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
+            ObjFacturaBonificacion.Alfa1 = TxtFechaOS.Text.Trim
+            ObjFacturaBonificacion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
+        Else
+            ObjFacturaBonificacion.Alfa1 = TxtAlfa1.Text.Trim
+        End If
+
         ObjFacturaBonificacion.AtencionA = If(ObjFacturaBonificacion.TipoDocto = "Cot" Or (ObjFacturaBonificacion.TipoDocto.Contiene("Ing", "Rem") AndAlso LblRFC.Text = "XAXX010101000"), TxtAtencionA.Text, "-1")
         ObjFacturaBonificacion.MotivoDescuento = TxtMotivoDescuento.Text.Trim
         ObjFacturaBonificacion.Observaciones = TxtObsFact.Text.Trim
@@ -11541,11 +11463,7 @@ Partial Class Ventas
         ObjFactura.Fech2 = TxtFech2.Text.Trim.ToDate
         ObjFactura.Fech3 = TxtFech3.Text.Trim.ToDate
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
-            ObjFactura.Alfa1 = TxtFechaOS.Text.Trim
-        Else
-            ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
-        End If
+
 
         ObjFactura.Alfa2 = TxtAlfa2.Text.Trim
         ObjFactura.Alfa3 = TxtAlfa3.Text.Trim
@@ -11609,6 +11527,13 @@ Partial Class Ventas
         ObjFactura.Det_ContraRecibo = TxtDet_ContraRecibo.Text.Trim
         ObjFactura.MonedaAbreviatura = ""
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
+            ObjFactura.Alfa1 = TxtFechaOS.Text.Trim
+            ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
+        Else
+            ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
+        End If
+
         'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS
         If (ObjFactura.CveMoneda = 2 AndAlso ObjFactura.ConvertirPesos = True AndAlso ObjFactura.TipodeComprobante = "Ingresos" AndAlso RemisionesLista.Count > 0) Then
             Dim TotalCalculableImpuestos, TotalCalculableImpuestosIVA As Decimal
@@ -12205,11 +12130,7 @@ Partial Class Ventas
         ObjFacturaDevolucion.Fech3 = TxtFech3.Text.Trim.ToDate
 
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
-            ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
-        Else
-            ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
-        End If
+
 
         ObjFacturaDevolucion.Alfa2 = TxtAlfa2.Text.Trim
         ObjFacturaDevolucion.Alfa3 = TxtAlfa3.Text.Trim
@@ -12247,6 +12168,13 @@ Partial Class Ventas
         ObjFacturaDevolucion.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim
         ObjFacturaDevolucion.MonedaAbreviatura = ""
 
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
+            ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
+            ObjFacturaDevolucion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
+        Else
+            ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
+        End If
+
         'Totales, Y se llena TmpDTImpuestos
         ObjFacturaDevolucion.SubTotal = TxtSubTotal.Text.ToDecimal
         ObjFacturaDevolucion.Descuento = LblDescuentos.Text.Trim.ToDecimal
@@ -36018,6 +35946,93 @@ Partial Class Ventas
 
 #Region "VENTAS MEDICAS"
 
+
+    Private Sub CargaTiposVenta()
+
+        RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
+        RBLTipoVenta.DataBind()
+        RBLTipoVenta.Items.Add(New ListItem("Otros", "5"))
+
+        TrVentasMedicas1.Visible = True
+        TrVentasMedicas2.Visible = True
+
+        For Each item As ListItem In RBLTipoVenta.Items
+            item.Text = $"&nbsp {item.Text}"
+        Next
+
+        RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
+    End Sub
+
+    Private Sub CargaProcedimientos()
+        DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlProcedimiento.DataBind()
+
+        DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlProcedimientoModal.DataBind()
+
+        DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
+        DdlProcedimientoObservaciones.DataBind()
+
+    End Sub
+
+    Private Sub CargaMedicos()
+        DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlMedico.DataBind()
+
+        DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
+        DdlMedicoModal.DataBind()
+
+        DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
+        DdlMedicoObservaciones.DataBind()
+
+    End Sub
+
+    'Private Sub CargaSucursalesModal(CveClienteSeleccionado As Integer)
+
+    '    DdlSucursalClienteModal.Items.Clear()
+    '    DdlSucursalClienteModal.ClearSelection()
+    '    DdlSucursalClienteModal.SelectedValue = Nothing
+
+    '    Dim ObjCliente As New ClsClientes
+    '    If ObjCliente.GetSucursales(CveClienteSeleccionado) Then
+    '        DdlSucursalClienteModal.DataSource = ObjCliente.DtResultados
+    '        If ObjCliente.DtResultados.Rows.Count > 0 Then
+    '            DvModalClientesucursal.Visible = True
+    '        Else
+    '            DvModalClientesucursal.Visible = False
+    '        End If
+    '    Else
+    '        DvModalClientesucursal.Visible = False
+    '        DdlSucursalClienteModal.DataSource = Nothing
+    '    End If
+    '    ObjCliente.Dispose()
+
+    '    DdlSucursalClienteModal.DataBind()
+    '    DdlSucursalClienteModal.Items.Insert(0, New ListItem("Matriz", "-1"))
+
+    '    UpDvModalTipoVenta.FindDataSourceControl
+
+    'End Sub
+
+
+
+    Private Sub CargaDdlClientesSucursal()
+
+        Dim objcliente As New ClsClientes
+
+        If objcliente.GetClienteSucursales(-1, UsuarioActual.CveEmpresa) Then
+            DdlClienteSucursal.DataSource = objcliente.DtResultados
+        Else
+            DdlClienteSucursal.DataSource = Nothing
+        End If
+
+        objcliente.Dispose()
+
+        DdlClienteSucursal.DataBind()
+        DdlClienteSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+    End Sub
+
     Protected Sub ChkRequiereTecnico_CheckedChanged(sender As Object, e As EventArgs)
         TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked
         UpCliente.Update()
@@ -36036,9 +36051,9 @@ Partial Class Ventas
             ChkRequiereTecnicoModal.Enabled = True
             DvModalRequiereOSFecha.Visible = True
 
-            If CveCliente > 0 Then
-                CargaSucursalesModal(CveCliente)
-            End If
+            'If CveCliente > 0 Then
+            '    CargaSucursalesModal(CveCliente)
+            'End If
 
             TxtFechaModal.Text = NowADS.AddHours(1).ToString("yyyy-MM-dd HH").Replace(" ", "T") + ":00" ' ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
 
@@ -36076,13 +36091,51 @@ Partial Class Ventas
         UpDvModalTipoVenta.Update()
     End Sub
 
-    Protected Sub DdlClientesWS_selectedindexchange(sender As Object, e As EventArgs)
-        CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
+    'Protected Sub DdlClientesWS_selectedindexchange(sender As Object, e As EventArgs)
 
-        CargaSucursalesModal(DdlClientesWS.SelectedValue.ToEntero)
+    '    CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
+    '    'CargaSucursalesModal(DdlClientesWS.SelectedValue.ToEntero)
 
+    'End Sub
+
+
+    Protected Sub DdlClienteSucursal_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim CveClienteSplit As Integer = -1
+        CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero)
     End Sub
 
+    Private Function DdlClienteSucursalCliente() As Integer
+        If DdlClienteSucursal.SelectedValue = "-1" Then
+            Return -1
+        Else
+            Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c)
+            Return If(array(0).ToEntero > 0, array(0).ToEntero, -1)
+        End If
+    End Function
+    Private Function DdlClienteSucursalSucursal() As Integer
+
+        If DdlClienteSucursal.SelectedValue = "-1" Then
+            Return -1
+        Else
+            Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c)
+            Return If(array(1).ToEntero > 0, array(1).ToEntero, -1)
+        End If
+
+    End Function
+
+    Private Sub SeleccionarClienteSucursal(CveCliente As Integer)
+
+        Dim IndexSeleccion As Integer = 0
+        For Each item As ListItem In DdlClienteSucursal.Items
+            Dim array As String() = item.Value.Split("|"c)
+            If CveCliente = array(0).ToEntero Then
+                DdlClienteSucursal.SelectedIndex = IndexSeleccion
+                Exit For
+            End If
+            IndexSeleccion = IndexSeleccion + 1
+        Next
+
+    End Sub
 
     Protected Sub ModalValidaMedicoProcedimiento()
 
@@ -36107,9 +36160,10 @@ Partial Class Ventas
 
         ChkRequiereTecnicoModal.Enabled = True
 
-        DdlClientesWS.txtText.Value = ""
-        DdlClientesWS.txtValue.Value = ""
-        DdlClientesWS.ddl.SelectedValueExist(-1)
+        'DdlClientesWS.txtText.Value = ""
+        'DdlClientesWS.txtValue.Value = ""
+        'DdlClientesWS.ddl.SelectedValueExist(-1)
+        DdlClienteSucursal.SelectedValueExist(-1)
 
         DvModalRequiereOSFecha.Visible = False
         ChkRequiereTecnicoModal.Checked = False
@@ -36130,8 +36184,8 @@ Partial Class Ventas
 
     Protected Sub LnkDvModalTipoVentaAceptar_Click(sender As Object, e As EventArgs)
 
-        If DdlClientesWS.SelectedValue.ToEntero > 0 Then
-            ViewState("CveCliente") = DdlClientesWS.SelectedValue.ToEntero
+        If DdlClienteSucursalCliente() > 0 Then
+            ViewState("CveCliente") = DdlClienteSucursalCliente()
         Else
             Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -36177,7 +36231,7 @@ Partial Class Ventas
 
         CargaCliente(CveCliente)
 
-        DdlSucursalCliente.SelectedValueExist(DdlSucursalClienteModal.SelectedValue)
+        DdlSucursalCliente.SelectedValueExist(DdlClienteSucursalSucursal)
 
         DdlTipoComprobante_SelectedIndexChanged(sender, Nothing)
 
@@ -36234,7 +36288,7 @@ Partial Class Ventas
     End Sub
 
     Protected Sub DdlProcedimientoModal_SelectedIndexChanged(sender As Object, e As EventArgs)
-        CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
+        CargaPSProcedimiento(DdlProcedimientoModal.SelectedValue.ToEntero, DdlClienteSucursalCliente, DdlSubProyectoDatos.SelectedValue.ToEntero)
     End Sub
 
     Private Sub CargaPSProcedimiento(CveProcedimiento As Integer, CveClienteL As Integer, CveSubProyectoL As Integer)
@@ -36351,5 +36405,8 @@ Partial Class Ventas
     Protected Sub BtnCargaAuxiliarConta_Click(sender As Object, e As EventArgs)
         CargarSaldoAuxiliar(CveCliente)
     End Sub
+
+
+
 End Class