adilsonpazzini

Então .. ai não seria algo que eu estou controlando , pois se trata de uma margem calculada do resultado de vários registros .. por exemplo Data Valor Venda Lucro Margem 01/07/2017 150,00 35,00 23,33% 02/07/2017 100,00 10,00 10,00% 03/07/2017 0,00 0,00 0,00 - Não Houve Venda - Porem Preciso informar esse registro .(Aqui ele da o erro por causa do Formula que ponho no RLDBResult . 04/07/2017 120,00 32,00 26,67% 05/07/2017 80,00 16,00 20,00% ----------------------------------------------------- TOTAL : 450,00 93,00 20,66% -> Aqui uso RLDBResult . e na propriedade Info:=riSimple e a propriedade DataFormula e informo "((SUM(LUCRO)/SUM(VALORVENDA))*100)" . e ai por causa daquele item que esta zerado . o FORTES fica dando erro ... se tiver o registro 03/07/2017 . nao tive-se vazio . ele nao da erro . por isso fiz essa correção . e queria ver se alguém poderia implementa-la . desde ja agradeço Adilson Pazzini

Então Daniel , ate faço isso a nível de registros , porem estou usando o RlDBResult para calcular resultado final ... o exemplo que estou tendo problemas , justamente e um relatório de venda diária , onde que quando tem venda ele ja traz a margem calculando o (lucro / valor_venda) * 100 . e ai estava fazendo isso para o Resultado Final ... e nao o por dia . que ja faço esses calculos na propria QUERY .utilizando iif da vida pra nao dar esse erro de divisao . qndo nao existir venda no dia .. Usando a Propriedade RLDBResult.DataFormula := '((SUM(LUCRO_NOVOS)/SUM(VRVENDA_NOVOS))*100)'; e setando a propriedade RLDBResult.Info := riSimple; . So se no informar essa RLDBResult.DataFormula eu poder jogar um iif .. tentei mais nao deu certo . unica forma que encontrei foi ajustando essas rotinas . incluive . o erro que apresenta e o "External:SIGFPE" no lazarus . Desde ja agradeço . Adilson Pazzini .

tem sim . sera igual o Acbr .. funcionara em Delphi e lazarus

function Empty(Value:variant):boolean; begin Result:=VarIsNull(Value) or VarIsEmpty(Value); end; function NullIf(Value:variant):variant; begin if Empty(Value) then Result:=0 else Result:=Value; end; function DivideParams(p1,p2:variant):variant; begin if Empty(p1) and Empty(p2) then Result:=Null else if P2<>0 then Result:=NullIf(p1)/NullIf(p2); end; Foi adicionado as funcoes acima e alterado a Funcao abaixo : function TRLExpressionParser.EvalNode(ANode: TRLParserNode): variant; de opDivide: Result := ANode.Children[0].Eval / ANode.Children[1].Eval; para: opDivide: Result := DivideParams(ANode.Children[0].Eval,ANode.Children[1].Eval);

Consegui Ajustar , pegando a versão antiga do Fortes .. talvez a forma que fiz . nao seja a ideal . mais se tiver alguém ai que possa ajudar .. so sei que funcionou agora . sem dar erros . Toda vez que eu pedia pra usar o RLDBResult e colocava uma formula de divisao . por exemplo . (LUCRO / VENDA) * 100 para trazer a margem ... qndo o valor nos registros eram zerados . estava dando erro .. agora fiz essa correcao ai . nao da mais erro . e funciona legal . Se tiver alguém ai que possa analisar e postar la o GitHub do Fortes eu agradeço . Adilson Pazzini . RLParser.pas

http://www.resteasyobjects.com.br/ Use a versao CORE ... tem outro topico no Acbr falando muito sobre esses componentes . tem muitos videos tambem .. acesse esse link do componente . tem muita coisa la ja . PlayList . Adilson Pazzini

CRIE uma nova pasta e use svn://svn.code.sf.net/p/acbr/code/ vai pegar tudo Trunk , branches .

Agora foi Daniel . ficou xic .. agradeço sua ajuda .. TDI ficou muito xic nas telas ... Mais uma vez obrigado . Adilson Pazzini .

Valeu Daniel .. putz desconhecia esse recurso no pascal .. mais valeu mesmo ... Adilson Pazzini . Daniel . to chamando assim : if not Assigned(veig04) then veig04 := Tveig04.Create(Self); TDINoteBook.ShowFormInPage( veig04, 4 ); e no on-close do veig04 .. inclui o codigo que vc postou procedure TVEIG04.FormClose(Sender: TObject; var CloseAction: TCloseAction); begin CloseAction := caFree; //****esse comando deve ser feito no form que foi pro TDINotebook ou tem ser jogado no formmenu principal ... ai fiz no form que foi pro TDI . e deu o erro abaixo : na hora de chama-lo novamente ; end; Desde ja agradeço Adilson PAZZINI

Boa tarde , existe algum forma de eu conseguir dar um " Form2.Free; Form2 := nil; " controlando ele ao clicar num Botao do proprio FORM2 . ou tentar fazer um controle em algum Evento pra eu identificar que o Form2 foi fechado e eu matar ele da memoria ? Desde ja agradeço . Adilson Pazzini

Valeu Bigwings . Obrigado pela dica .

Alguém ja usou esse tipo de impressora alguma vez . sabe se existe integração de maquina com software . tem um cliente meu que esta me pedindo isso . nao tenho a menor ideia .. ja vi funcionar isso em algumas lojas. mais nao tenho ideia de como funciona se alguém puder me dar um luz agradeço Cliente ta querendo que qndo um cliente for pagar um contas a receber na loja . seja autenticado por essa maquina .. ai queria saber que tipo de maquina é essa e como que faz a integracao dela com o software . Desde ja agradeço . Adilson Pazzini .

Juliomar .. valeu Irmão ... eu estava imaginando algo assim mesmo ... vou testar aqui e posto . agradeço sua dica ... Adilson Pazzini .

Vi os caras comentando algo sobre isso no grupo do Lazarus da Google https://groups.google.com/forum/#!topic/lazarus-br/l2wmf9U3aPw nao sei se o seu caso .

Precisa adicionar no Path das libs agora o caminho do Fontes/ACBrSAT/Extrato/ ai ja da certo.

Bom dia turma .. Desenvolvi um SERVIÇO (deamon) no Windows utilizando Lazarus ... esta rodando certinho .. porem estou com um problema .qndo altero a pasta de gravação do xml de vendas de c:\ que seria o local onde esta o serviço instalado , e mudo para um caminho da rede , por exemplo \\SERVIDOR\SISTEMA\VENDAS , O mesmo gera o SAT normalmente , pois consigo ver no log do acbr que foi gerado , porem ta me retornando um Exception "Unabled to open file "\\servidor\sistema\vendas\AD35170611111111111111591234567890001197721991.xml" , E acontece que gerou o Cupom Eletrônico no sat . mais não gravou o arquivo na pasta que indiquei , será que existe algum tipo de liberação que deveria fazer a nível de pastas quando se trata de SERVIÇO DO WINDOWS ao invés de aplicação . pois fiz o teste rodando como APLICAÇÃO E funciona normal . ja qndo troco para SERVIÇO . esta dando esse problema . esse problema acontece na rotina AcbrSAT.EnviarDadosVenda; . Segue abaixo como estou configurando o componente a parte de PASTAS . PATH_SAT:='\\servidor\sistema\vendas'; ConfigArquivos.PastaCFeVenda := PATH_SAT; ConfigArquivos.PastaCFeCancelamento:= PATH_SAT; ConfigArquivos.SalvarCFe := true; ConfigArquivos.SalvarCFeCanc := true; ConfigArquivos.SalvarEnvio := true; ConfigArquivos.SepararPorCNPJ := false; ConfigArquivos.SepararPorMes := true; Se alguém puder me ajudar agradeço .. Adilson Pazzini . O que fiz por enquanto para contornar , é deixar na pasta do local do serviço mesmo ex: C:\SAT\VENDAS . ai ta funcionando assim . mais queria ver se teria como gravar num servidor mesmo ..

Xic .. qndo tiver no lazarus , vou começar a usar ... Hj uso Brookframework com zeos , mais ainda não ta do jeito correto . acredito que esse componente vai deixar bem mais facil minhas conversoes ai pra essa nova arquitetura de dados . Parabéns Adilson

Para efetuar a associação da Assinatura do CNPJ da Soft house , basta efetuar o processo de associação inicial ou tem outra forma de fazer esse processo ? Desde ja agradeço . Adilson Pazzini Achei . me desculpem ..

Xyberx, Quando tiver no jeito esses recursos para Lazarus . avisa aqui por favor . Adilson Pazzini

Eu vi os Videos . mais se for utilizar pra Lazarus . qual forma vai utilizar pra carregar o protocolo HTTP no lado servidor ?

Xyberx . a linha para Lazarus , funciona igual ao pra Delphi . ou tem diferenças ? Desde ja agradeço Adilson

Achei problema , estava gerando Mensagens com os caracteres "<" e " >" e isso que estava gerando uma qtde enorme de &gt no xml . por isso que o Emulador Rejeitava . pedi pra fazer a troca de ">" para "/" e de "<" para "\" e resolveu o problema . Agradeço a ajuda de todos . Obrigado . Adilson Pazzini

Valeu Irmao .. Obrigado Ricardo .

Obrigado pela dica .Mais por desencardo, mais onde no manual ta escrito que tem que ser divido por 100 ? pois nao achei isso escrito la ... Isso eu ate vi . e percebi que nao estou estourando o esse campo . pois utilizo essa mesma observacoes para emissao de NF-e e NFCe .. Isso também nao ta influenciando no erro ,. pois estou em teste e estou conseguindo enviar normalmente com esse CNPJ . porem somente com a Mensagem curta ou com a mensagem que esta nos testes do AcbrSat ...

Então Andre . esses &gt estão vindo do próprio AcbrSat. pois nos textos estou incluindo somente o ';' para a quebra de linha . não sei se é isso que ele faz a troca e ai acaba incluindo esse monte de &gt . Desde ja agradeço . Adilson Pazzini