adilsonpazzini

Se nao me engano , Sao Paulo , não é padrão abrasf , o componente só aceita o padrao abrasf .

OLha . eu cheguei a testar os dois , o unico inconveniente que achei mesmo no SQLdb Foi de ter que apos comitar a transacao , é ter que reconstruir as querys novamente , fora isso , tambem , nao tive problemas , ref a acentuação , vc tem que ajustar o codigo de pagina , pois lembre-se de que o lazarus é unicod , por isso vem os caracteres estranhos . Mais por costume mesmo e compatibilidade com o DELPHI7 , to usando o zeos .. e tambem nao tenho nada pra reclamar . Adilson

Uso Lazarus + ZEOS + Firebird Dialeto 1 e 3 .

Eu ja esotu utilizando ZEOS 703 para Lazarus , so tenho ainda alguns problemas devido esta ainda utilizando o dialeto 1 , mais fora isso to trabalando com ele normalmente , e tambem uma diferença que vi entre o SQLDB e o ZEOS no lazaarus é que ao comitar uma transacao , a mesma no SQLDb fecha todas os datasets abertos , ja no ZEOS isso nao acontece ... Adilson .

ok . Enviei pra eles . vamos ver se eles respondem . pelo que vi parece nao ter ainda pra itape , mais vou confirmar com eles . Obrigado Italo , acho q pelo menos o arquivo vou conseguir gerar integracao pro site pelo menos . Agradeço ., Adilson PAzzini

Itallo . Bom dia . tem como incluir a Cidade : UF: SP , Cod.Município: 3522307 , Município: ITAPETININGA para o Provedor GovDigital , pra iniciar os testes pra esta cidade .. Desde ja agradeço Adilson Pazzini .

Acabei de atualizar o componente e fazer os teste pra cidade de Capão Bonito provedor 4R . inclusive , se puder incluir la no DEMO no combo a cidade Capão Bonito/3510203/SP , mais nao ta dando certo , pelo demo informei os dados da empresa , a pasta schemas C:\Program Files\Borland\Delphi7\acbr\Exemplos\ACBrNFSe\Delphi\Schemas\4R ai tentei utilizar a opcao Gerar e Enviar Lote e tambem a Gerar e Envar NFSe , ambas deram problemas , vou postar o print de tela abaixo , caso ajude . Site Hj utilizado pra transcrever as NFSe de Capao https://capaobonito.sistemas4r.com.br/principal.aspx Adilson Pazzini .

Fiz mais uma alteração , caso alguem tenha algo a sugerir agradeco. Adilson . procedure TSISHandleException.AppException(Sender:TObject; E:Exception); var Log: TextFile; ErrCode,i,x,y :integer; AConected :boolean; ASource: TComponent; Formulario :TForm; IdentificadorQuery:tstringlist ; IdentificadorForm:tstringlist ; begin {$I-} try IdentificadorQuery := TStringList.Create; identificadorQuery.Clear ; IdentificadorForm := TStringList.Create; identificadorForm.Clear ; if TComponent(sender) is TForm then //---Pegar ... MENU01.Active Formulario := TForm(sender) else Formulario := TForm(TComponent(sender).Owner) ; AConected := false; if E is EDBEngineError then begin ErrCode := (E as EDBEngineError).Errors[0].ErrorCode; if ErrCode = 13059 then // --> 'Erro não Foi possivel Conectar com o Host' begin while not AConected do begin try //===> reconectando ............ for x := 0 to DM.DATABASE.DataSetCount-1 do begin identificadorQuery.Add(dm.DATABASE.DataSets[x].Name); identificadorForm.Add(dm.DATABASE.DataSets[x].Owner.Name); end; DM.DATABASE.Connected := false ; DM.DATABASE.Connected := true ; AConected := true; for i := 0 to Application.ComponentCount-1 do if (Application.Components[i] is TForm) then begin for y := 0 to TForm(Application.Components[i]).ComponentCount-1 do if TForm(Application.Components[i]).Components[y] is TQuery then for x := 0 to identificadorQuery.Count-1 do if (TForm(Application.Components[i]).Components[y].Name = identificadorQuery[x]) and (TForm(Application.Components[i]).Components[y].Owner.Name = identificadorForm[x]) then TQuery(TForm(Application.Components[i]).Components[y]).Open; end else if (Application.Components[i] is TDataModule) then begin for y := 0 to TDataModule(Application.Components[i]).ComponentCount-1 do if TDataModule(Application.Components[i]).Components[y] is TQuery then for x := 0 to identificadorQuery.Count-1 do if (TDataModule(Application.Components[i]).Components[y].Name = identificadorQuery[x]) and (TDataModule(Application.Components[i]).Components[y].Owner.Name = identificadorForm[x]) then //ShowMessage(identificadorForm[x] +'.'+identificadorQuery[x]); TQuery(TDataModule(Application.Components[i]).Components[y]).Open; end; except On E: Exception do begin ErrCode := (E as EDBEngineError).Errors[0].ErrorCode; if MessageDlg('Cód.Erro :'+inttostr(ErrCode)+' Formulário :'+Formulario.name+' Mensagem: '+E.Message+#13+#10+ 'Deseja tentar se Re-conectar novamente ao Banco de Dados ?', mtConfirmation, [mbYes,MbNo], 0) = mrNo then begin Break; end; end; end; end;// while ;;;; if AConected = false then Application.Terminate; end; end; finally identificadorquery.Free ; identificadorform.Free; end; {$I+} end;

