Ir para conteúdo

Iran

Membros
  • Total de itens

    6
  • Registro em

  • Última visita

Sobre Iran

Conquistas de Iran

Novato

Novato (2/10)

  • Primeiro Post
  • Iniciador de Conversa
  • Primeira Semana Concluída
  • Primeiro Mês Completo
  • Um Ano se Passou

Distintivos Recentes

0

Reputação

  1. Estou arredondado os valores de um movimento que existe vários item e quando arrendondo da diferença de debito e credito, onde credito uso a formula NU003 e debito uso a formula NU036, o problema e ao gravar o movimento a consulta SQL não traz a diferença que deveria gravar no primeiro item do movimento, segue as formulas: Credito ************************************************NU003********************************* ARREDVALOR (MOU - MDT + MDZ + MSG + MFR + VLT ('IPI') + MVT('ICMSST'),2) Debito ************************************************NU036********************************* decl f051; setvar(f051, FOR('NU051')); SE TABITM ('NSEQITMMOV' , 'V') = 1 E f051 >= - 0.35 E f051 <= 0.35 E f051 <> 0 ENTAO ARREDVALOR((KQT * KPU) - TABITM ('RATEIODESC' , 'V') + TABITM ('RATEIODESP' , 'V')+ TABITM ('RATEIOFRETE' , 'V')+ TABITM ('RATEIOSEGURO' , 'V')+ LVL ('IPI') ,2)+ARREDVALOR(FOR('NU037'),2) + f051 SENAO ARREDVALOR((KQT * KPU) - TABITM ('RATEIODESC' , 'V') + TABITM ('RATEIODESP' , 'V')+ TABITM ('RATEIOFRETE' , 'V')+ TABITM ('RATEIOSEGURO' , 'V')+ LVL ('IPI') ,2)+ARREDVALOR(FOR('NU037'),2) FIMSE ************************************************NU037********************************* ARREDVALOR((( MVT ('ICMSST') * 1000) / MVB) * (KQT*KPU)/1000,2) ************************************************NU051********************************* SE EXECSQL ('CONT_CALC') = VERDADE ENTAO FOR('NU003') - RESULTSQL ('CONT_CALC' , 'TOTALCALC') SENAO 0 FIMSE *******************************************CONT_CALC***************************** SELECT SUM(X.VALOR) TOTALCALC FROM ( select nseqitmmov, ROUND((TITMMOV.quantidade*precounitario) - (((TITMMOV.quantidade*precounitario)/TMOV.VALORBRUTO)*TMOV.VALORDESC),2) AS VALOR from TITMMOV inner join TMOV on TITMMOV.CODCOLIGADA = TMOV.CODCOLIGADA and TITMMOV.IDMOV = TMOV.IDMOV where TITMMOV.IDMOV = :IDMOV and TITMMOV.CODCOLIGADA = :CODCOLIGADA) X
  2. Edson Silva, Neste caso vem so de um item, na verdade preciso que venha o valor de todos os items, tem como? Obrigado Não posso usar SQL pois o calculo é feito antes de gravar no banco, tem que ser por formula. Obrigado
  3. Gostaria que a formula me trouxesse este mesmo resultado SELECT SUM(X.VALOR) TOTALCALC FROM ( select nseqitmmov, ROUND((TITMMOV.quantidade*precounitario) - (((TITMMOV.quantidade*precounitario)/TMOV.VALORBRUTO)*TMOV.VALORDESC),2) AS VALOR from TITMMOV inner join TMOV on TITMMOV.CODCOLIGADA = TMOV.CODCOLIGADA and TITMMOV.IDMOV = TMOV.IDMOV where TITMMOV.IDMOV = :IDMOV and TITMMOV.CODCOLIGADA = :CODCOLIGADA) X Alguém sabe como? Obrigado
  4. Ola! Conhece esta solução para Delphi?
  5. Ola! conseguiu a solução para Delphi? também estou procurando para Delphi.
×
×
  • Criar Novo...

Informação Importante

Usando este site, você concorda com nossos Termos de Uso e nossa Política de Privacidade.