AVISO AOS MEMBROS:
Fizemos uma atualização em 18/06/2023, e a forma de acesso ao Fórum mudou. Não mais está sendo aceito o login pelo Nome de Exibição cadastrado. Agora, apenas pelo email e pelos integradores de Login do Facebook, Google e Microsoft. O Facebook estava com uma validação pendente e já foi normalizado o acesso, já o Google, ainda estamos verificando o que está ocorrendo que não está funcionando.
Caso precisem de ajuda para o login pelo email acesse o link << Esqueci minha senha de acesso>> ou nos envie um pedido de ajuda pelo email admin@forumrm.com.br
Administração
ForumRM
Fizemos uma atualização em 18/06/2023, e a forma de acesso ao Fórum mudou. Não mais está sendo aceito o login pelo Nome de Exibição cadastrado. Agora, apenas pelo email e pelos integradores de Login do Facebook, Google e Microsoft. O Facebook estava com uma validação pendente e já foi normalizado o acesso, já o Google, ainda estamos verificando o que está ocorrendo que não está funcionando.
Caso precisem de ajuda para o login pelo email acesse o link << Esqueci minha senha de acesso>> ou nos envie um pedido de ajuda pelo email admin@forumrm.com.br
Administração
ForumRM
Pesquisar na Comunidade
Mostrando resultados para as tags ''histórico assistencia medica''.
Encontrado(s) 2 registros
-
Função Salvavaldep Na Formula Histórico Assistência Médica
Flavia Faria postou um tópico no fórum [RM] Dúvidas e Suporte
Boa tarde, preciso adaptar a formula abaixo, com a função SALVAVALDEP e não estou conseguindo. Vcs podem me ajudar? Decl ( Cont, Valor ); SetVar ( Valor, 0); SetVar ( Cont, 0); Se ExecSQL ( '0004' ) = Verdade Entao Repita SetVar ( Cont, ResultSQL ( '0004', 'NroDepend' ) ); SetVar ( Valor, Valor + T ( '0099', NDepIdade ( Cont, MtData ( 1, Mes, ANo ) ) ) ) Ate ProxRegSQL ( '0004' ) = Falso FimSe; Valor * (-1) Att. -
Assistencia Odontológica - Tabela Dependente - Incdefiniveis
Julio Cunha postou um tópico no fórum [RM] Fórmulas dos Aplicativos
Pessoal , veja esta fórmula de "Assistencia Odontológica" , Libório cade vc mano , me ajuda ai meu filho . As regras do negócio estão ok , o problema é o SALVADEP do dependente pois o titular está tudo certo . O que acontece é que a fórmula até calcula certo o valor mas salva no dependente errado , não salva no dependente que tem o flag no "incidefiniveis " Help EXECSQL ('AOB'); EXECSQL ('AOP'); EXECSQL ('AOO'); DECL ODONTOBRONZE, ODONTOPRATA, ODONTOOURO, DEP, SOMADEP, SOMAFUN; SETVAR(ODONTOBRONZE, RESULTSQL ('AOB', 'VALOR')); SETVAR(ODONTOPRATA, RESULTSQL ('AOP', 'VALOR')); SETVAR(ODONTOOURO, RESULTSQL ('AOO', 'VALOR')); SETVAR(DEP,1); SETVAR(SOMADEP,0); REPITA SE TABDEP ('INCDEFINIVEIS' , 'B' , DEP) = NDEP(1) ENTAO SE TABDEP('NRODEPEND', 'V', DEP) >= 1 E ((TFUNC<>'T') OU (TFUNC<>'A')) E C('0412') > 0 E RC <= 1753.48 ENTAO SALVAVALDEP(DEP, (ODONTOBRONZE)*NDEP(1)) ; SETVAR(SOMADEP,SOMADEP+(ODONTOBRONZE )*NDEP(1)) SENAO SE TABDEP('NRODEPEND', 'V', DEP) >= 1 E ((TFUNC<>'T') OU (TFUNC<>'A')) E C('0413') > 0 E RC <= 1753.48 ENTAO SALVAVALDEP(DEP, (ODONTOPRATA)*NDEP(1)) ; SETVAR(SOMADEP,SOMADEP+(ODONTOPRATA )*NDEP(1)) SENAO SE TABDEP('NRODEPEND', 'V', DEP) >= 1 E ((TFUNC<>'T') OU (TFUNC<>'A')) E C('0414') > 0 E RC <= 1753.48 ENTAO SALVAVALDEP(DEP, (ODONTOOURO)*NDEP(1)) ; SETVAR(SOMADEP,SOMADEP+(ODONTOOURO )*NDEP(1)) SENAO 0 FIMSE FIMSE FIMSE FIMSE; SETVAR (DEP,DEP+1) ATE DEP = 10; SE TABCOMPL('ODONTO','S') = 'S' E ((TFUNC<>'T') E (TFUNC<>'A')) E RC <= 1753.48 E C('0412') > 0 ENTAO SALVAVALDEP(0,(ODONTOBRONZE*0.10 )); SETVAR(SOMAFUN,SOMAFUN + (ODONTOBRONZE*0.10)) SENAO SE TABCOMPL('ODONTO','S') = 'S' E ((TFUNC<>'T') OU (TFUNC<>'A')) E RC <= 1753.48 E C('0413') > 0 ENTAO SALVAVALDEP(0,(ODONTOPRATA - (ODONTOBRONZE) + (ODONTOBRONZE * 0.50))); SETVAR(SOMAFUN,SOMAFUN + (ODONTOPRATA - (ODONTOBRONZE) + (ODONTOBRONZE * 0.50))) SENAO SE TABCOMPL('ODONTO','S') = 'S' E ((TFUNC<>'T') OU (TFUNC<>'A')) E RC <= 1753.48 E C('0414') > 0 ENTAO SALVAVALDEP(0,(ODONTOOURO - (ODONTOBRONZE) + (ODONTOBRONZE * 0.50))); SETVAR(SOMAFUN,SOMAFUN + (ODONTOOURO - (ODONTOBRONZE) + (ODONTOBRONZE * 0.50))) SENAO 0 FIMSE FIMSE FIMSE; SOMADEP+SOMAFUN