Histórico da Página

IMPORTANTE:

Xxxxx

TEMP-TABLE tt-points

Atributo

Tipo

Formato

Valor Inicial

NumPoint

Integer

NumGraph

Integer

1

LabelText

Character

“”

TEMP-TABLE tt-sets

Atributo

Tipo

Formato

Valor Inicial

NumSet

Integer

NumGraph

Integer

1

LegendText

Character

ColorSet

Integer

TEMP-TABLE tt-dados

Atributo

Tipo

Formato

Valor Inicial

NumGraph

Integer

1

NumPoint

Integer

NumSet

Integer

GraphData

Decimal

0

TEMP-TABLE tt-ylabels

Atributo

Tipo

Formato

Valor Inicial

NumYlabel

Integer

YlabelText

Character

Execução

Run utp/utapi001.p

   (Input  table tt-atributos,
    Input  table tt-points,
    Input  table tt-sets,
    Input  table tt-dados,
    Input  table tt-ylabels,
    Output table tt-erros).

O programa irá verificar se o programa chamador está íntegro com a API, e isto ocorre através da verificação da versão de integração passada como parâmetro.

{utp/utapi011.i}

/*IF  OPSYS = "MSDOS" THEN DO:*/
IF  OPSYS = "WIN32" THEN DO:
    Create tt-atributos.
    Assign tt-atributos.cod-versao-integracao = 3
           tt-atributos.graphtype             = 7
           tt-atributos.graphtitle            = 'Gráfico 1.'
           tt-atributos.lefttitle             = 'Valores 1.'
           tt-atributos.lefttitlestyle        = 1 
           tt-atributos.bottomtitle           = 'Faixas 1.'
           tt-atributos.numgraph              = 1.

    Create tt-atributos.
    Assign tt-atributos.cod-versao-integracao = 3
           tt-atributos.graphtype             = 7
           tt-atributos.graphtitle            = 'Gráfico 2.'
           tt-atributos.lefttitle             = 'Valores 2.'
           tt-atributos.lefttitlestyle        = 1 
           tt-atributos.bottomtitle           = 'Faixas 2.'
           tt-atributos.numgraph              = 2.   

    Create tt-sets.
    Assign tt-sets.NumSet   = 1
           tt-sets.NumGraph = 1
           tt-sets.ColorSet = 11
           tt-sets.legendText = "SET 1".  

    Create tt-sets.
    Assign tt-sets.NumSet   = 2
           tt-sets.NumGraph = 1
           tt-sets.ColorSet = 12
           tt-sets.legendText = "SET 2".

    create tt-points.
    assign tt-points.NumPoint  = 1
           tt-points.NumGraph  = 1
           tt-points.labeltext = "Point 1".
    create tt-points.

    assign tt-points.NumPoint  = 2
           tt-points.NumGraph  = 1
           tt-points.labeltext = "Point 2".

    Create tt-dados.
    Assign tt-dados.NumPoint   = 1
           tt-dados.NumSet     = 1
           tt-dados.NumGraph   = 1
           tt-dados.graphdata  = 1000.

    Create tt-dados.
    Assign tt-dados.NumPoint   = 2
           tt-dados.NumSet     = 1
           tt-dados.NumGraph   = 1
           tt-dados.graphdata  = 2000.

    Create tt-dados.
    Assign tt-dados.NumPoint   = 1
           tt-dados.NumSet     = 2
           tt-dados.NumGraph   = 1
           tt-dados.graphdata  = 1500.

    Create tt-dados.
    Assign tt-dados.NumPoint   = 2
           tt-dados.NumSet     = 2
           tt-dados.NumGraph   = 1
           tt-dados.graphdata  = 2250.

    /*Segundo Gráfico*/
    Create tt-sets.
    Assign tt-sets.NumSet   = 3
           tt-sets.NumGraph = 2
           tt-sets.ColorSet = 11
           tt-sets.legendText = "SET 3". 

    Create tt-sets.
    Assign tt-sets.NumSet   = 4
           tt-sets.NumGraph = 2
           tt-sets.ColorSet = 12
           tt-sets.legendText = "SET 4".

    create tt-points.
    assign tt-points.NumPoint  = 1
           tt-points.NumGraph  = 2
           tt-points.labeltext = "Point 4".

    create tt-points.
    assign tt-points.NumPoint  = 2
           tt-points.NumGraph  = 2
           tt-points.labeltext = "Point 5".   

    Create tt-dados.
    Assign tt-dados.NumPoint   = 1
           tt-dados.NumSet     = 3
           tt-dados.NumGraph   = 2
           tt-dados.graphdata  = 3000.

    Create tt-dados.
    Assign tt-dados.NumPoint   = 2
           tt-dados.NumSet     = 3
           tt-dados.NumGraph   = 2
           tt-dados.graphdata  = 2000.   

    Create tt-dados.
    Assign tt-dados.NumPoint   = 1
           tt-dados.NumSet     = 4
           tt-dados.NumGraph   = 2
           tt-dados.graphdata  = 500.

    Create tt-dados.
    Assign tt-dados.NumPoint   = 2
           tt-dados.NumSet     = 4
           tt-dados.NumGraph   = 2
           tt-dados.graphdata  = 250.   

