adilsonpazzini

Bom dia ... teria como incluir essa alteração por favor ... Adilson Pazzini .

top ... Bom dia Jose, vi que nao deu ainda para atualizar .. qndo puder te agradeço . Obrigado . Adilson Pazzini .

Deu certo Daniel .. putz valeu meu velho ... muito obrigado ... var lPoint:TPoint; begin lPoint := veig05.ClientToScreen(Point(0,0)); RlImage1.picture.Bitmap.Assign(AreaCapture(lPoint.X+5, lPoint.Y+Bevel1.Top+5, 1024, 530));

Valeu Jose .. obrigado mesmo . Adilson Pazzini

José , desculpe , mais poderia ver para commitar minhas atualizações, vi que esses dias vc commitou bastante ajustes , porem vi que o meu nao foi ainda .. se puder agradesço . 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); Adilson Pazzini

Bom dia , queria saber se alguém poderia me ajudar , estou tentando desenvolver uma funcao para capturar a tela atual . informando as coordenadas (Left, Top, Width, Height) pois ai , dando certo , conseguiria informar apenas uma parte do formulário . estou usando essa função .. function AreaCapture(Left1, Top1, Width1, Height1 : integer) : TBitmap; var ScreenDC : HDC; begin Result := TBitmap.Create; ScreenDC := GetDC(0); try try Result.Width := Width1; Result.Height := Height1; BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, ScreenDC, Left1, Top1, SRCCOPY); finally ReleaseDC(0, ScreenDC); end; except Result.Free; Result := nil; end; end; a função esta OK, o problema, esta quando vou buscar as coordenadas do formulário filho, aberto pelo TDI, pois quando vou buscar FORM2.Left e FORM2.Top, ele sempre traz como 0, 0 .. ate entendo que deveria pegar então o TOP e LEFT do formulário principal que o chamou, mais mesmo assim . não tá dando certo . não sei onde estou errando .. se alguém tiver uma ideia e puder me dar uma luz , me ajudaria muito ... Exemplo da chamada da funcao : RlImage1.picture.Bitmap.Assign(AreaCapture(dm.MENU_Left+veig05.Left+5, dm.MENU_Top + veig05.Top+Bevel1.Top+5, 1024, 530));

obrigado ....

Bom dia , existe a possibilidade de commitar minha atualizacao , pois com a alteracao , consegui homologar .. desde ja agradeço Adilson PAZZINI

Bom dia, Acima postei um Ajuste no código , alguém poderia commitar por favor .. o banco Homologou . Desde ja agradeço Adilson PAZZINI

Pelo que entendi o componente rlLogo ta com a propriedade Heigth = 1 . e quando e feito essa parte Assim deu certo Juliomar //Detalhes de Dimensionamento LogoTipo {$IfNDef NOGUI} rlLogo.Visible := LogoVisible and Assigned(ACBrSATExtrato.PictureLogo); if rlLogo.Visible then begin rlLogo.Height:=LogoHeigth+1; imgLogo.Picture.Assign( ACBrSATExtrato.PictureLogo ); imgLogo.Center := LogoCenter; imgLogo.Width := LogoWidth; imgLogo.Height := LogoHeigth; imgLogo.AutoSize := LogoAutoSize; imgLogo.Stretch := LogoStretch; end; rlLogoCanc.Visible := LogoVisible and Assigned(ACBrSATExtrato.PictureLogo); if rlLogoCanc.Visible then begin rlLogoCanc.Height:=LogoHeigth+1; imgLogoCanc.Picture.Assign( ACBrSATExtrato.PictureLogo ); imgLogoCanc.Center := LogoCenter; imgLogoCanc.Width := LogoWidth; imgLogoCanc.Height := LogoHeigth; imgLogoCanc.AutoSize := LogoAutoSize; imgLogoCanc.Stretch := LogoStretch; end; {$EndIf} Adilson Pazzini ACBrSATExtratoFortesFr.pas

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