Tercio Lins

Boa tarde. Alguém que usa o Lazarus e a RxNew, já conseguiu instalar(RxNew) no windows 8 ou Windows 10. Ele compila, mas quando vai instalar ocorre um erro de incompatibilidade na ...Lib\i386-win32\RxNew.pp No Windows 7 instalei normal. Grato, Tércio Lins.

Boa noite à todos. Resolvi o problema. Depurando e verificando o conteúdo do "valor", verifiquei que o erro acontecia quando o conteúdo do número do ecf era enviado. eu estava colocando o número do fabricante(BE091310100011******), e não o número registrado na sefaz(004). Grato.

Obrigado Ricardo. Estou pensando justamente em usar o ACBrNFeMonitor para fazer essas devoluções, até resolver esse problema.

Boa noite. Atualizei os componentes pelo SVN e ainda continua com o mesmo erro. Alguém saberia dizer o que ocorre? Grato.

Boa Tarde. Vou relatar um erro na devolução de saída. O interessante é que só ocorre quando é referenciado um Cupom Fiscal. 'Could not convert variant of type (string) into type(Boolean)' Prestem atenção que a mensagem se refere a um campo boolean. Porém o erro ocorre na parte que trata campo do tipo integer. procedure TGerador.wCampo( tcInt : begin // Tipo Inteiro ConteudoProcessado := IntToStr(valor); EstaVazio := (valor = 0) and (ocorrencias = 0); if min = Limite then begin ConteudoProcessado := StringOfChar('0', 60) + ConteudoProcessado; ConteudoProcessado := copy(ConteudoProcessado, length(ConteudoProcessado) - Limite + 1, Limite); end; end; Fiz o seguinte teste: Montei a NFe com a finalidade=4 e não referenciei o cupom. A NFe foi aprovada. Desde já agradeço.

Resolvi criar um tópico novo.

Boa tarde. O local correto: with Ide.NFref.Add do begin if(MODELO='55')then refNFe:=CHAVE NFe else if(MODELO='2D')then begin RefECF.modelo := MODELO(Cupom); RefECF.nECF := NUMECF; RefECF.nCOO := COO; end else if(MODELO='1')or(MODELO='1A')then begin RefNF.cUF := 0; // | RefNF.AAMM := ''; // | RefNF.CNPJ := ''; // | RefNF.modelo := 1; // |- NFe Modelo 1/1A RefNF.serie := 1; // | RefNF.nNF := 0; // | end else if(MODELO='PR')then begin RefNFP.cUF := 0; // | RefNFP.AAMM := ''; // | RefNFP.CNPJCPF := ''; // | RefNFP.IE := ''; // |- NF produtor Rural RefNFP.modelo := ''; // | RefNFP.serie := 1; // | RefNFP.nNF := 0; // | end; end;

Boa noite a todos. Atualizei e está OK. Rodimar, quando compilei ocorreu uma mensagem que acredito que seja a mesma. Criei uma nova pasta e Atualizei todos os componentes, compilei e não ocorreu mais a mensagem. Grato.

Obrigado Daniel.

Boa tarde Ítalo. pcnRetDistDFeInt.pas(57,51) Fatal: Cannot find unit ZLibExGZ used by pcnRetDistDFeInt of package PCN2.

Boa tarde. Atualizei hoje os componentes pelo SVN e ocorreu um erro na unit pcnRetDistDFeInt. uses SysUtils, Classes, {$IFNDEF VER130} Variants, {$ENDIF} pcnAuxiliar, pcnConversao, pcnLeitor, synacode, ZLibExGZ; //, IdCoderMIME; Eu uso o Lazarus no Windows. Desde já agradeço.

boa tarde Juliana. O contato é por email. Eles pedem para enviar os Boletos para que analisem. Na medida em que vão encontrando desconformidade, retornam pedindo as alterações.

Boa noite Juliana. Desculpe a demora. Como não havia nenhuma resposta, não olhei mais a postagem. segue o que eu recebi do suporte BB. Em 26.12.2014 15:43, [email protected] escreveu: Boa Tarde! Analisamos um boleto e verificamos: 01 - DADOS DO CONVÊNIO ------------------------ Detalhamento do Convenio ---------------------------- Cart/Variacao : 18/019 SIMPLES SEM REGISTRO Tipo Convenio : 4 Cliente: Numera, emite e expede Situacao : 5 Encerrado sem retorno Nr.Convenio : XXXXXXX ------------------------------------------------------------------------------ - Solicitar ao Gerente de Relacionamento a atualização da SITIUAÇÃO do comvênio para "ATIVO" 02 - ANÁLISE DO BOLETO Verifique na diagramação do boleto: CAMPO NOME DO BANCO DESTINATÁRIO: Deve ser obrigatoriamente indicado na margem superior esquerda da Ficha de Compensação (Banco do Brasil SA), podendo conter também o logotipo do Banco CAMPO LOCAL DE PAGAMENTO: Deve apresentar a expressão 'PAGÁVEL EM QUALQUER BANCO ATÉ O VENCIMENTO' AGÊNCIA/CÓDIGO CEDENTE : Informe o prefixo da agência e número da conta de relacionamento com o BB no formato AAAA-Z / CCCCC-Z, assim sendo xxxx-x / 50805-5 André Luiz Benigno Unidade de Apoio _________________________________________ BANCO DO BRASIL S/A Centro de Serviços de Suporte Operacional - CSO 0800 729 0500 - Demais localidades 3003 0500 - Capitais [email protected] Antes de imprimir, pense em sua responsabilidade com o meio ambiente.

Boa tarde. Enviei Boleto para homologação e retornaram que seria necessário colocar o endereço do cedente na última parte(que contém o código de barras). Uso o Lazarus (Laz e Fortes), e só imprime o endereço na parte intermediária, quando com o comprovante de entrega. Observação:A impressão no Fortes está correta. Nova solicitação: 02 - ANÁLISE DO BOLETO AGÊNCIA/CÓDIGO CEDENTE : Informe o prefixo da agência e número da conta de relacionamento com o BB no formato AAAA-Z / CCCCC-Z, A função no ACBr: function TACBrBancoBrasil.MontarCampoCodigoCedente ( const ACBrTitulo: TACBrTitulo ) : String; begin Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+ IntToStrZero(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0),8)+'-'+ ACBrTitulo.ACBrBoleto.Cedente.ContaDigito; end; Mudei para 5: IntToStrZero(StrToIntDef(ACBrTitulo.ACBrBoleto.Cedente.Conta,0),5)+'-'+ Assim ficou melhor(se quantidade de dígitos da CC for maior que 5). IntToStr(StrToInt(ACBrTitulo.ACBrBoleto.Cedente.Conta))+'-'+

