Formula SALVAVALDEP

[Márcia Alvarez]

A TOTVS disponibilizou a formula abaixo, mas não sei como utilizar?

Temos três opções de planos de saúde cada um com seu evento com tabelas e valores diferenciados, e iremos proporcionalizar os descontos para o titular e dependentes, como devo utilizar esta formula para preencher a pasta criada de historico de assistência médica?

SALVAVALDEP (1º Parâmetro, 2º Parâmetro)

1º Parâmetro: Deverá informar o número do beneficiário. Sempre que o beneficiário for o funcionário deverá informar 0(zero).

2º Parâmetro: Deverá informar o valor do desconto deste beneficiário.

DECL DEP,SOMADEP,SOMAFUN;

SETVAR(DEP,1);

SETVAR(SOMADEP,0);

REPITA

SE TABDEP ('INCASSISTMEDICA' ,'V', DEP)=1 ENTAO

SE NDEPIDADE (DEP,HOJE)<=18

ENTAO SETVAR(SOMADEP,SOMADEP+121)

SALVAVALDEP(DEP,121)

SENAO

SE NDEPIDADE (DEP,HOJE)<=23

ENTAO SETVAR(SOMADEP,SOMADEP+189)

SALVAVALDEP(DEP,189)

SENAO 0 FIMSE FIMSE FIMSE;

SETVAR(DEP,DEP+1) ATE DEP=10;

SE TABCOMPL('ASSISTENCIAMEDICA','S')='S'

ENTAO SE IDADE(HOJE)<=18

ENTAO SETVAR(SOMAFUN,SOMAFUN+121)

SALVAVALDEP(0,121)

SENAO SE IDADE(HOJE)<=23

ENTAO SETVAR(SOMAFUN,SOMAFUN+189)

SALVAVALDEP(0,189)

SENAO 0

FIMSE

FIMSE

FIMSE;

SOMADEP+SOMAFUN

Obrigada,

Márcia

[Excluído]

Alguém está usando essa fórmula, está funcionando?

[Luis Valadares]

Tentei usar aqui proporcionalizando pelo numero de dependentes (mais o funcionário). Também não funcionou (eis a formula abaixo). Abri o chamado com a TOTVS e a mesma pediu pra eu acessar a consultoria (cobrada o minuto).

Formula jogada no evento + marcação do campo de assistência em incidências do dependente + Evento com o valor no código fixo

DECL DEP,VALMED;

SETVAR(VALMED,(CF('133') / (DA + 1)));

SETVAR(DEP,1);

REPITA

SE TABDEP ('INCASSISTMEDICA' ,'V', DEP)=1 ENTAO

SALVAVALDEP(DEP,VALMED)

SENAO

0

FIMSE;

SETVAR(DEP,DEP+1)

ATE DEP=12;

SALVAVALDEP(0,VALMED);

CF('133')

[Jair - Fórmula]

Nao tem documentacao explicando como usar a funcao, e ligando la estao falando pra acessar a consultoria paga ? ??

[Luis Valadares]

Não, Jair !

Documentação, tem ! É o próprio help e váárias telas interligadas explicando como configurar a formula, parametrização de dependentes, eventos (cc), etc !

O problema é justamente esse, o pessoal do suporte considera que não consegui fazer e fecha minha ocorrência explicando pra eu procurar a consultoria. Estou vendo agora que outras pessoas estão com o mesmo problema.

[Nik]

Bem... pessoal

Eu como precisava fazer a toque de caixa, todos os meses do ano de 2010, criei uma sentença onde pegava o valor pago pelo funcionário, referente a convênio e dividia pelos dependentes, pois no meu caso o processo é mais simples. E por não conseguir também usar a formula, estou pensando em fazer uma sp e jogar em um relatório e todo mês alguém do DP roda ele, somente para alimentar a tabela.

Sei lá, mas por enquanto me parece a melhor situação, tendo em vista que a variável não apresentou retorno algum.

NIK

[Luis Valadares]

