AlexBecker

vou procurar, muito obrigado Juliomar!

Olá a todos! estou precisando gerar arquivo de conhecimento CTe formato EDi ( gerar, importar... ver as possíveis operações ) eu procurei os topicos relacionados aqui no forum mas tem pouca coisa, também fui buscar nos exemplos mas só encontrei um ACBRDi que tem importação de xml ( acredito que nao seja isto ), achei os componente na aba do EDI do acbr porém não sei como utilizálos, tem algum lugar que eu consigo encontrar exemplos de uso? preciso emitir conhecimento de transporte CTe o OS e um dos meus clientes me pediu esta padronização do EDi pois não quer fazer pelos XMLs.

Muito obrigado! não cheguei nem a pensar neste errro... a mensagem retornada não tem exatamente haver com isto então falhei nos testes! vlw! resolvido!

Bom dia ! emiti um CT-e NORMAL ( tipo 0 ) e validei na receita ( vou anexar os XMLs ) logo após emiti outro CTe normal seguindo a mesma lógica do primeiro porém quando fui validar deu o erro: até onde verifiquei nos XMLs estão da mesma form e o campo chNFe seria de CTe complemento pois é uma chave referenciada, não estou conseguindo encontrar qual é o problema, o CTe é tipo 0 - NORMAL então até onde pesquisei não vai a informação do chNFe no caso o sistema preenche isto corretamente quando tem referencia de NFe with infCteComp10.New do begin chCTe := QCTeCHAVE_REF.AsString; mas quando não tem é inexistente a informação deste campo, se alguém conseguir me passar uma idéia do que esta acontecendo, anexei os 2 XMLs o validado e o que não validou, os 2 tem NFes informadas em inf. documentos. 41240755656971000186570010000000011000001162-cte CORRETA.xml 41240755656971000186570010000000031000001329-cte.xml

Confirmando o retorno, CT-e 100% homologação e produção, CTE-os também! o MEU problema foi pura questão de schemas, os da receita não estão certos, o que EU estava baixando aqui com o SVN até agora não sei qual é problema pois eu atualizo na pasta antiga que eu tinha e dá como atualizado e revisão correta mas NÃO aparece os schemas, algum erro de svn não sei dizer o que é mas baixando tudo novamente para uma pasta nova veio correto, atualizei os schemas aqui e ficou tudo 100% Agradeço muito novamente ao Ilato que teve a paciência de explicar tudo passo à passo onde ao meu ver até quem nunca tivesse emitido se seguisse o exemplo dele e o do próprio acbr iria conseguir emitir, muito bom mesmo! então srs. caso resolvido e muito obrigado!

italo, muitoooooo mas muito mesmo GRATO pelas isntruções, não tinha nada de correção ( pasta vermelha na minha pasta original trunk 2 do acbr ) estava tudo aparentemente normal, eu baixei novamente tudo em outra pasta nova tudo do zero, copiei os schemas novos inclusive aquele que nao aparece na outra pasta, coloquei na pasta do sistema e na hora passou o teste em homologacao.... tudo questão de schema incorreto, revisei 1000x os codigos, comparei linha a linha com o exemplo do acbr e esta tudo nos conformes porém dava os erros, peço apenas que por favor deixem o tópico aberto ainda pois vou conseguir testar em produção no cliente somente a tarde mas eu retorno aqui avisando! por enquanto em homologação está tudo 100%

Atualizada ontem, refiz a instalação do ACBR ontem, não tem nada em vermelho, estou utilizando os fontes que tem ali mas vou baixar novamente e retorno aqui.