Bom dia. Estava ocorrendo o erro "Rejeicao: NFC-e com Data-Hora de emissao atrasada". Comparei o horário do retorno e estava igual ao do computador. Ide.dEmi:=now; Ide.dSaiEnt:=now; Ide.hSaiEnt:=now; <?xml version="1.0"?> -<retEnviNFe versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe"> <tpAmb>2</tpAmb> <verAplic>AM3.10-NAC</verAplic> <cStat>103</cStat> <xMotivo>Lote recebido com sucesso</xMotivo> <cUF>13</cUF> <dhRecbto>2014-11-25T10:36:34-04:00</dhRecbto> -<infRec> <nRec>130000005676039</nRec> <tMed>230</tMed> </infRec> </retEnviNFe Analisando o arquivo TXT, independente se eu adiantasse ou, atrasasse a hora, continuava o mesmo: NOTA FISCAL|1 B|13|00000001|VENDA DE MERCADORIA DENTRO DO ESTADO ADQUIRIDA OU RECEBIDA D|0|65|1|1|2014-11-25T00:00:00-04:00||1|1|1302603|4|1|6|2|1|1|1|0|2.2.19|| XML: <mod>65</mod> <serie>1</serie> <nNF>1</nNF> <dhEmi>2014-11-25T00:00:00-04:00</dhEmi> Na unit pcnLayoutTXT // function CarregarLayoutTXT else if versao = '2.00' then begin B|cUF¨|cNF¨|NatOp¨|indPag¨|mod¨|serie¨|nNF¨|dEmi¨|dSaiEnt¨|hSaiEnt¨|tpNF¨|cMunFG¨|TpImp¨|TpEmis¨|CDV¨|TpAmb¨| FinNFe¨|ProcEmi¨|VerProc¨|dhCont¨|xJust¨'); //ok else if versao = '3.10' then begin B|cUF¨|cNF¨|NatOp¨|indPag¨|mod¨|serie¨|nNF¨|dhEmi¨|dhSaiEnt¨|tpNF¨|idDest¨|cMunFG¨|tpImp¨|tpEmis¨|CDV¨|tpAmb¨|fi nNFe¨|indFinal¨|indPres¨|procEmi¨|verProc¨|dhCont¨|xJust¨'); Alterei o da versão 3.10 para hSaiEnt, e o horário saiu correto. NOTA FISCAL|1 B|13|00000001|VENDA DE MERCADORIA DENTRO DO ESTADO ADQUIRIDA OU RECEBIDA D|0|65|1|1|2014-11-25T10:55:30-04:00||1|1|1302603|4|1|6|2|1|1|1|0|2.2.19|| Alguém poderia conferir para confirmar, ou não, e alterar se for o caso. Grato Tércio Lins.

