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

Ventas Rep Productos servicios correcion grafica

Browse Source
This commit is contained in:
rakcsle
2022-06-30 10:26:36 -07:00
parent 2607b0c34f
commit 523085d3bb
5 changed files with 26 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/Compras.aspx.vb
View File

@@ -9436,8 +9436,6 @@ Partial Class Compras_Compras
End If
If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}"
End If

2
Compras/RepPagadoDetalle.aspx
View File

@@ -47,7 +47,7 @@
</asp:DropDownList>
</div>
<div class="col-md-1">Proveedor:</div>
<div class="col-md-2 ">
<div class="col-md-2 ">
<ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
</div>
<div class="col-md-1">Fecha Inicial:</div>

23
Compras/RepPagadoDetalle.aspx.cs
View File

@@ -89,7 +89,22 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
DdlProyecto.SelectedValueExist(Request["CveProyecto"] == null ? "-1" : Request["CveProyecto"].ToString());
DdlSubProyecto.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].ToString());
DdlProveedor.SelectedValueExist(Request["CveProveedor"] == null ? "-1" : Request["CveProveedor"].ToString());
if (Request["CveProveedor"] != null && Request["CveProveedor"].ToString().ToEntero() > 0)
{
DataRow DrowProveedor;
int CveProveedor = Request["CveProveedor"].ToString().ToEntero();
DrowProveedor = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor).Rows[0];
DdlProveedores.txtText.Value = DrowProveedor["RazonSocial"].ToString();
DdlProveedores.txtValue.Value = CveProveedor.ToString();
}
DdlUsuario.SelectedValueExist(Request["CveUsuario"] == null ? "-1" : Request["CveUsuario"].ToString());
DdlResponsable.SelectedValueExist(Request["CveResponsable"] == null ? "-1" : Request["CveResponsable"].ToString());
@@ -207,7 +222,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
private void CargaDatos()
{
ClsCompras ObjComp = new ClsCompras();
if (ObjComp.GetRepPagadoDetalle(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedor.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(),
if (ObjComp.GetRepPagadoDetalle(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedores.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(),
DdlSubProyecto.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero(),
DdlResponsable.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, DdlBanco.SelectedValue.ToEntero(), DdlCuentaBancaria.SelectedValue.ToEntero(),
DdlMoneda.SelectedValue.ToEntero(),ChkMesSeleccionado.Checked,GPO, TxtFechaICompra.Text.ToDate(), TxtFechaFCompra.Text.ToDate(), Tipo, CveTipoProveedor: DdlTipoProveedor.SelectedValue.ToEntero(),
@@ -263,8 +278,8 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
StrFiltro.AppendFormat("&emsp;<b>SubProyecto</b>: {0}", DdlSubProyecto.SelectedItem.Text);
if (DdlGrupo.SelectedValue != "-1")
StrFiltro.AppendFormat("&emsp;<b>Grupo</b>: {0}", DdlGrupo.SelectedItem.Text);
if (DdlProveedor.SelectedValue != "-1")
StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedor.SelectedItem.Text);
if (DdlProveedores.SelectedValue != "-1")
StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedores.txtText.Value);
if (DdlUsuario.SelectedValue != "-1")
StrFiltro.AppendFormat("&emsp;<b>Registro</b>: {0}", DdlUsuario.SelectedItem.Text);
if (DdlResponsable.SelectedValue != "-1")

6
Ventas/RepProductosServicios.aspx
View File

@@ -546,7 +546,7 @@
"title": "Ventas"
}],
"graphs": [{
"balloonText": "[[category]]: <b>[[value]]</b> [[Moneda]]",
"balloonText": "[[Texto]]: <b>[[value]]</b> [[Moneda]]",
"colorField": "Color",
"fillAlphas": 1,
"lineAlpha": 0.1,
@@ -560,7 +560,7 @@
"cursorAlpha": 0,
"zoomable": false
},
"categoryField": "Texto",
"categoryField": "Categoria",
"categoryAxis": {
"gridPosition": "start",
"labelRotation": 90
@@ -579,7 +579,7 @@
"dataProvider":
data,
"valueField": "Valor",
"titleField": "Texto",
"titleField": "Categoria",
"outlineAlpha": 0.4,
"depth3D": 0,
"balloonText": "[[title]]<br><span style='font-size:14px'><b>[[value]]</b> ([[percents]]% [[Moneda]])</span>",

6
Ventas/RepProductosServicios.aspx.vb
View File

@@ -686,7 +686,7 @@ Partial Class Ventas_RepProductosServicios
Row("Valor") = Dr("IVA").ToString.FormatoNumero
Case 4
Row("Valor") = Dr("Cantidad").ToString.FormatoNumero
Row("Texto") = $"{Dr("GPO").ToString} Cantidad"
Row("Texto") = $"{Dr("GPO").ToString}"
End Select
Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
@@ -699,10 +699,10 @@ Partial Class Ventas_RepProductosServicios
End If
Next
Dim query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
Dim query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString(), .Categoria = s("Texto").ToString()}
If DdlVer.SelectedValue.ToEntero = 4 Then
query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = ""}
query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString() & " Cantidad", .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = "", .Categoria = s("Texto").ToString()}
End If
Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)