Run utp/utapi001.p (  INPUT  table tt-atributos,
                      input  table tt-points,
                      input  table tt-sets,
                      input  table tt-dados,
                      input  table tt-ylabels,
                      output table tt-erros).

End.

if return-value = "NOK" then do:
    for each tt-erros:
        disp cod-erro desc-erro FORMAT "x(100)" with 1 col width 500.
    end.
end.           

Parâmetros de Saída

No retorno da execução do utp/utapi001.p, será retornado um dos valores abaixo (via RETURN-VALUE):

TEMP-TABLE tt-erros

Atributo

Tipo

Formato

Valor Inicial

Cod-Erro

Integer

Desc-Erro

Character

A seguir encontram-se referências sobre os valores que alguns campos podem assumir

Tipos de Gráficos

Valor  Descrição

0- Sem gráfico

1- Pizza 2D

2- Pizza 3D

3- Barra 2D

4- Barra 3D (default)

5- Gantt

6- Linha

7- Log/lin

8- Área 2D

9- Dispersão 2D

10- Polar

11- High-low-close

12- Bolha

13- Fita

14- Área 3D

15- Log/log

16- Lin/log

17- Box-whisker

18- Open-high-low-close

19- Castiçal

20- Superfície True3D

21- Dispersão True3D

22- Time series

Tabela de Linhas de Limites

Valor Descrição

0- Sem linhas de limites (default)

1- Apenas linha de limite superior

2- Apenas linha de limite inferior

3- Ambas as linhas de limites (inferior e superior)

4- Ambas as linhas de limites (inferior e superior) com destaque entre elas

Tabela de Linhas Estatísticas

Valor Descrição

0- Sem linhas estatísticas (default)

1- Linha de meio

2- Linhas de valores máximo e mínimo

3- Linhas de valores máximo e mínimo e linha de meio

4- Linha de desvio padrão

5- Linha de desvio padrão e linha de meio

6- Linha de desvio padrão e linhas de valores máximo e mínimo

7- Linha de desvio padrão, linhas de valores máximo e mínimo de linha de meio

8- Linha de nível

9- Linha de nível e linha de meio

10- Linha de nível e linhas de valores máximo e mínimo

11- Linha de nível, linhas de valores máximo e mínimo e linha de meio

12- Linha de nível e linha de desvio padrão

13- Linha de nível, desvio padrão e linha de meio

14- Linha de nível, linha de desvio padrão e linhas de valores máximo e mínimo

15- Todas as linhas – Nível, desvio padrão, valores máximo e mínimo e meio

