-

2023-12-21 06:37:48 -07:00
parent a14b979586 0cca61ee6d
commit 15cb47b678
8 changed files with 191 additions and 79 deletions
--- a/Ventas/CatProcedimientoDetalle.aspx.vb
+++ b/Ventas/CatProcedimientoDetalle.aspx.vb
@@ -240,7 +240,7 @@ Partial Class Ventas_CatProcedimientoDetalle

        Dim objVenta As New ClsVentas

-        If objVenta.GetProcedimientoProducto(CveProcedimiento, -1, UsuarioActual.CveEmpresa) Then
+        If objVenta.GetProcedimientoProducto(CveProcedimiento, -1, UsuarioActual.CveEmpresa, -1, -1) Then
            GvProductos.DataSource = objVenta.DtResultados
        End If

--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -4098,7 +4098,7 @@
                            </tr>
                            <tr align="left" id="TrObsMedico2" visible="false" runat="server">
                                <td>
-                                     <asp:DropDownList ID="DdlMedicoObservaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Medico" DataValueField="CveMedico" >
+                                     <asp:DropDownList ID="DdlMedicoObservaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Medico" DataValueField="CveMedico"  Enabled="false" >
                                        <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
                                    </asp:DropDownList>
                                </td>
@@ -4110,8 +4110,7 @@
                            </tr>
                            <tr align="left" id="TrObsProcedimiento2" visible="false" runat="server">
                                <td>
-                                     <asp:DropDownList ID="DdlProcedimientoObservaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Procedimiento" DataValueField="CveProcedimiento"
-                                        OnSelectedIndexChanged="DdlProcedimientoModal_SelectedIndexChanged" AutoPostBack="true">
+                                     <asp:DropDownList ID="DdlProcedimientoObservaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Procedimiento" DataValueField="CveProcedimiento" Enabled="false" >
                                        <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
                                    </asp:DropDownList>
                                </td>
@@ -8422,7 +8421,7 @@
                            <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">Cliente:</asp:Label>
-                                    <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"  ></ADS:Dropdownlost>
+                                    <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>
@@ -8473,17 +8472,16 @@
                            <div class="col-md-12">
                                 Productos utilizados en el procedimiento
                                 <asp:GridView ID="GvProductosProcedimiento" runat="server" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" AutoGenerateColumns="False" Width="100%" 
-                                            DataKeyNames="CveProcedimientoProducto,CveProcedimiento,CvePS,CodigoPS,Autogenerado,Estatus,CveVenta,CveUnidadMedida,Abreviatura,CveClasificacion,Clasificacion" GridLines="None">
+                                            DataKeyNames="CveProcedimientoProducto,CveProcedimiento,Cantidad,CvePS,CodigoPS,Autogenerado,Estatus,CveVenta,CveUnidadMedida,Abreviatura,CveClasificacion,Clasificacion" GridLines="None">
                                            <Columns>
-                                                <asp:TemplateField  ItemStyle-HorizontalAlign="Center" ItemStyle-Width="20px">
-                                                    <ItemTemplate>
-                                                        <asp:CheckBox ID="Chk" runat="server" ></asp:CheckBox>
-                                                    </ItemTemplate>
-                                                </asp:TemplateField>
+                                             
+                                                 <asp:BoundField DataField="Cantidad" HeaderText="Cant." DataFormatString="{0:N3}" ItemStyle-Width="30px" >
+                                                    <ItemStyle HorizontalAlign="Right" />
+                                                </asp:BoundField>

-                                                <asp:TemplateField  ItemStyle-HorizontalAlign="Right" HeaderText="Cant." ItemStyle-Width="30px">
+                                                <asp:TemplateField  ItemStyle-HorizontalAlign="Right" HeaderText="Cant." ItemStyle-Width="40px">
                                                    <ItemTemplate>
-                                                        <asp:TextBox ID="TxtCantidad" runat="server" Text="0" Width="30px"></asp:TextBox>
+                                                        <asp:TextBox ID="TxtCantidad" runat="server" Text="0" Width="40px" style="text-align:right!important"></asp:TextBox>
                                                        <ajax:FilteredTextBoxExtender ID="FilTxtCantidad" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
                                                    </ItemTemplate>
                                                </asp:TemplateField>
@@ -8498,9 +8496,9 @@
                                                    <ItemStyle HorizontalAlign="Right" />
                                                </asp:BoundField> --%>        
                                                
-                                                <asp:TemplateField  ItemStyle-HorizontalAlign="Right" HeaderText="P.U." ItemStyle-Width="30px">
+                                                <asp:TemplateField  ItemStyle-HorizontalAlign="Right" HeaderText="P.U." ItemStyle-Width="50px">
                                                    <ItemTemplate>
-                                                        <asp:TextBox ID="TxtPrecio" runat="server" Text='<%# Eval("Precio") %>'  Width="30px"></asp:TextBox>
+                                                        <asp:TextBox ID="TxtPrecio" runat="server" Text='<%# Eval("Precio") %>'  Width="50px"></asp:TextBox>
                                                        <ajax:FilteredTextBoxExtender ID="FilTxtPrecio" runat="server" TargetControlID="TxtPrecio" FilterType="Custom, Numbers" ValidChars="." />
                                                    </ItemTemplate>
                                                </asp:TemplateField>
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -35976,36 +35976,12 @@ Partial Class Ventas
        UpDvModalTipoVenta.Update()
    End Sub

