-

2024-01-11 08:33:51 -07:00
parent fcdc349efb ce121c2686
commit 8c5e8b78a8
19 changed files with 141 additions and 189 deletions
--- a/Ventas/RepVentaDetalle.aspx
+++ b/Ventas/RepVentaDetalle.aspx
@@ -579,12 +579,18 @@
                            <asp:Literal ID="LtlKm" runat="server" Text='<%# Eval("Kilometraje") %>'></asp:Literal>
                        </ItemTemplate>
                    </asp:TemplateField>
-                    <%-- 39--%>
+                    <%-- 40--%>
                    <asp:TemplateField HeaderText="TC" Visible="false">
                        <ItemTemplate>
                            <asp:Literal ID="LtlTC" runat="server" Text='<%# Eval("TipoCambio") %>'></asp:Literal>
                        </ItemTemplate>
                    </asp:TemplateField>
+                     <%-- 41--%>
+                    <asp:TemplateField HeaderText="Descripción Venta" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlDescripcionVenta" runat="server" Text='<%# Eval("DescripcionVenta") %>'></asp:Literal>
+                        </ItemTemplate>
+                     </asp:TemplateField>

                </Columns>
            </asp:GridView>
@@ -732,6 +738,11 @@
                                        <td style="text-align: left;"> </td>                                   
                                        <td style="text-align: left;"><asp:CheckBox ID="ChkKilometraje" runat="server" Visible="False" Text="&nbsp; Kilometraje" /></td>                           
                                    </tr>
+                                    <tr>
+                                        <td style="text-align: left;"></td>
+                                        <td style="text-align: left;"> </td>                                   
+                                        <td style="text-align: left;"><asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text="&nbsp; Descripción Venta" /></td>                           
+                                    </tr>
 
                                </tbody>
                            </table> 
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -705,6 +705,8 @@ Partial Class RepVentaDetalle

        If ChkTC.Checked Then ListPersonalizada.Add("TC")

+        If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta")
+
        If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then
            'Alert("Personalizacion guardada")
        End If
@@ -889,6 +891,9 @@ Partial Class RepVentaDetalle
                    Case "Kilometraje"
                        ChkKilometraje.Checked = True
                        Exit Select
+                    Case "DescripcionVenta"
+                        ChkDescripcionVenta.Checked = True
+                        Exit Select
                    Case Else
                        Exit Select
                End Select
@@ -947,6 +952,8 @@ Partial Class RepVentaDetalle
        GvDatos.Columns(38).Visible = ChkUsoCFDI.Checked
        GvDatos.Columns(39).Visible = ChkKilometraje.Checked
        GvDatos.Columns(40).Visible = ChkTC.Checked
+        GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked
+

        Personalizo = 1
        If Personalizo = 1 Then
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2678,8 +2678,7 @@ Partial Class Ventas
                Using ObjVentas As New ClsCGame()

                    If ObjVentas.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then
-                        'DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString())
-                        DdlSubProyectoDatos.SelectedValueExist("12629")
+                        DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString())
                    End If

                    If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then
@@ -10129,6 +10128,12 @@ Partial Class Ventas

                                If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then

+                                End If
+                            End If
+                            If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then
+
+                                If ObjVentas.CGame_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveManifiesto").ToEntero()) Then
+
                                End If
                            End If
                        Catch ex As Exception
@@ -13184,6 +13189,23 @@ Partial Class Ventas
        Dim DescripcionVenta As String = ""
        If TxtDescripcionVenta.Text <> "" Then DescripcionVenta = TxtDescripcionVenta.Text

+
+        Dim CveMedico As Integer = -1
+        Dim CveProcedimiento As Integer = -1
+
+        If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
+            If SeEstaFActurandoVentaMedica Then
+                CveMedico = DdlMedicoObservaciones.SelectedValue.ToEntero
+                CveProcedimiento = DdlProcedimientoObservaciones.SelectedValue.ToEntero
+            Else
+                CveMedico = DdlMedico.SelectedValue.ToEntero
+                CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero
+            End If
+        End If
+
+
+
+
        If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
                           factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
                           factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,
@@ -13201,7 +13223,7 @@ Partial Class Ventas
                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text,
                           FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible,
                           CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero(), DescripcionVenta:=DescripcionVenta,
-                           CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, RequiereOS:=ChkRequiereTecnico.Checked) Then
+                           CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, RequiereOS:=ChkRequiereTecnico.Checked) Then
            ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
        Else
            If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then
@@ -32173,6 +32195,8 @@ Partial Class Ventas
    End Function
    Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String)

+
+
        If DdlVendedor.SelectedValue.ToEntero() <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso TipoDoctoNuevo = "Ing" Then
            Alert("Debe seleccionar un vendedor.", TipoMensaje.MsgAdvertencia)
            Exit Sub
@@ -32206,6 +32230,9 @@ Partial Class Ventas

        End If

+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Rem" AndAlso TipoDoctoNuevo = "Ing" Then
+            SeEstaFActurandoVentaMedica = True
+        End If

        If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And RBLPago.SelectedValue.ToEntero() = 2 Then
            Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia)
@@ -33649,6 +33676,11 @@ Partial Class Ventas
            DdlUsoCFDI.Enabled = True
        End If

+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            DdlMedicoObservaciones.Enabled = True
+            DdlProcedimientoObservaciones.Enabled = True
+        End If
+
        If UsuarioActual.TienePermisoProceso(289) Then
            If LblSeTimbro.Text = "No" Then
                DdlUsoCFDI.Enabled = False
@@ -33687,8 +33719,12 @@ Partial Class Ventas
        Dim ObjVentas As New ClsVentas()
        ObjVentas.IniciaTransacSQL()

+        DdlMedicoObservaciones.Enabled = True
+        DdlProcedimientoObservaciones.Enabled = True
+
        If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
-                                              TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim) Then
+                                                TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim,
+                                                CveMedico:=DdlMedicoObservaciones.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimientoObservaciones.SelectedValue.ToEntero) Then
            TieneError = True
        End If

@@ -35024,6 +35060,20 @@ Partial Class Ventas
    End Property


+    Property SeEstaFActurandoVentaMedica As Boolean
+        Get
+            If ViewState("SeEstaFActurandoVentaMedica") Is Nothing Then
+                ViewState("SeEstaFActurandoVentaMedica") = False
+            End If
+
+            Return Boolean.Parse(ViewState("SeEstaFActurandoVentaMedica").ToString)
+
+        End Get
+        Set(value As Boolean)
+            ViewState("SeEstaFActurandoVentaMedica") = value
+        End Set
+    End Property
+