Boa tarde. Uma dúvida: Será necessário referenciar uma devolução de venda de mercadoria? Algumas empresas juntam vários itens de algumas NF e emitem só uma, sempre que o cliente é pessoa física. Grato.

Boa noite. Os componentes nativos permanecem, só ocorre com os instalados posteriormente à instalação do Lazarus. Vou remover e instalar outra vez.

Boa tarde Daniel. Fiz o procedimento e ele recompila os componentes, ao sair e iniciar, os componentes desaparecem. Não é problema executar o procedimento ao iniciar, é rápido. Grato, Tércio Lins.

Bom dia Daniel. Eu consegui usando: {$IFDEF FPC} ,dynlibs, LazUTF8, LCLType {$ENDIF} {$IFDEF MSWINDOWS} ,Windows, ShellAPI {$ENDIF} Usei essas condições do ACBr para me orientar. A unit LCLType é a que eu precisava para Dialogar(Mensagens) e outros. Por enquanto resolvi este problema. Está ocorrendo que quando instalo o ACBr e outros componentes roda tudo certo. Quando fecho o Lazarus e abro outra vez, os componentes desaparessem. Abro o datamodule com os componentes e gera um erro listando os componentes marcados para instalar. confirmo a instalação e são instalados. O que pode estar ocorrendo? Grato, Tércio Lins.

Bom dia Italo. Atualizei pelo SVN e na unit pnfsNFSeW na linha 828: if AProvedor in [proAraucaria, proDBSeller, proPublica] then FIdentificador := 'id'; Erro: Variável AProvedor no Lugar FProvedor. Tércio Lins.

Boa noite. Já trabalho com o Lazarus no windows, agora quero migrar para o Ubuntu. Instalei alguns componentes do ACBr sem problemas. Estou com dificuldade para substituir algumas funções que estão em Unit como Windows. Onde posso encontrar alguma informação que indique qual Unidade para o Ubuntu? Grato, Tércio Lins.

Boa noite Juliomar. Eu copiei a parte posterior do código, desculpe-me. Foi esta parte que eu tirei o comentário. // Para Usar os componentes de nota fiscal com openssl descomente as linhas abaixo //-------------------------------------------------------------------------------- {$DEFINE ACBrNFeOpenSSL} {$DEFINE ACBrCTeOpenSSL} {$DEFINE ACBrNFSeOpenSSL} {$DEFINE ACBrMDFeOpenSSL} {$DEFINE ACBrGNREOpenSSL} Como eu não estou conseguindo validar e, conseguentemente transmitir a NFe, eu fiz um Monitor em Delphi para fazer todo o processo de envio. Neste caso uso o Capicom. Não sei se precisaria desabilitar alguma coisa. Grato, Tércio Lins.

Boa tarde Juliomar. Eu uso o Lazarus-1.3-44691-fpc-2.6.2-20140412-win32. Tirei os comentários do ACBr.inc: {$IFDEF FPC} {$DEFINE ACBrNFeOpenSSL} {$DEFINE ACBrCTeOpenSSL} {$DEFINE ACBrNFSeOpenSSL} {$DEFINE ACBrMDFeOpenSSL} {$DEFINE ACBrGNREOpenSSL} {$DEFINE VCL} {$DEFINE UNICODE} // Lazarus 0.9.26 usa UnicodeString como default para String {$DEFINE DELPHI7} {$DEFINE COMPILER7} {$H+} {$ELSE} {$DEFINE BORLAND} {$ENDIF} Consigo verificar o status na Sefaz. Pode está faltando algo, não consegui achar. Grato, Tércio Lins.

Boa noite. Está ocorrendo um erro quando eu tento validar um XML no Lazarus. Uso o certificado A1. Ele assina, mas quando valido o XML ocorre o erro "'xs:base64Binary''. Só ocorre no Lazarus, o mesmo XML é validado no Delphi. O erro ocorre em xmlDocGetRootElement(doc) function ValidaLibXML(const AXML: AnsiString; var AMsg: AnsiString; const APathSchemas: string = ''; AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): Boolean; doc := xmlParseDoc(PAnsiChar(Axml)); if ((doc = nil) or (xmlDocGetRootElement(doc) = nil)) then begin AMsg := 'Erro: unable to parse'; Result := False; exit; end; Se alguém tiver uma dica, agradeço. Tércio Lins.

Boa terde KikoMeurer. Estou com o mesmo problema usando o Lazarus. Você já resolveu o problema? Grato, Tércio Lins.