16 - 31 Como as anteriores, juntamente com curvas. Adicionar 16 para cada um dos itens anteriores para habilitar as curvas (curvas não são disponíveis para gráficos do tipo Castiçal.

Tabela Tipos de Curvas

Valor Descrição

0- Variável - ordem polinomial (default)

1- Logarítmico y = a + b * log(x)

2- Exponencial y = a * exp(b * x)

3- Exponencial y = a * x * exp(-b * x)

4- Força y = a * (x ^ b)

5- Inverso y = a + b / x

6- Inverso y = a / (b + x)

7- Inverso y = 1 / (a + b * y)

8- Inverso y = x / (a * x + b)

9- Inverso y = 1 / (a + b * x) ^2

10- Intercepta todos os points

11- Média no meio do grupo associado

12- Média no fim do grupo associado

Tipos de Fontes

Valor Descrição

0- Sem tratamento (default)

1- Itálico

2- Negrito

3- Negrito itálico

4- Sublinhado

5- Sublinhado itálico

6- Sublinhado Negrito

7- Sublinhado Negrito itálico

Estilos do Título das Ordenadas

Valor Descrição

0- Horizontal (default)

1- Vertical Acima

2- Vertical Abaixo

Tabela de Posição da Legenda

Valor Descrição

0- Direita (default)

1- Direita superior

2- Superior

3- Esquerda superior

4- Esquerda

5- Esquerda inferior

6- Inferior

7- Direita inferior

Tabela de Cores

Valor Descrição

0- Preto

1- Azul

2- Verde

3- Azul claro

4- Vermelho

5- Magenta

6- Marrom

7- Cinza luminoso

8- Cinza escuro

9- Azul luminoso

10- Verde luminoso

11- Azul claro luminoso

12- Vermelho luminoso

13- Magenta luminoso

14- Amarelo

15- Branco

Estilos de Linhas de Grids

Valor Descrição

0- Solido (default)

1- Traço

2- Ponto

3- Traço-Ponto

4- Traço-Ponto-Ponto

5- Nenhum

Estilos de Grids

Valor Descrição

0- Sem Grids (default)

1- Grids Y (horizontal) – radial (círculos concêntricos) em gráficos polares

2- Grids X (vertical) –angular ("raios") em gráficos polares

3- Grids horizontal e vertical – radial and angular em gráficos polares

Tabela de Labels de Valores

Valor Descrição

0- Sem Labels (default)

1- Labels coloridos de acordo com a propriedade DataLabelsColor

2- Labels coloridos de acordo com o grupo associado

Estilos de Gráficos

Gráfico          Valor Descrição

Area (2D/3D)                                                                              

0- Empilhado (default)

1- Absoluto

2- Empilhado em percentagem

Barra (2D)                                                                                    

0- Barra Vertical, agrupado se multiplos sets de dados (default)

1- Horizontal

2- Empilhado

3- Horizontal empilhado

4- Empilhado em percentagem

5- Horizontal empilhado em pencentagem

8- Vertical empilhado flutuante

9- Horizontal empilhado flutuante

Obs:  Barras flutuantes requerem mais de um set de dados. O primeiro set de dado em um gráfico em uma barra flutuante é invisível. O elemento que falta na barra empilhada faz a barra aparecer e ser suspensa sobre o eixo x, daqui o nome gráfico de barra flutuante.

10- Vertical Pareto

11- Horizontal Pareto

Obs: Com um gráfico Pareto, as barras são ordenadas em ordem descendente; qualquer label do eixo X definido pelo usuário são ordenados com o dado. Se existir mais de um set de dado, as barras são ordenadas em grupos semelhante ao set de dado que aparece em ordem descendente.

Barra (3D), Barra 2D, mais                                                                 

6- Z-agrupado

7- Horizontal Z-agrupado

Box-whisker                                                                                       

0- Raw data, desenho amostra (default)

1- Raw data, sem desenho amostra

2- Parametric data

Bolha                                                                                                  

Sem opções de estilo

Castiçal                                                                                               

Sem opções de estilo

Gantt                                                                                                  

0- Barras Adjacentes (default)

1- Barras espaçadas

High-low-close and open-high-low-close                                         

0- Barras Abertas (se usado), altas, baixas e fechadas (default)

1- Sem abrir ou fechar barras

2- Sem barras altas ou baixas

3- Sem barras de qualquer tipo

Linha, log/lin, lin/log, and log/log                                                    

0- Apenas linhas (default)

1- Símbolos

2- Referência entre dados e origem

3- Referência entre dados e origem e símbolos

4- Linhas

5- Linhas e símbolos

6- Linhas e Referência entre dados e origem

7- Linhas, Referência entre dados e origem, e símbolos

Pizza (2D/3D)                                                                                   

0- Linhas ligando labels à pizza (default)

1- Sem linhas ligando labels à pizza

2- Label coloridos

3- Labels coloridos sem linhas

4- Labels em Percentagem

5- Labels em Percentagem sem linhas

6- Labels em Percentagem Coloridos

7- Labels em Percentagem Coloridos sem linhas

Polar                                                                                                   

0- Apenas linhas (default)

1- Símbolos

2- Referência entre points e origem (centro)

3- Referência e símbolos

4- Linhas

5- Linhas e símbolos

6- Linhas e referência

7- Linhas, referência e símbolos

Dispersão (2D)                                                                                    

0- Apenas símbolos (default)

1- Apenas curvas

2- Apenas símbolos

3- Curvas e símbolos

Dispersão (3D)                                                                                    

0- Apenas símbolos (default)

1- Símbolos e referência vertical

2- Símbolos e linhas entre points

3- Símbolos, referências verticais e linhas entre points

Superfície                                                                                            

0- Painéis preenchidos e linhas de limite (default)

1- Apenas linhas de limite

2- Apenas painéis preenchidos

3- Painéis preenchidos e linhas de limites com o lado da parede

4- Linhas de limites com com o lado da parede

5- Apenas painéis preenchidos com o lado da parede

Tape                                                                                                      

RUN prgfin/luy/luy702za.py PERSISTENT SET v_hdl_api (INPUT mes,
                                                     INPUT ano).
RUN pi_obter_detalhes_f2181 IN v_hdl_api (output table tt_fornec_f2181_apb,
                                          output table tt_rubros_F2181_apb,
                                          output table tt_titulo_F2181_apb,
                                          output table tt_impostos_F2181_apb,
                                          output table tt_erros_api).

RUN prgfin/luy/luy702za.py PERSISTENT SET v_hdl_api (INPUT mes,
                                                     INPUT ano).
RUN pi_main_formulario_2181 IN v_hdl_api (output v_des_arquivo,
                                          output table tt_erros_api).

def var v_hdl_api as Handle format ">>>>>>9":U no-undo.
def var v_des_arquivo as character no-undo.

RUN prgfin/luy/luy702za.py PERSISTENT SET v_hdl_api (INPUT 2,
                                                     INPUT 2025).
RUN pi_main_formulario_2181 IN v_hdl_api (output v_des_arquivo,
                                          output table tt_erros_api).
DELETE PROCEDURE v_hdl_api.

def var v_hdl_api as Handle format ">>>>>>9":U no-undo.
def var v_des_arquivo as character no-undo.

RUN prgfin/luy/luy702za.py PERSISTENT SET v_hdl_api (INPUT 2,
                                                     INPUT 2025).
RUN pi_obter_detalhes_f2181 IN v_hdl_api (output table tt_fornec_f2181_apb,
                                          output table tt_rubros_F2181_apb,
                                          output table tt_titulo_F2181_apb,
                                          output table tt_impostos_F2181_apb,
                                          output table tt_erros_api).
DELETE PROCEDURE v_hdl_api.

for each tt_titulo_F2181_apb:
    if not can-find(first tt_impostos_F2181_apb
        where tt_impostos_F2181_apb.tta_cod_estab     = tt_titulo_F2181_apb.tta_cod_estab
          and tt_impostos_F2181_apb.tta_num_id_tit_ap = tt_titulo_F2181_apb.tta_num_id_tit_ap) then
    do:
        create tt_impostos_F2181_apb.
        assign tt_impostos_F2181_apb.tta_cod_estab     = tt_titulo_F2181_apb.tta_cod_estab
               tt_impostos_F2181_apb.tta_num_id_tit_ap = tt_titulo_F2181_apb.tta_num_id_tit_ap.  
    end.
end.

def stream s1.
output stream s1 to C:\tmp\Detalhes_F2181.csv convert target "ISO8859-1".
put stream s1 unformatted "Fornecedor;Nome;Titulo;Rubro;Vl Rubro;Vl Original;Vl Taxa Basica; Vl Taxa Minima;Vl Ret IVA; Vl Isento ; Imposto;Vl Base;Vl Imposto " skip.

for each tt_titulo_F2181_apb,
    each tt_rubros_F2181_apb
    where tt_rubros_F2181_apb.tta_cod_estab     = tt_titulo_F2181_apb.tta_cod_estab
      and tt_rubros_F2181_apb.tta_num_id_tit_ap = tt_titulo_F2181_apb.tta_num_id_tit_ap,    
    first tt_fornec_F2181_apb
    where tt_fornec_F2181_apb.tta_cdn_fornecedor = tt_titulo_F2181_apb.tta_cdn_fornecedor,
    each tt_impostos_F2181_apb
    where tt_impostos_F2181_apb.tta_cod_estab     = tt_titulo_F2181_apb.tta_cod_estab
      and tt_impostos_F2181_apb.tta_num_id_tit_ap = tt_titulo_F2181_apb.tta_num_id_tit_ap:
    
    put stream s1 unformatted
    string(tt_fornec_F2181_apb.tta_cdn_fornecedor)                                      + ";" +
    tt_fornec_F2181_apb.tta_nom_pessoa                                                  + ";" +
    tt_titulo_F2181_apb.tta_cod_estab + '/' +  tt_titulo_F2181_apb.tta_cod_espec_docto  + '/' + 
    tt_titulo_F2181_apb.tta_cod_ser_docto + '/' + tt_titulo_F2181_apb.tta_cod_tit_ap    + '/' + 
    tt_titulo_F2181_apb.tta_cod_parcela                                                 + ";" +
    tt_rubros_F2181_apb.ttv_cod_rubr                                                    + ";" +
    string(tt_rubros_F2181_apb.ttv_val_operac_rubr)                                     + ";" +
    string(tt_titulo_F2181_apb.tta_val_origin_tit_ap)                                   + ";" +
    string(tt_titulo_F2181_apb.ttv_val_iva_basic)                                       + ";" +
    string(tt_titulo_F2181_apb.ttv_val_iva_min)                                         + ";" +
    string(tt_titulo_F2181_apb.ttv_val_retenc_iva)                                      + ";" +       
    string(tt_titulo_F2181_apb.ttv_val_isento)                                          + ";" +   
    tt_impostos_F2181_apb.tta_cod_pais + '/' + tt_impostos_F2181_apb.tta_cod_unid_federac + '/' + 
    tt_impostos_F2181_apb.tta_cod_imposto                                               + ";" +
    string(tt_impostos_F2181_apb.ttv_val_base)                                          + ";" +                                   
    string(tt_impostos_F2181_apb.ttv_val_imposto) 
    skip.  
    
end.
output stream s1 close.