--- BDH - poder especificar CobranzaEstatusTurno, y personalziar en vntas detalle

Ventas/RepVentasDetalle.aspx

@@ -607,6 +607,11 @@
                             <asp:Literal ID="LtlDescripcionVenta" runat="server" Text='<%# Eval("DescripcionVenta") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                     <asp:TemplateField HeaderText="Cobranza" Visible="false">
+                         <ItemTemplate>
+                             <asp:Literal ID="LtlCobranza" runat="server" Text='<%# Eval("CobranzaEstatusTurno") %>'></asp:Literal>
+                         </ItemTemplate>
+                     </asp:TemplateField>
                     <%-- 42--%>
                     <asp:TemplateField HeaderText="Descargar XML" Visible="false">
                         <ItemTemplate>
@@ -809,7 +814,7 @@
                                             <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;"><asp:CheckBox ID="ChkGestionCobranzaTurno" runat="server" Visible="true" Text="&nbsp; Cobranza" /></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>

Ventas/RepVentasDetalle.aspx.vb

@@ -749,6 +749,7 @@ Partial Class RepVentasDetalle
         If ChkTC.Checked Then ListPersonalizada.Add("TC")
 
         If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta")
+        If ChkGestionCobranzaTurno.Checked Then ListPersonalizada.Add("CobranzaEstatusTurno")
 
         If ChkDescargarPDF.Checked Then ListPersonalizada.Add("PDF")
 
@@ -944,6 +945,9 @@ Partial Class RepVentasDetalle
                     Case "DescripcionVenta"
                         ChkDescripcionVenta.Checked = True
                         Exit Select
+                    Case "CobranzaEstatusTurno"
+                        ChkGestionCobranzaTurno.Checked = True
+                        Exit Select
                     Case "XML"
                         ChkDescargarXML.Checked = True
                         Exit Select
@@ -1009,8 +1013,9 @@ Partial Class RepVentasDetalle
         GvDatos.Columns(39).Visible = ChkKilometraje.Checked
         GvDatos.Columns(40).Visible = ChkTC.Checked
         GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked
-        GvDatos.Columns(42).Visible = ChkDescargarXML.Checked
+        GvDatos.Columns(42).Visible = ChkGestionCobranzaTurno.Checked
-        GvDatos.Columns(43).Visible = ChkDescargarPDF.Checked
+        GvDatos.Columns(43).Visible = ChkDescargarXML.Checked
+        GvDatos.Columns(44).Visible = ChkDescargarPDF.Checked
 
         Personalizo = 1
         If Personalizo = 1 Then

Ventas/Ventas.aspx

@@ -3895,6 +3895,14 @@
                                         </asp:DropDownList>
                                     </td>
                                 </tr>
+                                <tr id="TrGestionCobranza" runat="server" visible="false">
+                                    <td align="left">Cobranza:</td>
+                                    <td align="left">
+                                        <asp:DropDownList ID="DdlGestionCobranza" DataValueField="CveCobranzaEstatusTurno" DataTextField="CobranzaEstatusTurno" CssClass=" form-control input-sm select2me" runat="server" Width="200px">
+                                            <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </td>
+                                </tr>
 
                                 <div runat="server" id="Tr33" visible="true">
                                     <tr>

Ventas/Ventas.aspx.vb

@@ -2577,6 +2577,9 @@ Partial Class Ventas
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveUsuario = 100 Then DivPenalizacion.Visible = True
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                CargaGestionCobranza()
+            End If
 
             If UsuarioActual.Empresa.Funcionalidad(595) = "2" Then
                     LnkSolicitarCredito.Visible = True
@@ -5084,6 +5087,9 @@ Partial Class Ventas
                         Me.CveLineaAdicionalVenta = DbRowVenta("CveLineaAdicional").ToString().ToEntero()
                     End If
                     TxtDescripcionVenta.Text = DbRowVenta("DescripcionVenta").ToString()
+                    If DbRowVenta("CveCobranzaEstatusTurno").ToString() <> "" Then
+                        DdlGestionCobranza.SelectedValueExist(DbRowVenta("CveCobranzaEstatusTurno").ToString())
+                    End If
 
                     'CargaEncabezado
                     If Not (CveRemision > 0 Or CveCotizacion > 0) Then
@@ -6655,10 +6661,16 @@ Partial Class Ventas
         DdlFormaEntrega.DataBind()
         DdlFormaEntrega.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
+
+    Private Sub CargaGestionCobranza()
+        TrGestionCobranza.Visible = True
+        DdlGestionCobranza.DataSource = GlobalDTVtaCobranzaTurnos(UsuarioActual.CveEmpresa)
+        DdlGestionCobranza.DataBind()
+        DdlGestionCobranza.Items.Insert(0, New ListItem("-", "-1"))
+    End Sub
     Private Sub CargaMonedas()
         DdlMoneda.DataSource = GlobalDTMonedas
         DdlMoneda.DataBind()
-
     End Sub
     Private Sub CargaProyecto()
         Dim CveSubProyecto As Integer = 0
@@ -14337,7 +14349,7 @@ Partial Class Ventas
                            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:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=CveTipoVentaGuardar, RequiereOS:=ChkRequiereTecnico.Checked, FechaParaSurtir:=factura.FechaParaSurtir,
-                           Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveMotivoDevolucion:=CveMotivoDevolucion, Addenda:=factura.Addenda) Then
+                           Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveMotivoDevolucion:=CveMotivoDevolucion, CveCobranzaEstatusTurno:=DdlGestionCobranza.SelectedValue.ToEntero, Addenda:=factura.Addenda) 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