adilsonpazzini

OK

OK Entendi , ainda esta tendo compatibilidade do Delphi7 com o Acbr ?

uso Delphi7 . qual a diferença de eu carregar um xml com true no final ou false .. AcbrNFe.NotasFiscais.LoadFromFile(busca.FileName, true); fiz uma atualizacao na sexta e se deixo vazio essa propriedade vi que ele pega automatico como false so que ao gravar no banco da erro pra gravar o blob.. percebi que quando ta como false , se tem acentos em qualquer parte das informacoes do xml , ele traz Agora se carrego o mesmo arquivo com true no final . vem certinho a parte de acentos . alias . ele arranca os acentos .. eu posso utilizar essa opcao de true no final pra gravar os xml no banco , pois sem ,. nao ta deixando . fica dando erro de "Malformed String" agora se uso o True como parametro no final . ele grava certinho . vi que ele tira os acentos no xml .. tem algum problema utilizar essa formar de carregar o arquivo xml com o true no final ? sem mais, Adilson PAzzini

Acho que o problema para união e o PIS e COFINS sobre servicos .. que ai como esta nas maos das prefeituras hj a gestao da NFSe, fica ruim para eles controlarem .talvez por isso esse projeto nacional .

Obrigado pelas respostas .. vi la que fala sobre NFCe para usar com Integrador . nao vi nada sobre NFe .. vai ter que integrar tambem NFe ?

Boa tarde . Onde posso ler sobre emissão de NFe ou NFCe para o Integrador ... existe prazo para implementação já ? Seria somente para o Estado do CEARA ? Desde ja agradeço Adilson Pazzini

Beleza Jose . obrigado pelo Retorno ... fico no aguardo . Adilson Pazzini .

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 .