Fiz assim . agora deu certo . ainda nao tive problemas . caso alguem tenha algo a sugerir agradeco. procedure TSISHandleException.AppException(Sender:TObject; E:Exception); var Log: TextFile; ErrCode,i,x,y :integer; AConected :boolean; ASource: TComponent; Formulario :TForm; IdentificadorQuery:tstringlist ; IdentificadorForm:tstringlist ; begin {$I-} try IdentificadorQuery := TStringList.Create; identificadorQuery.Clear ; IdentificadorForm := TStringList.Create; identificadorForm.Clear ; if TComponent(sender) is TForm then //---Pegar ... MENU01.Active Formulario := TForm(sender) else Formulario := TForm(TComponent(sender).Owner) ; AConected := false; if E is EDBEngineError then begin ErrCode := (E as EDBEngineError).Errors[0].ErrorCode; if ErrCode = 13059 then // --> 'Erro não Foi possivel Conectar com o Host' begin while not AConected do begin try //===> reconectando ............ for x := 0 to DM.DATABASE.DataSetCount-1 do begin ShowMessage(dm.DATABASE.DataSets[x].Name+' pai'+dm.DATABASE.DataSets[x].Owner.Name); identificadorQuery.Add(dm.DATABASE.DataSets[x].Name); identificadorForm.Add(dm.DATABASE.DataSets[x].Owner.Name); end; DM.DATABASE.Connected := false ; DM.DATABASE.Connected := true ; AConected := true; for i := 0 to Application.ComponentCount-1 do if Application.Components[i] is TForm then for y := 0 to TForm(Application.Components[i]).ComponentCount-1 do if TForm(Application.Components[i]).Components[y] is TQuery then //ShowMessage(TForm(Application.Components[i]).Components[y].Name); for x := 0 to identificadorQuery.Count-1 do if (TForm(Application.Components[i]).Components[y].Name = identificadorQuery[x]) and (TForm(Application.Components[i]).Components[y].Owner.Name = identificadorForm[x]) then //ShowMessage(identificadorForm[x]+'.'+identificadorQuery[x]); TQuery(TForm(Application.Components[i]).Components[y]).Open; except On E: Exception do begin ErrCode := (E as EDBEngineError).Errors[0].ErrorCode; if MessageDlg('Cód.Erro :'+inttostr(ErrCode)+' Formulário :'+Formulario.name+' Mensagem: '+E.Message+#13+#10+ 'Deseja tentar se Re-conectar novamente ao Banco de Dados ?', mtConfirmation, [mbYes,MbNo], 0) = mrNo then begin Break; end; end; end; end;// while ;;;; if AConected = false then Application.Terminate; end; end; finally identificadorquery.Free ; identificadorform.Free; end; {$I+} end;

Daniel agradeco sua ajuda . É fazer o seguinte ... qndo cair a conexao . o sistema detectar a queda e tentar fazer novamente a reconeccao e em caso de sucesso . reconstruir as querys . pra que o usuario nao precise ter que sair do aplicativo e entrar novamente ... Adilson Pazzini .