Alguém mais abriu ocorrência com o suporte ?

[Si Souza]

Pessoal, boa tarde!

Desenvolvi a fórmula para dois planos de saúde, de acordo com a idade do titular/dependente.

Consultem e verifique se ajuda. A fórmula foi apropriada no desconto do convênio do Dependente que insere os dados na PFHSTASSMED, porém notem que na Versão 10.83.0(3) ao realizar a rotina de CANCELAMENTO DE MOVIMENTO, para um funcionário que tem registros na tabela, o sistema apresenta a mensagem de erro:

Erro de cálculo: Invalid colunm name

‘D066’

Executamos o profile e existe um erro ao excluir os registros da tabela:

DELETE FROM PFHSTASSMED WHERE (CODCOLIGADA = 4) AND (CHAPA = '130179') AND (ANOCOMP = 2011) AND (MESCOMP = 1) AND (NROPERIODO = 3)AND (CODEVENTO = 'D066') AND (CODEVENTO IN (D066)) AND (TIPOVALOR IN (0, 2, 3, 5))....

Segue a fórmula para atender dois planos diferentes:

Decl vAssMed, vValor, vTabela, vValorDep;

SETVAR(vAssMed,TABCOMPL ('CCBENASSMED' , 'V'));

SE vAssMed = 0

ENTAO 0

SENAO SE vAssMed = 1

ENTAO SETVAR(vTabela,'AM')

SENAO SE vAssMed = 2

ENTAO SETVAR(vTabela,'AM1')

SENAO 0

FIMSE

FIMSE;

SE EXECSQL('IDEPASSMED') = VERDADE

ENTAO

REPITA

SETVAR(vValorDep,T(vTabela,NDEPIDADE(RESULTSQL('IDEPASSMED','NRODEPEND') ,ULTDIAMES(MTDATA(1,MES,ANO)))));

SALVAVALDEP(RESULTSQL('IDEPASSMED','NRODEPEND'),vValorDep);

SETVAR(vValor,T(vTabela,NDEPIDADE(RESULTSQL('IDEPASSMED','NRODEPEND') ,ULTDIAMES(MTDATA(1,MES,ANO)))) + vValor)

ATE

ProxRegSQL( 'IDEPASSMED' ) = FALSO

FIMSE;

vValor

FIMSE

[Cleiton Souza]

Pessoal,

Aqui desenvolvi a fórmula na minha empresa, pois utilizamos vários tipos de planos e estes estão e Valores Fixos. Aqui funciona perfeitamente.

Decl DAM, VAM, DC, DE;

SetVar(DAM,0);

SetVar(VAM, 0);

SetVar(DC,1);

SetVar(DE,0);

/*DESCONTO FUNCIONÁRIO*/

SE PERIODO=4 ENTAO 0 SENAO

SE (TABCOMPL('AMEDICA1','S')='S') ENTAO

SetVar (VAM, (F ('0033'))/2);

SALVAVALDEP(0,VAM)

Senao

SE (TABCOMPL('AMEDICA2','S')='S') ENTAO

SetVar (VAM, (F ('0034'))/2);

SALVAVALDEP(0,VAM)

Senao

SE (TABCOMPL('AMEDICA3','S')='S') ENTAO

SetVar (VAM, (F ('0036'))/2);

SALVAVALDEP(0,VAM)

Senao

SetVar(VAM,0)

FimSe

FimSe

FimSe

FimSe;

/*VALOR DEPENDENTES*/

SE PERIODO=4 ENTAO 0 SENAO

REPITA

Se TABCOMPLDEPEND ('AMEDICA1','S',DC)='S' Entao

SetVar (DE, DE+(F('0033')/2));

SALVAVALDEP(DC,(F('0033')/2)) Senao

Se TABCOMPLDEPEND ('AMEDICA2','S',DC)='S' Entao

SetVar (DE, DE+(F('0034')/2));

SALVAVALDEP(DC,(F('0034')/2)) Senao

