Lindomar

Consegui resolver também fazendo a mesma coisa. Agora está OK.

Estou tendo o mesmo problema com o XE8

Boa tarde. Recentemente atualizei o acbr e voltou os erros no registros c481/c485. O codigo abaixo é o formato antigo que funcionava 100% sem que fosse preciso setar as variáveis pois o mesmo já setava de acordo com a cst recebida. Gostaria que avaliassem a possibilidade de manter o codigo abaixo. Isso vale para o código do registro c485 também. A unit atual não possui as linhas em vermelho. procedure TBloco_C.WriteRegistroC481(RegC405: TRegistroC405); var intFor: integer; NullVL_BC_PIS: Boolean; NullALIQ_PIS: Boolean; NullQUANT_BC_PIS: Boolean; NullALIQ_PIS_QUANT: Boolean; NullVL_PIS: Boolean; begin NullVL_BC_PIS := False; NullALIQ_PIS := False; NullQUANT_BC_PIS := False; NullALIQ_PIS_QUANT := False; NullVL_PIS := False; //-- if Assigned(RegC405.RegistroC481) then begin for intFor := 0 to RegC405.RegistroC481.Count - 1 do begin with RegC405.RegistroC481.Items[intFor] do begin if Assigned(FOnBeforeWriteRegistroC481) then begin FOnBeforeWriteRegistroC481( RegC405.RegistroC481.Items[intFor], NullVL_BC_PIS, NullALIQ_PIS, NullQUANT_BC_PIS, NullALIQ_PIS_QUANT, NullVL_PIS); end else begin NullVL_BC_PIS := ( CST_PIS in [ stpisQtdeAliquotaUnidade, stpisIsentaContribuicao, stpisSemIncidenciaContribuicao, stpisSuspensaoContribuicao ]); NullALIQ_PIS := ( CST_PIS in [ stpisQtdeAliquotaUnidade, stpisIsentaContribuicao, stpisSemIncidenciaContribuicao, stpisSuspensaoContribuicao ]); NullQUANT_BC_PIS := ( CST_PIS <> stpisQtdeAliquotaUnidade ); NullALIQ_PIS_QUANT := ( CST_PIS <> stpisQtdeAliquotaUnidade ); end; Add( LFill('C481') + LFill(CstPisToStr(CST_PIS)) + LFill(VL_ITEM,0,2) + DFill(VL_BC_PIS, 2, NullVL_BC_PIS) + DFill(ALIQ_PIS, 4, NullALIQ_PIS) + DFill(QUANT_BC_PIS, 3, NullQUANT_BC_PIS) + DFill(ALIQ_PIS_QUANT, 4, NullALIQ_PIS_QUANT) + LFill(VL_PIS,0, 2, NullVL_PIS) + LFill(COD_ITEM) + LFill(COD_CTA) ) ; // RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1; end; end; // Variavél para armazenar a quantidade de registro do tipo. FRegistroC481Count := FRegistroC481Count + RegC405.RegistroC481.Count; end; end;

Pessoal O que o Hallysson postou no link abaixo funciona 100%. Estava com o mesmo problema apos atualizar o acbr:

Olá, Estava tendo problemas também. Inclusive uma outro colega reproduziu uma nota minha que estava dando erro e ele conseguiu enviar sem dificuldade. Então fui na minha pasta de schemas e exclui (shift+delete) mesmo já ter atualizado varias vezes. Depois copiei os schemas da pasta do Acbr e de deu certo. atc,

Digowarta, Atualmente possuo 3 opções para improtar o xml. 1-referenciando cnpj X cod.fornecedor X cod.proprio 2-utilizando o GTIN do xml 3-ordem de compra gerada pelo meu ERP. Quando há informação na tag cEAN utilizo, caso contrário utilizo a tag cProd, pois pode haver no xml as duas condições. Apenas para complementar o que o colega juaumkiko comentou, quando utilizo a importação pela ordem de compra, obrigatoriamente é exigido o xml. Nesse caso é efetuada uma consistencia entre a ordem de compra no sistema e as informações que estão no xml (quantidade de itens, valores: unitários, descontos, aliquotas; forma de pagamento, quantidade de parcelas etc). Caso o sistema encontre alguma divergência é gerado um log, mas o sistema não impede que seja feita a importação, nesse caso ele seguirá o xml, é claro que com autorização. atc,

jonataspadua, Assim como alguns colegas aqui já comentaram e é de conhecimento de todos o envio do xml ao destinatario tem respaudo por lei, logo o fornecedor é obrigado por força de lei a enviar ao destinatário. Presumo que o seu ERP emita NFE e que o mesmo envie automaticamente o xml e pdf ao destinatário. Eventualmente quando sou questionado porque meu ERP não baixa o xml cdo portal assim como inúmeros outros fazem, simplesmente envio a lesgislação para ele ler. O que os outros fazem é rackear a página de consulta, sendo que o xml que é baixado dessa forma não tem validade, sendo assim tenha certeza que se der algum problema com esse xml (validação, escrituração, etc) a corda rebentará para quem baixou. atc,