Seguinte pessoal , queria saber se tem alguma forma de eu capiturar Query que estavam Ativas , mais devido a Queda de Conexao do DATABASE Central , ele passou a ficar com o Status Active = false , pois to tentando fazer uma Unit que qndo der o erro de queda de conexao . o mesmo tente reconectar e reconstruir as querys que estavam abertas ... estou com um codigo que to criando pra Delphi7 e depois vou portar pra lazarus , mais que ainda . nao to conseguindo saber qual é query q estava ativa antes da queda ... vou postar o codigo e quem puder me ajudar agradeço . Adilson Pazzini procedure TSISHandleException.AppException(Sender:TObject; E:Exception); var Log: TextFile; ErrCode,i :integer; AConected :boolean; ASource: TComponent; Formulario :TForm; begin {$I-} //===== TRATAMENTO if TComponent(sender) is TForm then Formulario := TForm(sender) else Formulario := TForm(TComponent(sender).Owner) ; AConected := false; if E is EDBEngineError then begin ErrCode := (E as EDBEngineError).Errors[0].ErrorCode; if ErrCode = 13059 then // --> 'Erro não Foi possivel Conectar com o Host' // erro do proprio BDE. begin while not AConected do begin try //===> reconectando ............aq ainda utilizando o BDE ... mais estarei migrando para ZEOS tambem DM.DATABASE.Connected := false ; DM.DATABASE.Connected := true ; AConected := true; for i := 0 to Formulario.ComponentCount-1 do begin ASource := Formulario.Components[i]; if ASource <> nil then begin if ASource is Tquery then begin //ShowMessage('Formulario '+Formulario.name+' Query Name '+TQuery(ASource).name+' Active='+iif(TQuery(ASource).Active,'true','false')); if not TQuery(ASource).Active then TQuery(ASource).open; end; end; end; except On E: Exception do begin ErrCode := (E as EDBEngineError).Errors[0].ErrorCode; if MessageDlg('Cód.Erro :'+inttostr(ErrCode)+' Formulário :'+Formulario.name+' Mensagem: '+E.Message+#13+#10+ 'Deseja tentar se Re-conectar novamente ao Banco de Dados ?', mtConfirmation, [mbYes,MbNo], 0) = mrNo then begin Break; end; end; end; end; if AConected = false then Application.Terminate; end; end; {$I+} end;

Beleza Joao .. vou ver se inicio os testes amanhã . OK Obrigado .

Valeu Italo . vou fazer os testes e posto aqui . obrigadoooo .

Italo , tem como vc incluir a Cidade de Capão Bonito - SP Ibge = 3510203 , para o provedor 4R , pra eu poder fazer os testes . Desde ja agradeco . Adilson .

É . so estou me informando melhor mesmo pra poder passar certinho pro contador deles mesmo .. agradeco a todos e se tiverem mais informacoes agradeco . Adilson

Estou com um cliente novo neste estado e esta retornando o codigo 203 - Rejeição: Emissor não habilitado para emissão da NF-e , queria saber onde posso orientar o cliente pra credenciar o meu cliente pra emissao de nf-e no estado do Para . algum site , ou se é por email a solicitacao do credenciamento ou se eu estou fazendo algo errado . Desde ja agradeço . Adilson Pazzini .

Então . mais o engraçado é que até ontem estava funcionando tudo normal , quer dizer que antes estava aceitando da forma que estava sendo feito . e o pior que faço pelo mesmo modo do componente , conforme exemplo no demo , e nao vejo duplicacao de envios ... Complicado .

Estou tentando enviar um rps pro Ginfes , estava tudo OK , ai hj começou com esse erro , so pra saber se algum ja passou por isso .. Erro - Empresa ja com uma Consulta em Andamento Adilson Pazzini

Velho . Hj pra vc ter uma Base no diretorio ACBR\TRUNK . tem um programa chamado AcbrInstall.exe , que faz todo o processo pra vc , caso não consiga desse modo , tem a opcao de instalacao manual . no caso dentro das pastas trunk/fontes/AcbrNFe/Install.txt ... tem como instalar . isso acho q dentro de cada pasta do componente .. Adilson .

to com problemas aqui em tatui tambem . , Parece que a producao deles . ta dora do ar .

Então Regys . na verdade ate ref ao PAF eu vi mesmo que não há nescessidade , eu tava querendo saber mesmo é ref ao TEF , se o tef é obrigado homologar aqui no estado de SP . Adilson .

Só uma duvida ref a homologacao ... pra SP . somente é cobrado a homologacao do TEF certo ,. ref ao paf-ecf que o estado de SP não tem obrigação .. .. Agradeço Adilson

Não existe a versão 1.2 . na verdade a versao 1.2 seria a propria 1.1 q qndo pronta se tornará a 1.2 ... mais cheguei baixar e tentei instalar . mais deu erro na instalação .; PPU Loading C:\lazarus\components\fr4lazarus\FastScript\lib\i386-win32-win32\fs_itools.ppu PPU Invalid Version 134 fs_ipascal.pas(19,22) Fatal: Can not find unit fs_itools used by fs_ipascal. Check if package fs_lazarus is in the dependencies. .

Agradeço a ajuda de todos e ao Gilson Nunes , inclui a correção la no BugTracker do FPC/Lazarus , e ja atualizaram o componente com a correção . Mais uma vez agradeço . Adilson Pazzini

Postei la ja .. agradeço a todos . Adilson Pazzini