Se TABCOMPLDEPEND ('AMEDICA3','S',DC)='S' Entao

SetVar (DE, DE+(F('0036')/2));

SALVAVALDEP(DC,(F('0036')/2)) Senao

SetVar (DE,DE)

FimSe

FimSe

FimSe;

SetVar (DC,DC+1)

ATE (DC=10)

FimSe;

SetVar (DAM,VAM+DE)

**********************

Espero ter ajudado.

[Fernanda Rocha]

Pessoal,

No blog TOTVS CONNECT tem um "Como Fazer" explicando essa parametrização, utilização da fórmula, etc.

Acredito que vale a pena dar uma olhada: http://totvsconnect.blogspot.com/2010/11/como-fazer-historico-de-assistencia_22.html

Se não me engano, a variável SALVALDEP não busca valor anterior, ela somente armazena a partir de quando foi criada/utilizada. Logo, para os meses de Jan e Fev, acredito que deverá ser lançado direto no sistema. E quanto mais meses passarem, mais meses a serem lançados.

Espero que ajude.

Abraços!

Fernanda.

[Eugênio]

Pessoal

Fiz esta Fórmula que faz os calculos e funcionou bacana.

Quem quiser está a disposição

DECL DEP,SOMADEP,SOMAFUN,VALORDEP,NRODEP;

SETVAR (NRODEP,DA);

SE NRODEP=0 ENTAO SETVAR(NRODEP,1) SENAO SETVAR(NRODEP,DA) FIMSE;

SETVAR (VALORDEP, CF ('014')/NRODEP );

SETVAR(DEP,1);

SETVAR(SOMADEP,0);

REPITA

SE TABDEP ('INCASSISTMEDICA' ,'V', DEP )=1

ENTAO SETVAR(SOMADEP,SOMADEP+VALORDEP);

SALVAVALDEP(DEP,VALORDEP)

SENAO 0 FIMSE ;

SETVAR(DEP,DEP+1 ) ATE DEP=10;

SE TABCOMPL('ASSISTENCIAMEDICA','S')='S' E DEP=NRODEP

ENTAO

SETVAR(SOMADEP,SOMADEP+VALORDEP) ;

SALVAVALDEP(DEP,VALORDEP)

SENAO 0

FIMSE

;

SOMADEP+SOMAFUN

[Luciano DP]

Bom dia a todos!!

Hoje utilizo esta fórmula parea o desconto do plano de saúde, alguém poderia me ajudar inserindo na posição correta a variável SALVAVALDEP para o preenchimento do histórico no cadastro do funcionário? Obrigado

DECL(FE,FQ,FS,AAV,CONT);

SE TABCOMPL('TPBRAD','S') <> ''

ENTAO

SE TABCOMPL('TPBRAD','S') = '001'

ENTAO SETVAR(FE,FE + (T('TNE1',IDADE(ULTDIAMES(MTDATA(1,MES,ANO))))* (T('0005',RC) / 100) ) )

SENAO

SE TABCOMPL('TPBRAD','S') = '002'

ENTAO SETVAR(FQ,FQ + (T('TNQ2',IDADE(ULTDIAMES(MTDATA(1,MES,ANO))))* (T('0005',RC) / 100) ) )

SENAO

SE TABCOMPL('TPBRAD','S') = '003'

ENTAO SETVAR(FS,FS + (T('SIQ3',IDADE(ULTDIAMES(MTDATA(1,MES,ANO))))* (T('0005',RC) / 100) ) )

/* Quando o funcionário assume a diferença em relação ao plano superior.

SENAO SETVAR(FQ,FQ + (T('TNE1',IDADE(ULTDIAMES(MTDATA(1,MES,ANO))))* (T('0005',RC)) / 100)

+ T('TNQ2',IDADE(ULTDIAMES(MTDATA(1,MES,ANO))))

- T('TNE1',IDADE(ULTDIAMES(MTDATA(1,MES,ANO)))))

*/

FIMSE