Logo quando comecei a implementar a nfe no nosso ERP, antes mesmo de acrescentar essa funcionalidade no sistema fizemos inumeros testes. Claro que a nossa intenção sempre é atender da melhor forma possível o nosso cliente, mas essa alteração que foi feita não foi a unica, não me recordo quando mas lembro que enquanto estavamos fazendo testes houve mudanças na pagina e não conseguimos recuperar o xml corretamente foi quando decidimos não implementar esse recurso no nosso sistema, pois estariamos refens do governo, pois toda vez que fosse feita alterações na pagina poderiamos sofrer reclamações dos clientes que por sua vez não sabem o procedimento que é utilizado, para eles é problema no sistema e teriamos que resolver. Quando eramos questionados porque alguns sistemas tinha esse recurso e o nosso não aí explicávamos a motivo. Esse tipo de opção é obrigação do governo disponibilizar aos contribuintes, que por sua vez se procurassem se informar saberiam que é lei o envio do xml pois ele é a nota eletronica e a escrituração tem que ser feita com base no xml e não no danfe. Abraços,

inicio de minha unit: unit modIntegracaoFiscal; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IniFiles, uFuncoes, ComCtrls, pngimage, ExtCtrls, StdCtrls, CheckLst, jpeg, Dateutils, db, ACBrSpedFiscal, ACBrEFDBlocos, ACBrSpedPisCofins, ACBrEPCBlocos; Pis/Cofins with ACBrSPEDPisCofins1.Bloco_0 do begin // Dados da Empresa with Registro0000New do begin COD_VER := ACBrEPCBlocos.vlVersao101; if rgpCriterioApuracao.Enabled then IND_REG_CUM := ACBrEPCBlocos.TACBrCodIndCritEscrit(rgpCriterioApuracao.ItemIndex); Fiscal with ACBrSpedFiscal1.Bloco_0 do begin // Dados da Empresa with Registro0000New do begin COD_VER := vlVersao103; COD_FIN := ACBrEFDBlocos.raOriginal; IND_PERFIL := ACBrEFDBlocos.TACBrPerfil(dmDBEXMaster.sqqFilial.FieldByName('PERFIL_SPED').AsInteger); if dmDBEXMaster.sqqFilial.FieldByName('TIPO_EMPRESA').AsInteger = 0 then IND_ATIV := ACBrEFDBlocos.TACBrAtividade(dmDBEXMaster.sqqFilial.FieldByName('TIPO_EMPRESA').AsInteger) else IND_ATIV := ACBrEFDBlocos.TACBrAtividade(1); Foi a maneira que encontrei, até porque estava numa correria assim como todos nós e num tive tempo pra tentar de outra forma. ACBrEPCBlocos.vlVersao101 (ACBrEPCBlocos para referenciar pis cofins) ACBrEFDBlocos.vlVersao103 (ACBrEFDBlocos. para refrenciar fiscal) atc,

seguinte, alterei a linha 200 da unit pcnCCeNFE: Gerador.wCampo(tcStr, 'HP13', 'dhEvento', 001, 050, 1, FormatDateTime('yyyy-mm-dd"T"hh:nn:ss',Evento.Items[i].InfEvento.dhEvento)+'-03:00'); para: Gerador.wCampo(tcStr, 'HP13', 'dhEvento', 001, 050, 1, FormatDateTime('yyyy-mm-dd"T"hh:nn:ss',Evento.Items[i].InfEvento.dhEvento)+'-02:00'); não sei se esse seria o modo correto mas no momento é o que resolveu. Lindomar

sou do ES aqui utilizamos horario de verao. encontrei o mesmo problema referente a hora. aqui é 13:30 mas voltei 1 hora e a carta foi validada com sucesso. ao consultar a nf-e em homologação e contrei no site as seguintes informações: OCORRANECIA PROTOCOLO Data/Hora Rec. no Ambiente Nacional Carta de correção eletronica 432110000253517 03/11/2011 14:13:49 03/11/2011 13:13:50 como disse eu vltei 1 hora no meu pc, ele agora esta marcando 12:34. Se alguem souber de onde apareceu o horario de 14:13:49 na ocorrencia... caso queiram consultar segue a chave da nfe: 32111128428233000109550010000080011000080017 Lindomar

recompilei mas continua o msmo problema... vou fazer o seguinte: 1-baixar novamante do svn :https://acbr.svn.sourceforge.net/svnroot/acbr/trunk 2-remover todos os bpl's da pasta: C:\Users\Public\Documents\RAD Studio\7.0\Bpl (windows 7) 3-remover todas as referencias do acbr do Delphi 2010 4-reinstalar tudo novamente. depois posto aqui o resultado. obrigado regys. Lindomar tudo ok regsys, seguindo sua orientação e os passos acima, deu tudo certo. obrigado pela atenção. Lindomar