-    'Protected Sub DdlClientesWS_selectedindexchange(sender As Object, e As EventArgs)
-
-    '    If DdlClientesWS.SelectedValue.ToEntero > 0 Then
-
-    '        DvModalTipoVentaPasoCliente.Visible = False
-    '        DvModalTipoVentaPasoRequiereOS.Visible = True
+    Protected Sub DdlClientesWS_selectedindexchange(sender As Object, e As EventArgs)
+        CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
+    End Sub



-    '        'si es  A - Vista o ,Fuera De Linea requiere tecnico
-    '        If RBLTipoVenta.SelectedValue.ToEntero.Contiene(1, 3) Then
-    '            ChkRequiereTecnicoModal.Checked = True
-    '            ChkRequiereTecnicoModal.Enabled = False
-    '            DvModalRequiereOSFecha.Visible = True
-    '        End If
-
-    '    End If
-
-    '    UpDvModalTipoVenta.Update()
-
-    'End Sub
-
-    'Protected Sub DdlMedicoModal_SelectedIndexChanged(sender As Object, e As EventArgs)
-    '    ModalValidaMedicoProcedimiento()
-    'End Sub
-
-    'Protected Sub DdlProcedimientoModal_SelectedIndexChanged(sender As Object, e As EventArgs)
-    '    ModalValidaMedicoProcedimiento()
-    'End Sub
-
    Protected Sub ModalValidaMedicoProcedimiento()

        If DdlMedicoModal.SelectedValue.ToEntero > 0 AndAlso DdlProcedimientoModal.SelectedValue.ToEntero > 0 Then
@@ -36109,26 +36085,21 @@ Partial Class Ventas

        For Each GvRow As GridViewRow In GvProductosProcedimiento.Rows

-            Dim Chk As CheckBox = GvRow.FCCheckBox("Chk")
            Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal

-            If Chk.Checked AndAlso Cantidad > 0 Then
-
-
-                Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida").ToEntero
-                Dim Abreviatura As String = GvRow.DataKey("Abreviatura").ToString
-                Dim PU As Decimal = GvRow.FCTextBox("TxtPrecio").Text.ToDecimal
-                Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero
-                Dim Clasificacion As String = GvRow.DataKey("Clasificacion").ToString
-
-                Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
-
+            Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida").ToEntero
+            Dim Abreviatura As String = GvRow.DataKey("Abreviatura").ToString
+            Dim PU As Decimal = GvRow.FCTextBox("TxtPrecio").Text.ToDecimal
+            Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero
+            Dim Clasificacion As String = GvRow.DataKey("Clasificacion").ToString
+            Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero

+            If Cantidad > 0 Then
                If AgregarProductoServicio(Cantidad, CveUnidadMedida, Abreviatura, CveClasificacion, Clasificacion,
-                                CvePS, "", TxtObsPS.Text.TrimEnd, PU, 0,
-                                DdlProyecto.SelectedValue.ToEntero(), DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedItem.Text,
-                                Serie:=If(DIVCod.Visible, TxtCodigoSerie.Text.Trim, ""), TiempoEntrega:=TxtTiempoEntrega.Text, CuentaPredial:=TxtCuentaPredial.Text.Trim, RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=-1,
-                                ImporteProntoPago:=0, ObjDescuento:=Nothing, CvePrecioLista:=-1, PrecioLista:="", NumTurnos:=0) Then
+                            CvePS, "", TxtObsPS.Text.TrimEnd, PU, 0,
+                            DdlProyecto.SelectedValue.ToEntero(), DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedItem.Text,
+                            Serie:=If(DIVCod.Visible, TxtCodigoSerie.Text.Trim, ""), TiempoEntrega:=TxtTiempoEntrega.Text, CuentaPredial:=TxtCuentaPredial.Text.Trim, RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=-1,
+                            ImporteProntoPago:=0, ObjDescuento:=Nothing, CvePrecioLista:=-1, PrecioLista:="", NumTurnos:=0) Then
                    CountPsAgregados = CountPsAgregados + 1
                Else
                    Exit For
@@ -36153,12 +36124,14 @@ Partial Class Ventas
    End Sub

    Protected Sub DdlProcedimientoModal_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaPSProcedimiento(DdlProcedimiento.SelectedValue.ToEntero, DdlClientesWS.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedValue.ToEntero)
+    End Sub

-
+    Private Sub CargaPSProcedimiento(CveProcedimiento As Integer, CveClienteL As Integer, CveSubProyectoL As Integer)
        If DdlProcedimientoModal.SelectedValue.ToEntero > 0 Then
            Dim objVenta As New ClsVentas

-            If objVenta.GetProcedimientoProducto(DdlProcedimientoModal.SelectedValue.ToEntero, 1, UsuarioActual.CveEmpresa) Then
+            If objVenta.GetProcedimientoProducto(CveProcedimiento, 1, UsuarioActual.CveEmpresa, CveClienteL, CveSubProyectoL) Then
                GvProductosProcedimiento.DataSource = objVenta.DtResultados
            End If

@@ -36172,9 +36145,9 @@ Partial Class Ventas
        DVGvProductosProcedimiento.Visible = True

        UpDvModalTipoVenta.Update()
-
    End Sub

+
    Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String)) As Boolean


@@ -36268,10 +36241,5 @@ Partial Class Ventas
        RblRNCTipo_SelectedIndexChanged(RblRNCTipo, EventArgs.Empty)
        RegistraScript("$('#ModalAplicarNC').modal('show');", "ModalNC")
    End Sub
-
-    Protected Sub LnkTabContabilidad_Click(sender As Object, e As EventArgs)
-        Tab.ActiveTabIndex = 6
-        CargarSaldoAuxiliar(CveCliente)
-    End Sub
 End Class