adilsonpazzini

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

Elton o pessoal la do forum do lazarus (Gilson Nunes) , me ajudaram a resolver o problema . na Funcao IsValidChar incluido as seguintes linhas {+} if S[1] = DecimalSeparator then {+} s := '0' + s; ai resolvel o problema , agora queria saber se tem como enviar essa correção para o repositório http://sourceforge.net/projects/lazarus-ccr/ da rxlib para lazarus . function TCustomNumEdit.IsValidChar(Key: Char): Boolean; var S: string; ASelStart, SelStop, DecPos: Integer; RetValue: Extended; begin Result := False; S := EditText; GetSel(ASelStart, SelStop); System.Delete(S, ASelStart + 1, SelStop - ASelStart); System.Insert(Key, S, ASelStart + 1); S := TextToValText(S); DecPos := Pos(DecimalSeparator, S); if (DecPos > 0) then begin ASelStart := Pos('E', UpperCase(S)); if (ASelStart > DecPos) then DecPos := ASelStart - DecPos else DecPos := Length(S) - DecPos; if DecPos > Integer(FDecimalPlaces) then Exit; if S[1] = DecimalSeparator then s := '0' + s; end; Result := IsValidFloat(S, RetValue); if Result and (FMinValue >= 0) and (FMaxValue > 0) and (RetValue < 0) then Result := False; end; Desde ja agradeço , Adilson Pazzini .

Os dois exemplos , um em lazarus e outro em Delphi , estou utilizando o Edit mesmo , mais com as funções do CurrencyEdit , pra ficar facil emular o problema . Q no caso ao digitar a virgula por primeiro , sem nenhum numero antes , no delphi passa mais no lazarus nao passa . ambos os testes estao anexados para testar . Desde de já agradesco . Adilson Pazzini . curedit_lazarus.zip curedit_delphi.zip

Entao Elton , agradeço a dica . é que como estou convertendo meus projetos de delphi pra lazarus . preciso ajusta esse componente por enquanto , isso pra ir saindo do delphi mesmo pra lazarus . como ja uso em delphi , e tem no lazarus . por isso q to querendo ver se ajusto o erro ... a quem puder me ajudar . descobri que o problema esta na função : function IsValidFloat(const Value: string; var RetValue: Extended): Boolean; var I: Integer; Buffer: array[0..63] of Char; begin Result := False; for I := 1 to Length(Value) do if not (Value in [DecimalSeparator, '-', '+', '0'..'9', 'e', 'E']) then begin ShowMessage(Value); Exit; end; Result := TextToFloat(StrPLCopy(Buffer, Value, SizeOf(Buffer) - 1), RetValue, fvExtended); ///-- a mesma no delphi retorna TRUE,. ja no lazarus , ta retornando FALSE ... end; q esta na unit curredit , e na verdade qndo digito a virgula , a funcao TextToFloat(StrPLCopy(Buffer, Value, SizeOf(Buffer) - 1), RetValue, fvExtended); ta retornando falso , no delphi , essa mesma funcao retorna true ... alguem sabe me dizer o porque ? Desde ja agradeço . Adilson PAZZINI

Alguem utiliza esse componente em projeto , pois como vim do Delphi e agora estou portando minhas aplicacoes pra Lazarus , percebi que esse componente pra lazarus . ta com um problema , ao digitar a Virgula . ele nao dispara nada no CurrencyEdit , so se tiver um valor antes numerico antes, ex: 0, ... caso eu tente digitar a virgula sem ter nenhum valor . ele nao aceita ... isso no DELPHI nao acontece , .alguem sabe como resolver esse problema nesse componente , ou se tem algo melhor pra ser usado ? Desde ja agradeço . Adilson PAZZINI

Seguinte fiz conforme o Regys falou . ai deu certo . if key = VK_RETURN then begin Key := 0; ModalResult := MROK ; end; Ref ao que o Daniel falo eu havia feito . Propriedade AUTOADVANCE=aaNone mais mesmo assim . ele continuava movendo pro proximo registro . o duro que estou convertendo do Delphi pro Lazarus . e tenho muitas telas utilizando esse tipo de acao . qndo ao pressionar a tecla ENTER . ele abria o registro . mais no Lazarus ele move pro proximo e ai mostra o item seguinte . em vez do que eu pressionei . Mais se tiverem mais dicas pra resolver agradeço .... Desde ja agradeço . Adilson Pazzini .

Boa pessoal . to com um problema aqui no DBGrid do lazarus. qndo pressiono o ENTER no grid . ele ta movento pro proximo registro , nao tem como nao fazer isso ? pois inclui uma opcao q ao clicar no ENTER ele chame outra tela com os detalhes do GRID . mais ao clicar ele posiciona sempre no proximo ai sim executa o keydown ... desde ja agradeço Adilson PAZZINI