AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2024-10-25 08:47:29 -07:00
parent c4b1b86110
commit 01dc1630ac
4 changed files with 958 additions and 928 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ventas/RepVentasDetalle.aspx
View File

@@ -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>

9
Ventas/RepVentasDetalle.aspx.vb
View File

@@ -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(43).Visible = ChkDescargarPDF.Checked
GvDatos.Columns(42).Visible = ChkGestionCobranzaTurno.Checked
GvDatos.Columns(43).Visible = ChkDescargarXML.Checked
GvDatos.Columns(44).Visible = ChkDescargarPDF.Checked
Personalizo = 1
If Personalizo = 1 Then

8
Ventas/Ventas.aspx
View File

@@ -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>

16
Ventas/Ventas.aspx.vb
View File

@@ -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