-
Total de ítens
19 -
Registro em
-
Última visita
Últimos Visitantes
1.173 visualizações
junior azevedo's Achievements
-
junior azevedo changed their profile photo
-
junior azevedo started following Italo Giurizzato Junior
-
Estou com o mesmo problema na emissão da Carta de correção. A função *TACBrDFe.AchaArquivoSchema* me da o nome de um arquivo de schema que não existe *'envEvento4.00.xsd'*. Na pasta schema só tem o arquivo *envEvento_v1.00.xsd*, renomeei esse arquivo para envEvento4.00. O problema inicialmente foi corrigido. No entanto, apresentou "Erro não catalogado!"
-
TEFD Como saber se existe transação pendente?
um tópico no fórum postou junior azevedo Dúvidas Gerais sobre o ACBr
É possível saber, pelo ACBRTEFD, se existe transação pendente após pc ser reiniciado? -
Cancelamento de Operação já Confirmada sem pedir parametros
junior azevedo replied to junior azevedo's tópico in Dúvidas sobre TEF
Perdoe minha ignorância, mas não entendi! Como posso ver esses eventos? -
Cancelamento de Operação já Confirmada sem pedir parametros
um tópico no fórum postou junior azevedo Dúvidas sobre TEF
Quando realizo uma operação de cancelamento (CNC) já informo os parâmetros. Depois o ACBR mostra as Parâmetros novamente para confirmação. É possível desabilitar essa confirmação, realizar o cancelamento direto. Chamo a Função assim: cTEF.CNC(tCart.FieldByName('bandeira').AsString, tCart.FieldByName('NSU').AsString,.FieldByName('data_emiss').AsDateTime, tCart.FieldByName('valor').AsExtended); -
Juliomar Obrigado. Estava carregando o XML errado. rsrsrs 1101113116120570317300019055099000002081112345678701-procEventoNFe.xml
-
Na reimpressão do evento a data e hora do registro fica 30/12/1899 00:00:00. Não encontrei onde informar essa data.
-
Imprimir Evento logo após a emissão de NFe
junior azevedo replied to junior azevedo's tópico in ACBrNFe
Bom dia Juliomar. Não testei no Demo. Vou dar uma olhada nele. -
Se faço o cancelamento ou emissão de uma CCe direto funciona corretamente. Mas se emito uma NFe com impressão do DANFE sistema gera erro de "Access vilation at address...". Esse erro o sistema esta apontando para um componente ou variável que não existe, foi destruída. Abaixo esta o código que chama o evento e as funções vinculadas a ela. PreparaEvento(NFeMotivoCancelamento,teCancelamento); dmTMP.NFe.EnviarEvento(1); with dmTMP.NFe.WebServices.EnvEvento do begin if (EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135) and (EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 155) then begin oEvento := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo; ConsultarNFe(False); if Pos('CANCEL',UpperCase(dmTMP.NFe.WebServices.Retorno.XMotivo)) > 0 then dmTMP.NFe.ImprimirEvento; Mensagem(oEvento); FRetorno := '135'; exit; end; DM.sdsNfeEvento.Close; dmTMP.NFe.ImprimirEvento; Procedure TfrmMensagemNfe.PreparaEvento(NFeMotivo : string; tpEven : TpcnTpEvento); begin dmTMP.NFe.EventoNFe.Evento.Clear; dmTMP.NFe.NotasFiscais.Clear; dmTMP.PreparaEmissorNFE; dmTMP.NFe.EventoNFe.idLote := 1; with dmTMP.NFe.EventoNFe.Evento.Add do begin InfEvento.cOrgao := DM.sdsEmpresaCodigoUF.AsInteger; InfEvento.chNFe := sdsGNFeCHAVENFE.AsString; InfEvento.CNPJ := DM.sdsEmpresaCNPJ.AsString; InfEvento.dhEvento := now; InfEvento.tpEvento := tpEven; if tpEven = teCCe then begin infEvento.nSeqEvento := oSeqEvento; infEvento.detEvento.xCorrecao := NFeMotivo; end else begin InfEvento.detEvento.xJust := NFeMotivo; InfEvento.detEvento.nProt := sdsGNFePROTOCOLO.AsString; end; end; end; function TdmTMP.PreparaEmissorNFE: Boolean; var Mes: string; Ano: string; Lista: String; begin if (DM.sdsEmpresalogoNFe.AsString <> '') and (FileExists(DM.sdsEmpresalogoNFe.AsString)) then NFe.DANFE.Logo := DM.sdsEmpresalogoNFe.AsString; Mes := FormatDateTime('mm', NOW); Ano := FormatDateTime('yyyy', NOW); dmTMP.NFe.Configuracoes.WebServices.Ambiente := taHomologacao Lista := ''; Result := true; ACBRDANFE.FastFile := ExtractFilePath(Application.ExeName) + 'report\DANFeRetrato.fr3'; ACBRDANFE.FastFileEvento := ExtractFilePath(Application.ExeName) + 'report\EVENTOS.fr3'; ACBRDANFE.FastFileInutilizacao := ExtractFilePath(Application.ExeName) + 'report\INUTILIZACAO.fr3'; NFe.Configuracoes.arquivos.PathNFe := ExtractFilePath(Application.ExeName) + 'NFE\XML'; NFe.Configuracoes.arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas'; NFe.Configuracoes.arquivos.PathInu := ExtractFilePath(Application.ExeName) + 'NFE\XML'; NFe.Configuracoes.arquivos.PathEvento := ExtractFilePath(Application.ExeName) + 'NFE\XML'; NFe.Configuracoes.arquivos.PathSalvar := ExtractFilePath(Application.ExeName) + 'NFE\XML'; ACBRDANFE.PathPDF := ExtractFilePath(Application.ExeName) + 'NFE\PDF\' + Mes + Ano; ChecaDiretorios(ACBRDANFE.PathPDF); ChecaDiretorios(ExtractFilePath(Application.ExeName) + 'NFE'); ChecaDiretorios(ExtractFilePath(Application.ExeName) + 'NFE\XML'); ChecaDiretorios(NFe.Configuracoes.arquivos.PathNFe); ChecaDiretorios(NFe.Configuracoes.arquivos.PathInu); ChecaDiretorios(NFe.Configuracoes.arquivos.PathEvento); ChecaDiretorios(NFe.Configuracoes.arquivos.PathSalvar); ChecaDiretorios(ACBRDANFE.PathPDF); if ConfigSYS[67] = '' then begin Lista := Lista + 'Versão da NF-e não definida' + #13; end; if ConfigSYS[63] = '' then begin Lista := Lista + 'Série da NF-e não definida' + #13; if (DM.sdsEmpresaCNAE.AsString = '0') or (DM.sdsEmpresaCNAE.AsString = '') then Lista := Lista + 'CNAE empresa não definido' + #13; end; if not DirectoryExists(ExtractFilePath(Application.ExeName) + 'Schemas') then Lista := Lista + NFe.Configuracoes.arquivos.PathSchemas + #13; if not ChecaArquivos(ACBRDANFE.FastFile) then Lista := Lista + ACBRDANFE.FastFile + #13; if not ChecaArquivos(ACBRDANFE.FastFileEvento) then Lista := Lista + ACBRDANFE.FastFileEvento + #13; if not ChecaArquivos(ACBRDANFE.FastFileInutilizacao) then Lista := Lista + ACBRDANFE.FastFileInutilizacao + #13; if not ChecaArquivos(ExtractFilePath(Application.ExeName) + 'Report\rptPreVenda.fr3') then Lista := Lista + ExtractFilePath(Application.ExeName) + 'ReportrptPreVenda.fr3' + #13; if Lista <> '' then begin ShowMessage('Erro ao iniciar NFe. Entre em contato com o suporte. Os seguintes arquivos não foram encontrados.: ' + #13 + Lista); Result := false end; NFe.WebServices.Retorno.Clear; end;
-
NFe para outro estado menor que 0,20 Gera Rejeição: Assinatura difere do Calculado
um tópico no fórum postou junior azevedo ACBrNFe
NFe emitida para fora do estado com valor menor que 0,20 são rejeitadas "Assinatura difere do calculado". Emiti outra nota com os mesmos dados passando o valor para 0,38 e funciona perfeitamente.