FIMSE

FIMSE;

SE EXECSQL('NDEPEND') = 1

ENTAO

SETVAR(CONT,CONT+1);

REPITA

SE ((TABDEP('GRAUPARENTESCO','S',CONT) = '1' E NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO))) < 25) OU

TABDEP('GRAUPARENTESCO','S',CONT) = '3' OU

TABDEP('GRAUPARENTESCO','S',CONT) = '5' OU

TABDEP('GRAUPARENTESCO','S',CONT) = 'C') E

TABCOMPLDEPEND('TPBRAD','S',CONT) = '001'

ENTAO

SETVAR(FE,FE + (T('TNE1',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO))))* (T('0005',RC)) /100 ) )

SENAO

SE ((TABDEP('GRAUPARENTESCO','S',CONT) = '1' E NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO))) < 29) OU

TABDEP('GRAUPARENTESCO','S',CONT) = '3' OU

TABDEP('GRAUPARENTESCO','S',CONT) = '5' OU

TABDEP('GRAUPARENTESCO','S',CONT) = 'C') E

TABCOMPLDEPEND('TPBRAD','S',CONT) = '002'

ENTAO

SETVAR(FQ,FQ + (T('TNQ2',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO))))* (T('0005',RC)) /100 ) )

SENAO

/* Quando o funcionário assume a diferença em relação ao plano superior.

SETVAR(FQ,FQ + (T('TQ2',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO))))* (T('0005',RC)) /100)

+ T('TNQ2',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO))))

- T('TNE1',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO)))) )

SENAO

*/

SE ((TABDEP('GRAUPARENTESCO','S',CONT) = '1' E NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO))) < 29) OU

TABDEP('GRAUPARENTESCO','S',CONT) = '3' OU

TABDEP('GRAUPARENTESCO','S',CONT) = '5' OU

TABDEP('GRAUPARENTESCO','S',CONT) = 'C') E

TABCOMPLDEPEND('TPBRAD','S',CONT) = '003'

ENTAO

SETVAR(FQ,FQ + (T('SIQ3',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO))))* (T('0005',RC)) /100 ) )

SENAO

SE TABCOMPLDEPEND('TPBRAD','S',CONT) = '001'

ENTAO

SETVAR(FE,FE + T('TNE1',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO)))))

SENAO

SE TABCOMPLDEPEND('TPBRAD','S',CONT) = '002'

ENTAO

SETVAR(FQ,FQ + T('TNQ2',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO)))))

SENAO

SE TABCOMPLDEPEND('TPBRAD','S',CONT) = '003'

ENTAO

SETVAR(FS,FS + T('SIQ3',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO)))))

SENAO

0

FIMSE

FIMSE

FIMSE

FIMSE

FIMSE

FIMSE;

SETVAR(AAV,AAV + TABCOMPLDEPEND('VALUNI','V',CONT));

SETVAR(CONT,CONT+1)

ATE CONT > RESULTSQL('NDEPEND','QTDDEP')

SENAO 0

FIMSE;

FE+FQ+FS+AAV

SENAO 0

FIMSE

