Leandro_Silva
-
Total de ítens
90 -
Registro em
-
Última visita
-
Days Won
1
Tudo que Leandro_Silva postou
-
estou quase chegando la... ja ja posto aqui function TDFeWebService.Executar: Boolean; Adicionei :"Result := True;" apos a chamada do metodo SalvarResposta --------------------------- Aviso --------------------------- Erro ao transmitir GNRE! URL não definida para: TGNRERetRecepcao --------------------------- OK --------------------------- Arquivo ini esta errado ?
-
Cesar muda ai: de vGuias := vGuias + FGuias.Items.XML; pra vGuias := vGuias + FGuias.Items.GerarXML; <ns1:descricao>Lote recebido com Sucesso</ns1:descricao> vamos que vamos....
-
Problema esta aqui: ACBrGNREWebServices procedure TGNRERecepcao.DefinirDadosMsg; var i: Integer; vGuias: WideString; begin vGuias := ''; for i := 0 to FGuias.Count - 1 do vGuias := vGuias + FGuias.Items.XML; --------------------------> retonar vazio FPDadosMsg := '<TLote_GNRE xmlns="http://www.gnre.pe.gov.br">' + '<guias>' + vGuias + '</guias>' + '</TLote_GNRE>'; if Length(FPDadosMsg) > (300 * 1024) then GerarException(ACBrStr('Tamanho do XML de Dados superior a 300 Kbytes. Tamanho atual: ' + IntToStr(trunc(Length(FPDadosMsg) / 1024)) + ' Kbytes')); end; ja ja descubro o furo.. Cesar nao intendi sua pergunta...
-
Voce chegou a na parte onde gera o arquivo apenas assim: <?xml version="1.0" encoding="UTF-8"?><TLote_GNRE xmlns="http://www.gnre.pe.gov.br"><guias></guias></TLote_GNRE> ?
-
cheguei no problema da versao... Versao de dados nao suportada..
-
Value novidades vamos postar aqui ate deixa redondo, depois mandamos o fontes pros admin validar.
-
Boa tarde, ja vi esse erro acontecer por causa do ambiente, tenta transmitir em produção pra ve se da esse mesmo erro.
-
Boa tarde, a todos, estou usando o fonte que esta no svn agora, vou começa postar aqui oque tiver que arrumar e os erros que to vendo caso alguém ja tenha passado e quiser se manifestar agradeço. 1) erro Acesso violado na linha ACBrGNRE1.GuiasRetorno.Clear; Correção: classe: ACBrGNRE2 metodo: constructor TACBrGNRE.Create(AOwner: TComponent); solução: Adicionar a linha (FGuiasRetorno := TGuiasRetorno.Create(Self, nil); // ++) metodo: destructor TACBrGNRE.Destroy; adicionar linha: FGuiasRetorno.Free; depois de mecher no ini de configurações : [GNRE_PE_P] GnreRecepcao=https://www.gnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao [GNRE_PE_H] GnreRecepcao=https://www.testegnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao cheguei nesse erro em anexo.: Alguem passou por isso ?
-
Estou usando aqui até sair uma versão de acordo com os padrões.
-
Ele esta sendo destruído duas veses ai da acesso violado.
- 148 replies
-
- 1
-
-
- gnre online
- acbrgnre
- (e 1 mais)
-
O merito é todo do nosso amigo @dantemartins , ele quem migrou o pacote.
-
Olha... nao fui afundo mais dentro da pasta da minha app gerou uma pasta Docs e fica tudo ali dentro.
-
Ja passei por isso se nao me ingano é o codigo da receita faltando GNRE.c02_receita ou invalido... algo assim.
-
Segue os fontes caso tenha deixado passa algo... src.rar Arrumei tbm um acesso violado que dava... no obj: TGNRERetRecepcaoLote metodo: function Executar: Boolean; override;
-
Baxei aqui nesse topico mesmo postado pelo sr gutembergscosta
-
A mensagem anterior pode desconsiderar foi barbeiragem minha. Testes efetuados nos estados: AC,PB,RS,TO,PE,PI,AL,MT,MA,MG,SE Ajustes no fonte ACBrGNREGuiaFRDM.pas linha 296: FieldByName('DataLimitePagamento').AsDateTime := StrToDateDef(FormatarData(DataLimitePagamento),StrToDate(FormatarData(DataVencimento))); metodo: function RemoverZeros(Str: string): string; begin if Str <> '' then begin while (Str <> '') and (Str[1] = '0') do Str := Copy(Str, 2, Length(Str)); end; Result := Str; end; Faltou esse: function FormatarData(Str: string): string; begin if Trim(Str) <> '00000000' then Result := Copy(Str, 1, 2) + '/' + Copy(Str, 3, 2) + '/' + Copy(Str, 5, 4); end;
-
Boa tarde senhores, tentei fazer uns testes mais não consegui esta dando erro: 'Erro: Requisição não enviada.'#$D#$A'12045 - A autoridade de certificação não é válida ou está incorreta' tive dando uma olhada na classe ACBrGNREWebServices.pas foi modificada ? so pra constar meu pc emite nota de consumidor normal.. achei que poderia ser o capicom...
-
Exemplo do que o Juliomar disse: TACBrNFe = class(TACBrDFe)
-
Bom dia passei por isso esses dias ainda... algo semelhante a seu problema, resolvi fazendo uma classe nova pelo menos pra quebrar um galho http://www.projetoacbr.com.br/forum/topic/26016-balan%C3%A7a-toledo-200311-2090/#comment-168775
-
Boa tarde, fiz funcionar aqui na corrida.. só pra me livrar desse pepino os caras me passaram esse manual ai. ACBrBALToledo2090.pas mu_2096_industrial_3474101_rev_06_05_08.pdf
-
Bom dia, acabei descobrindo as configurações corretas para funcionar, porem o peso nao fica 100% correto string que vem da balança: '000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D 0,40 kg se tiverem alguma sugestão ficarei grato.
-
Assim que consegui vou testar com esse projeto que tenho com o trunk 2, no hiper terminal le certinhu... mais blza depois posto aqui as novidades.vlw.
-
Gostaria de saber de alguem ja implementou alguma classe para esse modelo 2003/11-2090? comunicação serial. tentei com o modelo toledo e não tive sucesso, e ainda por sorte não tenhu o equipamento para debugar log.txt
-
Icones e botões sumindo
Leandro_Silva replied to luisclaudio_jr's tópico in Object Pascal - Delphi & Lazarus
Foi entrado em contato via email mesmo. -
Icones e botões sumindo
Leandro_Silva replied to luisclaudio_jr's tópico in Object Pascal - Delphi & Lazarus
Aqui na empresa pediram também, diz que nao tem autorização pra mandar, aqui não foi mandado e eles criaram a exceção no "virus" deles ai foi so atualiza os clientes aquele modulo que sempre tem que instalar que nao deu mais isos.
