-- actualización

2024-01-10 06:35:07 -07:00
parent 44658d2b92
commit 3b99b6ec61
3 changed files with 29 additions and 34 deletions
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -446,16 +446,14 @@
                                    :</b></td>
                                <td align="left">
                                    <div class="row align-items-start">
-                                        <div class="col-md-10">
-                                            <asp:DropDownList ID="DdlSucursalCliente" runat="server" AutoPostBack="true" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalCliente" DataValueField="CveClienteSucursal">
+                                        <div class="col-md-12">
+                                            <asp:DropDownList ID="DdlSucursalCliente" runat="server" Width="100%" AutoPostBack="true" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalCliente" DataValueField="CveClienteSucursal">
                                            </asp:DropDownList>
-                                        </div>
-                                        <div class="col-md-2" style="padding: inherit;">
-                                            <asp:LinkButton ID="LnkAgregarSucursal" Visible="false" runat="server" CssClass="btn btn-primary btn-circle btn-xs" Text="<i class='fa fa-plus' aria-hidden='true'></i>" OnClick="LnkAgregarSucursal_Click"></asp:LinkButton>
-                                        </div>
+                                        </div>                                         
                                    </div>
                                </td>
                                <td align="left">
+                                    <asp:LinkButton ID="LnkAgregarSucursal" Visible="false" runat="server" CssClass="btn btn-primary btn-circle btn-xs" Text="<i class='fa fa-plus' aria-hidden='true'></i>" OnClick="LnkAgregarSucursal_Click"></asp:LinkButton>
                                    <b>
                                        <asp:Label ID="LtlTitleRFCSucursal" runat="server" Text=""></asp:Label></b>
                                </td>
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3392,7 +3392,7 @@ Partial Class Ventas
                End If
            End If

-            If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                If CveVenta <= 0 Then
                    EsVentaMedica = True
                    CargaTiposVenta()
@@ -21680,6 +21680,7 @@ Partial Class Ventas
        BtnEditarRemision.Visible = True
        BtnPermisoEditarRemision.Visible = False
        BtnCrearApartirDe.Visible = False
+        DdlSucursalCliente.Enabled = True
        TxtObsFact.Enabled = True
        TxtOrdenCompra.Enabled = True
        TxtPedidoContrato.Enabled = True
@@ -21690,7 +21691,6 @@ Partial Class Ventas
        UPCondicionesPago.Update()
        If Me.PermiteCredito Then RBLPago.Enabled = True
        DdlVendedor.Enabled = True
-
        ModalidadEdicion = True

        ViewState("CveClienteAnterior") = CveCliente
@@ -21745,7 +21745,6 @@ Partial Class Ventas
            TxtPrecio.Enabled = True
        End If

-
        LbAgregar.Enabled = True
        ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal();  $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2';  $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';")
        LblSubTotal1.Text = TxtSubTotal.Text
@@ -21772,8 +21771,9 @@ Partial Class Ventas
        Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL())

        Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero()
-        Dim TipoCambio As Double = TxtTipoCambio.Text.ToDouble
+        Dim TipoCambio As Decimal = TxtTipoCambio.Text.ToDecimal
        EditoRemision = True
+        CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero
        Try
            'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS
            If DdlMoneda.SelectedValue.ToEntero() <> 2 AndAlso ChkConvertirDolares.Checked Then
@@ -21850,11 +21850,11 @@ Partial Class Ventas

            'Actualizo los parametros de la venta
            If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtIEPS.Text.ToDecimal, TxtTotal.Text.ToDecimal, Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
-                                          UsuarioActual.CveEmpresa, CveVenta, 0, 0,
+                                          UsuarioActual.CveEmpresa, CveVenta,
                                          Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                          PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(),
-                                          CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
-                                          OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(),
+                                          CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
+                                          OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(),
                                          CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedicoObservaciones.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimientoObservaciones.SelectedValue.ToEntero) Then
                OcurrioError = True
            End If
@@ -30290,7 +30290,7 @@ Partial Class Ventas
        End If

        Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero()
-        Dim TipoCambio As Double = TxtTipoCambio.Text.Trim.ToDecimal
+        Dim TipoCambio As Decimal = TxtTipoCambio.Text.Trim.ToDecimal
        If DdlMoneda.SelectedValue.ToEntero() <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then
            TipoCambio = 1
            Moneda = 1
@@ -30377,15 +30377,14 @@ Partial Class Ventas
                Moneda = 1
            End If

-
            'ACTUALIZA VENTA
-            If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDouble(), LblDescuentos.Text.ToDouble(), TxtIVA.Text.ToDouble(), TxtIEPS.Text.ToDouble(), TxtTotal.Text.ToDouble(),
+            If Not ObjVentas.UpdateVentas(TxtSubTotal.Text.ToDecimal, LblDescuentos.Text.ToDecimal(), TxtIVA.Text.ToDecimal(), TxtIEPS.Text.ToDecimal(), TxtTotal.Text.ToDecimal(),
                                  Moneda, TipoCambio, TxtFecha.Text.Trim.ToDate, TxtObsFact.Text.Trim,
-                                  UsuarioActual.CveEmpresa, CveVenta, 0, 0,
+                                  UsuarioActual.CveEmpresa, CveVenta,
                                  Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                  PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(),
                                  CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal,
-                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero()) Then
+                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero()) Then
                MensajeError = "Ocurrió un error al actualizar la información de la cotización"
                OcurrioError = True
            End If