/*

DECL(FE,FQ,FS,AAV,CONT);

SE TABCOMPL('TPBRAD','S') <> ''

ENTAO

SE TABCOMPL('TPBRAD','S') = '001'

ENTAO SETVAR(FE,FE + (T('TNE1',IDADE(ULTDIAMES(MTDATA(1,MES,ANO))))* (T('0005',RC) / 100) ) )

SENAO SETVAR(FQ,FQ + (T('TNE1',IDADE(ULTDIAMES(MTDATA(1,MES,ANO))))*T('0005',RC))

+ T('TNQ2',IDADE(ULTDIAMES(MTDATA(1,MES,ANO))))

- T('TNE1',IDADE(ULTDIAMES(MTDATA(1,MES,ANO)))))

FIMSE;

SE EXECSQL('NDEPEND') = 1

ENTAO

SETVAR(CONT,CONT+1);

REPITA

SE ((TABDEP('GRAUPARENTESCO','S',CONT) = '1' E NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO))) < 25) OU

TABDEP('GRAUPARENTESCO','S',CONT) = '3' OU

TABDEP('GRAUPARENTESCO','S',CONT) = '5' OU

TABDEP('GRAUPARENTESCO','S',CONT) = 'C') E

TABCOMPLDEPEND('TPBRAD','S',CONT) = '001'

ENTAO

SETVAR(FE,FE + (T('TNE1',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO))))* (T('0005',RC)) /100 ) )

SENAO

SE ((TABDEP('GRAUPARENTESCO','S',CONT) = '1' E NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO))) < 25) OU

TABDEP('GRAUPARENTESCO','S',CONT) = '3' OU

TABDEP('GRAUPARENTESCO','S',CONT) = '5' OU

TABDEP('GRAUPARENTESCO','S',CONT) = 'C') E

TABCOMPLDEPEND('TPBRAD','S',CONT) = '002'

ENTAO

SETVAR(FQ,FQ + (T('TNE1',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO))))* (T('0005',RC)) /100)

+ T('TNQ2',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO))))

- T('TNE1',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO)))) )

SENAO

SE TABCOMPLDEPEND('TPBRAD','S',CONT) = '001'

ENTAO

SETVAR(FS,FS + T('SIQ3',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO)))))

SENAO

SE TABCOMPLDEPEND('TPBRAD','S',CONT) = '002'

ENTAO

SETVAR(FS,FS + T('SIQ3',NDEPIDADE(CONT,ULTDIAMES(MTDATA(1,MES,ANO)))))

SENAO

0

FIMSE

FIMSE

FIMSE

FIMSE;

SETVAR(AAV,AAV + TABCOMPLDEPEND('VALUNI','V',CONT));

SETVAR(CONT,CONT+1)

ATE CONT > RESULTSQL('NDEPEND','QTDDEP')

SENAO 0

FIMSE;

FE+FQ+FS+AAV

SENAO 0

FIMSE

*/

[Excluído]

Pessoal, usei uma das fórmulas descritas aqui porém não está inserindo dados no "Histórico Assistência à Saúde", alguém sabe se existe algum detalhe por mim esquecido?

[Luis Valadares]

Jefferson,

além do detalhe das versões ... tinham algumas com problemas, vc verificou se não está usando alguma das comentadas aqui ?

[Excluído]

Usei a sua Luis Valadares, rs rs rs.

DECL DEP,VALMED;

SETVAR(VALMED,(CF('133') / (DA + 1)));

SETVAR(DEP,1);

REPITA

SE TABDEP ('INCASSISTMEDICA' ,'V', DEP)=1 ENTAO

SALVAVALDEP(DEP,VALMED)

SENAO

0

FIMSE;

SETVAR(DEP,DEP+1)

ATE DEP=12;

SALVAVALDEP(0,VALMED);

CF('133')

[Luis Valadares]

Foi mal,

é que ja tratei disso em tantos posts. Tivemos problemas de versão. No meu caso consegui fazer funcionar a formula na versão Labore 10.83.10(29). Tivemos pessoas com problemas da 11.00 também.

Ve esse post:

[Excluído]

Pessoal, entrei em contato com o suporte e me foi enviada a "Versão Especial: 11.20.16 (22) minha versão anterior era a 11.20.10 (17) com essa nova versão ao efetuar o lançamento do evento de assistência médica o campo "Histórico Assistência à Saúde" é preenchido automaticamente, porém além de informar os valores por dependentes que estejam com o campo "Assistência Médica" marcado em Cadastros/Funcionários/Base Cálculo/Dependentes/Incidências, também é informado o valor do titular, no meu caso a regra de cálculo da assistência médica é muito simples, ou seja, R$ 35,00 por titular e R$ 35,00 por cada dependente, esse valor é informado manualmente lá nos códigos fixos, sendo assim preferi usar a fórmula postado por nosso colega Luis Valadares, conforme abaixo:

DECL DEP,VALMED;

SETVAR(VALMED,(CF('133') / (DA + 1)));

SETVAR(DEP,1);

REPITA

SE TABDEP ('INCASSISTMEDICA' ,'V', DEP)=1 ENTAO

SALVAVALDEP(DEP,VALMED)

SENAO

0

FIMSE;

SETVAR(DEP,DEP+1)

ATE DEP=12;

SALVAVALDEP(0,VALMED);

CF('133')

[Excluído]

Detalhe apurado agora, no momento da emissão do Informe de Rendimentos é demonstrado o valor desmembrado, ou seja, por titular e dependente, porém o titular está com valor errado, exemplo:

Janeiro/2011

Histórico Assistência à Saúde

Titular R$ 35,00

Dependente A R$ 35,00

Dependente B R$ 35,00

Informe de Rendimentos

Titular R$ 140,00 (= R$ 35 * 3 + R$ 35,00)

Dependente A R$ 35,00

Dependente B R$ 35,00

Espero ter sido claro.

[Edneyrh]

Olá Pessoal,

Poderiam me ajudar nessa fórmula:

O que eu tenho parametrizado está assim:

1ª FORMULA

Código: MA01

Texto: ((DA+1) * F('MA01')) * 0.5

2ª Fórmula

Cógido: PLFILIAL

Texto:

SE TABCOMPL ('PLANOSAUDE', 'S')='' ENTAO 0 SENAO

SE TABCOMPL ('PLANOSAUDE', 'S')='MA01' ENTAO FOR('MA01') SENAO

SE TABCOMPL ('PLANOSAUDE', 'S')='MA02' ENTAO FOR('MA02') SENAO

SE TABCOMPL ('PLANOSAUDE', 'S')='MA03' ENTAO FOR('MA03') SENAO

SE TABCOMPL ('PLANOSAUDE', 'S')='MA04' ENTAO FOR('MA04') SENAO

SE TABCOMPL ('PLANOSAUDE', 'S')='MA05' ENTAO FOR('MA05') SENAO

SE TABCOMPL ('PLANOSAUDE', 'S')='MA06' ENTAO FOR('MA06') SENAO 0

FIMSE FIMSE FIMSE FIMSE FIMSE FIMSE FIMSE

Como a fórmula de assistência médica está amarrada a outra, estou confuso onde amarrar a função SALVAVALDEP, se na primeira ou na segunda fórmula, talvez o ideal fosse contruir uma única formula....

Abraços e obrigado desde já pela força!

Edney.-

[Edneyrh]

Olá Pessoal,

Poderiam me ajudar nessa fórmula:

O que eu tenho parametrizado está assim:

1ª FORMULA

Código: MA01

Texto: ((DA+1) * F('MA01')) * 0.5

2ª Fórmula

Cógido: PLFILIAL

Texto:

SE TABCOMPL ('PLANOSAUDE', 'S')='' ENTAO 0 SENAO

SE TABCOMPL ('PLANOSAUDE', 'S')='MA01' ENTAO FOR('MA01') SENAO

SE TABCOMPL ('PLANOSAUDE', 'S')='MA02' ENTAO FOR('MA02') SENAO

SE TABCOMPL ('PLANOSAUDE', 'S')='MA03' ENTAO FOR('MA03') SENAO

SE TABCOMPL ('PLANOSAUDE', 'S')='MA04' ENTAO FOR('MA04') SENAO

SE TABCOMPL ('PLANOSAUDE', 'S')='MA05' ENTAO FOR('MA05') SENAO

SE TABCOMPL ('PLANOSAUDE', 'S')='MA06' ENTAO FOR('MA06') SENAO 0

FIMSE FIMSE FIMSE FIMSE FIMSE FIMSE FIMSE

Como a fórmula de assistência médica está amarrada a outra, estou confuso onde amarrar a função SALVAVALDEP, se na primeira ou na segunda fórmula, talvez o ideal fosse contruir uma única formula....

