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 End If
If tipoCambio > 1 Then Concepto += $" TC{tipoCambio} ${ImporteMovimiento.FormatoNumero(2)}"
End If End If

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()); DdlProyecto.SelectedValueExist(Request["CveProyecto"] == null ? "-1" : Request["CveProyecto"].ToString());
DdlSubProyecto.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].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()); DdlUsuario.SelectedValueExist(Request["CveUsuario"] == null ? "-1" : Request["CveUsuario"].ToString());
DdlResponsable.SelectedValueExist(Request["CveResponsable"] == null ? "-1" : Request["CveResponsable"].ToString()); DdlResponsable.SelectedValueExist(Request["CveResponsable"] == null ? "-1" : Request["CveResponsable"].ToString());
@@ -207,7 +222,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
private void CargaDatos() private void CargaDatos()
{ {
ClsCompras ObjComp = new ClsCompras(); 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(), DdlSubProyecto.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero(),
DdlResponsable.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, DdlBanco.SelectedValue.ToEntero(), DdlCuentaBancaria.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(), 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); StrFiltro.AppendFormat("&emsp;<b>SubProyecto</b>: {0}", DdlSubProyecto.SelectedItem.Text);
if (DdlGrupo.SelectedValue != "-1") if (DdlGrupo.SelectedValue != "-1")
StrFiltro.AppendFormat("&emsp;<b>Grupo</b>: {0}", DdlGrupo.SelectedItem.Text); StrFiltro.AppendFormat("&emsp;<b>Grupo</b>: {0}", DdlGrupo.SelectedItem.Text);
if (DdlProveedor.SelectedValue != "-1") if (DdlProveedores.SelectedValue != "-1")
StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedor.SelectedItem.Text); StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedores.txtText.Value);
if (DdlUsuario.SelectedValue != "-1") if (DdlUsuario.SelectedValue != "-1")
StrFiltro.AppendFormat("&emsp;<b>Registro</b>: {0}", DdlUsuario.SelectedItem.Text); StrFiltro.AppendFormat("&emsp;<b>Registro</b>: {0}", DdlUsuario.SelectedItem.Text);
if (DdlResponsable.SelectedValue != "-1") if (DdlResponsable.SelectedValue != "-1")

6
Ventas/RepProductosServicios.aspx
View File

@@ -546,7 +546,7 @@
"title": "Ventas" "title": "Ventas"
}], }],
"graphs": [{ "graphs": [{
"balloonText": "[[category]]: <b>[[value]]</b> [[Moneda]]", "balloonText": "[[Texto]]: <b>[[value]]</b> [[Moneda]]",
"colorField": "Color", "colorField": "Color",
"fillAlphas": 1, "fillAlphas": 1,
"lineAlpha": 0.1, "lineAlpha": 0.1,
@@ -560,7 +560,7 @@
"cursorAlpha": 0, "cursorAlpha": 0,
"zoomable": false "zoomable": false
}, },
"categoryField": "Texto", "categoryField": "Categoria",
"categoryAxis": { "categoryAxis": {
"gridPosition": "start", "gridPosition": "start",
"labelRotation": 90 "labelRotation": 90
@@ -579,7 +579,7 @@
"dataProvider": "dataProvider":
data, data,
"valueField": "Valor", "valueField": "Valor",
"titleField": "Texto", "titleField": "Categoria",
"outlineAlpha": 0.4, "outlineAlpha": 0.4,
"depth3D": 0, "depth3D": 0,
"balloonText": "[[title]]<br><span style='font-size:14px'><b>[[value]]</b> ([[percents]]% [[Moneda]])</span>", "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 Row("Valor") = Dr("IVA").ToString.FormatoNumero
Case 4 Case 4
Row("Valor") = Dr("Cantidad").ToString.FormatoNumero Row("Valor") = Dr("Cantidad").ToString.FormatoNumero
Row("Texto") = $"{Dr("GPO").ToString} Cantidad" Row("Texto") = $"{Dr("GPO").ToString}"
End Select End Select
Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
@@ -699,10 +699,10 @@ Partial Class Ventas_RepProductosServicios
End If End If
Next 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 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 End If
Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query) Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)