recompilei mas continua o msmo problema... vou fazer o seguinte: 1-baixar novamante do svn :https://acbr.svn.sourceforge.net/svnroot/acbr/trunk 2-remover todos os bpl's da pasta: C:\Users\Public\Documents\RAD Studio\7.0\Bpl (windows 7) 3-remover todas as referencias do acbr do Delphi 2010 4-reinstalar tudo novamente. depois posto aqui o resultado. obrigado regys. Lindomar

Hoje após eu atualizar o Acbr também tive o mesmo problema então fechei tudo, removi tudo do delphi e recompilei todos os pacotes..resolvido. Porém restou outro problema, para gerar a danfe utilizo o seguinte código: (parte dele) with ACBrNFe1.NotasFiscais.Add.NFe do begin while not dmMProvider.cdsFatura_NFSaida.Eof do begin with Cobr.Dup.Add do begin nDup := dmMProvider.cdsFatura_NFSaidaDOCUMENTO.Value; dVenc := dmMProvider.cdsFatura_NFSaidaVENCIMENTO.Value; vDup := dmMProvider.cdsFatura_NFSaidaVALOR.AsCurrency; end; dmMProvider.cdsFatura_NFSaida.Next; end; infNFe.Versao := 2; <<<= aqui está dando erro infNFe.ID := InttoStr(dmMProvider.cdsNFSaidaNFSAIDA.Value); Ide.natOp := Format('%-60.60s', [dmMProvider.cdsCfop_NFSaida. FieldByName('DESCRICAO').Value]); Ide.nNF := StrToInt(infNFe.ID); Ide.cNF := StrToInt(infNFe.ID); Ide.Modelo := StrToInt(dmMProvider.cdsNFSaidaMODELO.AsString); Ide.serie := 1; Ide.dEmi := dmMProvider.cdsNFSaidaEMISSAO.Value; Ide.dSaiEnt := dmMProvider.cdsNFSaidaSAIDA.Value; case rdpAmbienteDestino.ItemIndex of 0:Ide.tpAmb := taProducao; 1:Ide.tpAmb := taHomologacao end; case dmMProvider.cdsNFSaidaENTRADA_SAIDA.Value of 0:Ide.tpNF := tnSaida; 1:Ide.tpNF := tnEntrada; end; if dmMProvider.cdsFatura_NFSaida.IsEmpty then Ide.indPag := ipVista else Ide.indPag := ipPrazo; Ide.verProc := RetornarVersao(Application.ExeName, 1); Ide.cUF := dmDBEXMaster.sqqFilial.FieldByName('CODIGO_ESTADO_IBGE').Value; Ide.cMunFG := dmDBEXMaster.sqqFilial.FieldByName('CODIGO_MUNICIPIO').Value; Emit.CNPJCPF := dmDBEXMaster.sqqFilial.FieldByName('CNPJ').Value; Emit.IE := dmDBEXMaster.sqqFilial.FieldByName('INSCRICAO').Value; Emit.xNome := dmDBEXMaster.sqqFilial.FieldByName('RAZAOSOCIAL').Value; Emit.xFant := dmDBEXMaster.sqqFilial.FieldByName('FANTASIA').Value; Emit.EnderEmit.fone:= dmDBEXMaster.sqqFilial.FieldByName('DDD').Value + ' ' + dmDBEXMaster.sqqFilial.FieldByName('TELEFONE1').Value; Emit.EnderEmit.CEP := StrToInt(dmDBEXMaster.sqqFilial.FieldByName('CEPENTREGA').Value); Emit.EnderEmit.xLgr := dmDBEXMaster.sqqFilial.FieldByName('ENDERECO').AsString; Emit.EnderEmit.nro := InttoStr(dmDBEXMaster.sqqFilial.FieldByName('NUMEROENTREGA').Value); Emit.EnderEmit.xCpl := dmDBEXMaster.sqqFilial.FieldByName('COMPLEMENTO').AsString; Emit.EnderEmit.xBairro := dmDBEXMaster.sqqFilial.FieldByName('BAIRROENTREGA').Value; Emit.EnderEmit.cMun := dmDBEXMaster.sqqFilial.FieldByName('CODIGO_MUNICIPIO').Value; Emit.EnderEmit.xMun := dmDBEXMaster.sqqFilial.FieldByName('NOMECIDADE').Value; Emit.EnderEmit.UF := dmDBEXMaster.sqqFilial.FieldByName('ESTADO').Value; Emit.EnderEmit.cPais := 1058; Emit.EnderEmit.xPais := 'BRASIL'; Emit.CRT := StrToCRT(ok, InttoStr(dmDBEXMaster.sqqFilial.FieldByName('CRT').AsInteger)); ...... etc nas linhas que estão em negrito está dando erro: [DCC Error] modDanfe.pas(548): E2003 Undeclared identifier: 'Versao' [DCC Error] modDanfe.pas(593): E2003 Undeclared identifier: 'CRT' respectivamente... como já removi tudo e reinstalei não consigo imaginar o que pode ser.