Abraços e obrigado desde já pela força!

Edney.-

O jeito que encontrei foi criar uma única fórmula, achei menos complicado... Abraços!

[Luciano DP]

Pessoal, boa tarde!

Já tentei de várias formas e não consegui inserir a variável SALVAVALDEP nesta fórmula, será que alguém pode me dar um help pois estou precisando com uma certa urgência. Obrigado!

DECL(CONT,SOMA);

SE EXECSQL('NDEPEND') = 1 ENTAO

SETVAR(CONT,1);

REPITA

SE INCDEP (CONT , 1) = 1 ENTAO

SETVAR(SOMA,SOMA + TABCOMPLDEPEND ('VALUNI' , 'V' , CONT))

SENAO

0

FIMSE;

SETVAR(CONT,CONT+1)

ATE CONT > RESULTSQL('NDEPEND' , 'QTDDEP');

SOMA

SENAO 0 FIMSE;

SE TABCOMPL ('TPUNI' , 'S') = '001' ENTAO

( ( F('UNI1') * (DA+1)) * T('0001',RC) ) + SOMA

SENAO

SE TABCOMPL ('TPUNI' , 'S') = '002' ENTAO

( ( ( F('UNI1') * (DA+1) ) * T('0001',RC) ) + ( ( F('UNI2') - F('UNI1') ) * ( DA+1) ) ) + SOMA

SENAO

SE TABCOMPL ('TPUNI' , 'S') = '003' ENTAO

( ( ( F('UNI1') * (DA+1) ) * T('0001',RC) ) + ( ( F('UNI3') - F('UNI1') ) * ( DA+1) ) ) + SOMA

SENAO

SE TABCOMPL ('TPUNI' , 'S') = '004' ENTAO

( ( ( F('UNI1') * (DA+1) ) * T('0001',RC) ) + ( ( F('UNI4') - F('UNI1') ) * ( DA+1) ) ) + SOMA

SENAO

0

FIMSE

FIMSE

FIMSE

FIMSE

[Luciano DP]

Pessoal, boa tarde!

Já tentei de várias formas e não consegui inserir a variável SALVAVALDEP nesta fórmula, será que alguém pode me dar um help pois estou precisando com uma certa urgência. Obrigado!

DECL(CONT,SOMA);

SE EXECSQL('NDEPEND') = 1 ENTAO

SETVAR(CONT,1);

REPITA

SE INCDEP (CONT , 1) = 1 ENTAO

SETVAR(SOMA,SOMA + TABCOMPLDEPEND ('VALUNI' , 'V' , CONT))

SENAO

0

FIMSE;

SETVAR(CONT,CONT+1)

ATE CONT > RESULTSQL('NDEPEND' , 'QTDDEP');

SOMA

SENAO 0 FIMSE;

SE TABCOMPL ('TPUNI' , 'S') = '001' ENTAO

( ( F('UNI1') * (DA+1)) * T('0001',RC) ) + SOMA

SENAO

SE TABCOMPL ('TPUNI' , 'S') = '002' ENTAO

( ( ( F('UNI1') * (DA+1) ) * T('0001',RC) ) + ( ( F('UNI2') - F('UNI1') ) * ( DA+1) ) ) + SOMA

SENAO

SE TABCOMPL ('TPUNI' , 'S') = '003' ENTAO

( ( ( F('UNI1') * (DA+1) ) * T('0001',RC) ) + ( ( F('UNI3') - F('UNI1') ) * ( DA+1) ) ) + SOMA

SENAO

SE TABCOMPL ('TPUNI' , 'S') = '004' ENTAO

( ( ( F('UNI1') * (DA+1) ) * T('0001',RC) ) + ( ( F('UNI4') - F('UNI1') ) * ( DA+1) ) ) + SOMA

SENAO

0

FIMSE

FIMSE

FIMSE

FIMSE

Alguém poderia dar um help aqui?