sim a pasta é apenas a que utilizo local eu baixei os fontes do acbr dia: 20\01\2024 e refiz a instalação do zero, a geração e envio do CTe está de acordo com o exemplo sim já revisei, os schemas: ( talvez algo errado ai ) o que acontece é, que se eu utilizo o SCHMA disponibilizado pela receita ele não dá o erro: Elemento cteCabecMsg inexistente no SOAP Header, porém dá vários erros de atomicidade tipo: 1824 - Element '{http://www.portalfiscal.inf.br/cte}tpMed': 'Kg' is not a valid value of the local atomic type. que está de acordo com o exemplo ( há muito tempo já foi aplicado isto no sistema conforme o exemplo do ACBR se eu utilizo o SCHEMA que esta na pasta do acbr ( que baixa com os fontes pelo SVN ) ele dá o erro: Elemento cteCabecMsg inexistente no SOAP Header Porém, apesar de mostrar este erro ele AUTORIZA o CTe! tá muito estranho isto.

Primeira: nenhuma alteração, todos os fontes atualizados novamente esta semana. Segunda: estou utilizando o programa exemplo e esta tudo de acordo com a 4.0, consultas e tudo mais, o que notamos é que falta alguns schemas lá na pasta do ACBR baixado (acredito que é de cada estado e devemos baixar isto ) pegamos no site da receita está ok agora. Terceira: sim esta tudo configurado para a versao 4.0 juntamente com o infcte na versao 4.0, peguei do exemplo já tem 7 meses isto mas EFETIVAMENTE ainda não tinhamos lançado CTE na versão 4! infelizmente... Quanta: vou revisar esta. Quinta: para conseguir fazer funcionar em homologacao e testes foi pego tudo do exemplo mesmo, consulta e homologacao ok mas quando envia um válido em produção no cliente dá alguns erros mas já estamos verificando. Por enquanto obrigado já corrigimos bastante coisa no FDS e fazendo retificações ainda.

Ok Juliomar vou postar como anexo na proxima, então esta mensagem ai retorna quando emito o CTe e não MDFe ( eu que postei errado mesmo a mensagem correta é: cteCabecMsg inexistente no SOAP Header ), estou revisando tudo temos até quarta pois até onde sei encerra o serviço do CTe 3 na quarta feira então vou passar o FDS revisando tudo isto, estava rodando no sistema a versão 3.0 ( normal, volto para ela e emite normal ) ai passo apenas para a versão 4.0 e retorna este erro, vou dar umas olhadas no exemplo com a 4 ver se acho algo.

faltou um trecho do código de envio... segue dm.CTe.WebServices.Enviar.Sincrono := True; dm.CTe.WebServices.Enviar.Lote := '1'; dm.CTe.WebServices.Enviar.Executar;

Olá pessoal, procurando pelo erro aqui me deparei com alguns tópicos mas que não resolveram pra mim e preciso de ajuda colocquei a versaoDF do CTe para a 4.0 ( deixo fixa esta versão mesmo manualmente ), mudei alguns campos e preenchimento de informações conforme documentação. quando vou emitir o CTe ele retorna o erro: Elemento mdfeCabecMsg inexistente no SOAP Header nos outros tópicos vi que esta TAG nem existe na versão 4.0, o estado de emissão é PR, setá que esta com algum problema aqui? recentemente configurei da versão 3.0 para a 4.0 e se alguém tiver as configurações necessárias a mais para fazer a configuração correta do componente CTe do acbr ( emissão direta pelo exe com componente ) forma que faço a config do CTe ( mudei somente versão mesmo DF do que esta na 3.0 ) CTe.Configuracoes.Arquivos.AdicionarLiteral := True; CTe.Configuracoes.Arquivos.EmissaoPathCTe := True; CTe.Configuracoes.Arquivos.SepararPorMes := True; CTe.Configuracoes.Arquivos.SepararPorModelo := True; CTe.Configuracoes.Arquivos.PathEvento := TPath.Combine(PastaCTe, 'Eventos'); CTe.Configuracoes.Arquivos.PathInu := TPath.Combine(PastaCTe, 'Inutilizados'); CTe.Configuracoes.Arquivos.PathCTe := TPath.Combine(PastaCTe, 'Transmitidas'); CTe.Configuracoes.Arquivos.Salvar := True; CTe.Configuracoes.Arquivos.PathSalvar := TPath.Combine(PastaCTe, 'Logs'); CTe.Configuracoes.Arquivos.SepararPorCNPJ := false; //AQUI PROBLEMA DE DEMORA NA INICIALIZAÇÃO VER NO GRUPO - BECKER PathMensal := CTe.Configuracoes.Arquivos.GetPathCTe(0); if not DirectoryExists(CTe.Configuracoes.Arquivos.PathEvento) then ForceDirectories(CTe.Configuracoes.Arquivos.PathEvento); if not DirectoryExists(CTe.Configuracoes.Arquivos.PathInu) then ForceDirectories(CTe.Configuracoes.Arquivos.PathInu); if not DirectoryExists(CTe.Configuracoes.Arquivos.PathCTe) then ForceDirectories(CTe.Configuracoes.Arquivos.PathCTe); if not DirectoryExists(CTe.Configuracoes.Arquivos.PathSalvar) then ForceDirectories(CTe.Configuracoes.Arquivos.PathSalvar); if not DirectoryExists(TPath.Combine(PastaCTe, 'PDFs')) then ForceDirectories(TPath.Combine(PastaCTe, 'PDFs')); // Configurações -> Certificados CTe.Configuracoes.Certificados.NumeroSerie := trim(QParametrosCERTIFICADO_SERIE.AsString); CTe.Configuracoes.Certificados.Senha := trim(QParametrosSENHA.AsString); // Configurações -> Geral // TpcnTipoEmissao = (teNormal, teContingencia, teSCAN, teDPEC, teFSDA, teSVCAN, // teSVCRS, teSVCSP, teOffLine); case QParametrosTIPO_EMISSAO.AsInteger of 0: CTe.Configuracoes.Geral.FormaEmissao := teNormal; 1: CTe.Configuracoes.Geral.FormaEmissao := teContingencia; 2: CTe.Configuracoes.Geral.FormaEmissao := teSCAN; 3: CTe.Configuracoes.Geral.FormaEmissao := teDPEC; 4: CTe.Configuracoes.Geral.FormaEmissao := teFSDA; 5: CTe.Configuracoes.Geral.FormaEmissao := teSVCAN; 6: CTe.Configuracoes.Geral.FormaEmissao := teSVCRS; 7: CTe.Configuracoes.Geral.FormaEmissao := teSVCSP; end; CTe.Configuracoes.Arquivos.PathSchemas := trim(ExtractFilePath(Application.ExeName) + '\SchemasCTe\'); CTe.Configuracoes.Geral.Salvar := (QParametrosSALVAR_LOGS.AsString = 'S'); // Configurações -> WebServices CTe.Configuracoes.WebServices.AguardarConsultaRet := 0; CTe.Configuracoes.WebServices.AjustaAguardaConsultaRet := false; case QParametrosAMBIENTE.AsInteger of 0: CTe.Configuracoes.WebServices.Ambiente := taProducao; 1: CTe.Configuracoes.WebServices.Ambiente := taHomologacao; end; CTe.Configuracoes.WebServices.IntervaloTentativas := 0; // CTe.Configuracoes.WebServices.ProxyHost := trim(DM_CNT.ParametrosCTeProxyHost.AsString); // CTe.Configuracoes.WebServices.ProxyPass := trim(DM_CNT.ParametrosCTeProxyPass.AsString); // CTe.Configuracoes.WebServices.ProxyPort := trim(DM_CNT.ParametrosCTeProxyPorta.AsString); // CTe.Configuracoes.WebServices.ProxyUser := trim(DM_CNT.ParametrosCTeProxyUser.AsString); CTe.Configuracoes.WebServices.Tentativas := 5; CTe.Configuracoes.WebServices.UF := QParametrosEST_EMP.AsString; CTe.Configuracoes.WebServices.Visualizar := false; CTe.Configuracoes.Geral.FormatoAlerta := 'Campo: %TAG%' + #13 + 'Descrição Campo : %DESCRICAO% ' + #13 + 'Messagem : %MSG%.'; CTe.Configuracoes.Geral.FormatoAlerta := '%TAGNIVEL%|%ID%|%TAG%|%DESCRICAO%|%MSG%'; // CTe.Configuracoes.Geral.ExibirErroSchema := False; // DACTe DACQR.PathPDF := PathMensal; DACQR.ExpandeLogoMarca := false; DACQR.ImprimeDescPorc := false; DACQR.ImprimirHoraSaida := True; DACQR.ImprimirHoraSaida_Hora := DateToStr(Date); DACQR.Logo := trim(QParametrosCAMINHO_LOGOMARCA_DANFE.AsString); DACQR.MostraPreview := True; DACQR.Sistema := 'Sistema: Controle de Conhecimentos ' + __NOME_APP + ' Automação'; DACQR.Site := ''; // __SITE_APP; DACQR.PathPDF := TPath.Combine(PastaCTe, 'PDFs'); if QParametrosIMPRESSAO.AsString = 'R' then DACQR.TipoDACTE := tiRetrato else DACQR.TipoDACTE := tiPaisagem; DACQR.Usuario := 'Usuário: ' + UsuarioStr; DACQR.Cancelada := false; DM.DACQR.Protocolo := ''; RNTRC := QParametrosRNTRC.AsString; CIOT := QParametrosCIOT.AsString; if CTEOS then begin CTe.Configuracoes.Geral.ModeloDF := moCTeOS; CTe.Configuracoes.Geral.VersaoDF := TVersaoCTe.ve400; {$IFNDEF NOTFASTREPORT} DACQR.FastFile := TPath.Combine(ExtractFilePath(Application.ExeName), 'Report\DACTE_OS.fr3'); DACQR.FastFileEvento := TPath.Combine(ExtractFilePath(Application.ExeName), 'Report\DACTE_EVENTOS.fr3'); {$ENDIF} end else begin CTe.Configuracoes.Geral.ModeloDF := moCTe; CTe.Configuracoes.Geral.VersaoDF := TVersaoCTe.ve400; ( aqui a versão fixa 4.0 e também no componente a versaoDF é a ve400 ) ------------------ forma de enviar PreencheDadosCte(Cod); dm.CTe.Conhecimentos.GerarCTe; dm.CTe.Conhecimentos.Assinar; try dm.CTe.Conhecimentos.Validar; except on E: Exception do begin TfrmErrosValidacao.ShowErros(dm.CTe.Conhecimentos.Items[0].Alertas, dm.CTe.Conhecimentos.Items[0].ErroValidacaoCompleto, E.Message); Exit; end; end; dm.CTe.Conhecimentos.GravarXML; --------------- tentei várias coisas de outros posts mas ainda sigo com o mesmo erro se alguém puder me ajudar desde já agradeço!

então é isto! Tenho pouca experiência com ECF direto digamos ( trabalhei a muito tempo atrás ) e não cheguei a passar por isto, a forma de pagamento sempre vinha no equipamento registrada e nunca precisei incluir uma nova, muito obrigado Daniel vou fazer novos testes!

eu procurei por um exemplo direto no exemplo uma forma de incluir ( a forma de retornar já encontrei ) agora falta um comando para incluir elas no .INI.

Então Daniel eu tentei alguns e não deu resultado, ProgramaFormaPagamento mas acho que fiz algo errado então pois a forma nova não apareceu, também gostaria de saber as formas já existentes e não achei o comando.