adilsonpazzini

Boa tarde Juliomar .. fiz o teste aqui tambem . e acabei de pegar uma versao atualizada ... so que uso o Lazarus ... realmente nao esta imprimindo o logo ...fiz o teste pelo proprio DEMO . Da impressao que o logo foi diminuido pra um pequena linha ai .. Segue anexo tela do teste .

Daniel . desculpe ... consegui atualizar aqui , usando a versao 1.8 RC4 ... funcionou normal . a unica coisa que fica dando agora . e ref ao FileUtil , que tem que trocar para LazFileUtils ref ao comando FileExistsUTF8 .

Obrigado pelo Retorno . Então Daniel . este estou usando o 1.7 (uma que baixei pelo Trunk por causa do FPC 3.1.1 devido alguns componentes que preciso que roda com essa versao) ja faz algum tempo, ta pra sair ai a 1.8 R5 que seria a 1.7 ... Mais não esta dando problema ao Compilar a biblioteca AcbrComum . consigo compilar todas . mais na hora que ele vai fazer o Build pra contruir o Lazarus ai e que está dando o problema . Ate vi que o diretorio estava incluido .. mais nao sei o que ta acontecendo que nao ta recompilando . faço com Clean All Pra vc ai não ta dando esse problema ? Desde ja agradeço . Adilson Pazzini .

Segue Print do erro . tentei incluir os caminho do diretorio do GZIPUtils de terceiros dentro do pacote AcbrComum lpk . mais mesmo assim nao deu certo .

Fiquei confuso . to com problemas para instalar acbr no lazarus 1.7 . Ta dando falta da Unit GZIPUtils, ate tentei incluir ela no AcbrComum lpk . Mais mesmo assim . parece nao adiantar , ai vi que ZLIBEXGz nao é compativel com Lazarus . nao sei se trata do mesmo arquivo , conforme configuracao do ACbr.inc ... {$IfNDef FPC} {$IfNDef DELPHIXE2_UP} {$Define USE_ZLibExGZ} {$EndIf} {$Else} {$UnDef USE_ZLibExGZ} // ZLibExGZ não é compatível com FPC {$EndIf} Se alguem puder me ajudar agradeço Adilson PAZINI C:\lazarus\lazarus\components\acbr\Fontes\ACBrComum\ACBrCompress.pas Erro : ACBrCompress.pas(48,4) Fatal: Cannot find GZIPUtils used by ACBrCompress. Check if package ACBrComum is in the dependencies.

Boa tarde . estou usando com Lazarus . Usando impresao em Fortes, modelo SL-300S Sweda . configurei como : Largura=280 MargemTopo=2 MargemFundo=2 MargemEsquerda=2 MargemDireita=2 Tentei com Largura = 300 , Diversas Configuracoes . da impressao que sai sempre do mesmo jeito , nao ta saindo tambem o Logo .. Nao sei o que fazer . se algum tiver algo parecido e puder me ajudar agradeço . Desde ja agradeço Adilson PAZZINI

Ajuste para o Envio Layout 400 . Quando informado Parcela no titulo, estava pegando sempre '01' mesmo informando o numero de parcela superior a 1. Ajuste na linha inicio : 845 . de Result := Result+PadLeft(NossoNum, 10, '0')+ // 38 a 57 - Carteira PadLeft('01', 02, '0')+ PadLeft(wModalidade, 02, '0')+ '4'+ Space(5); para Result := Result+PadLeft(NossoNum, 10, '0')+ // 38 a 57 - Carteira PadLeft(inttostr(ifthen(parcela=0,1,parcela)), 02, '0')+ //PadLeft('01', 02, '0')+ PadLeft(wModalidade, 02, '0')+ '4'+ Space(5); Segue anexo o arquivo ACBrBancoBancoob.pas alterado . ACBrBancoBancoob.pas

Beleza Elton . obrigado .

Valeu Em Rafael e Elton. muito obrigado pela ajuda .. o q tentei achar esse fonte pelo GitHub .e nao consegui . tanto que qndo entra no Promet ERP . nao aparece esses diretórios que vc listou .. mais blz . ja me ajudou muito . Obrigado mesmo . Adilson PAZZINI .

Entendi .. Blz Valeu Elton ... vou ver o que sera melhor .. ate achei que o Pessoal do PROMET utilizava algum componente aberto pra isso tambem .. mais blz

Valeu Elton, vi esse aqui http://exontrol.com/cart.jsp?product=eXG2antt/NET/ANY&license=SINGLE Talvez de certo para Lazarus. Obrigado .

Agradeço sua resposta Rafael .. ate vi , o Visual Planit . porem o que eu tava tentando ver e se com ele daria pra montar telas assim : as imagens inclusive sao do ERP Promet . porem nao consegui abrir os fontes ainda dele . e achar qual e o componente que eles estao usando . conforme link tambem : Desde ja agradeço . Adilson Pazzini

Bom dia , alguem sabe se existe esse mesmo componente e um demo para Lazarus ? Gantt Chart Desde ja agradeço . Adilson Pazzini

Uso também já a muito tempo . Já me adaptei bem ao Lazarus . uso com ZEOS, Acbr, FortesReports CE, Rx Lib, TDI . e futuramente REST Dataware . Adilson Pazzini

Pelo Github me responderam que da pra fazer assim : Uma função para o expressionparser é uma expressão associada a um símbolo com parâmetros, na forma: "NOME(P1,P2,...,Pn)=EXPRESSÃO". Ex.: Min(p1,p2)=If(p1<p2,p1,p2) No seu caso seria IF(SUM(VALORVENDA)>0,((SUM(LUCRO)/SUM(VALORVENDA))*100),0) e funcionou . Agradeço Adilson Pazzini

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