MarceloPeron

creio ter achado o problema. Na unit pcngerador, troque este código: // Grava no Formato Texto if not EstaVazio then gtCampo(tag, ConteudoProcessado) else gtCampo(tag, ''); por isso // Grava no Formato Texto If Trim(TAG) = 'vTar' then EstaVazio := ConteudoProcessado = ''; // marcelo if not EstaVazio then gtCampo(tag, ConteudoProcessado) else gtCampo(tag, '');

Bom dia, estou com problema ao transmitir cte no modal aéreo, me retorna um erro na validação do próprio componente: "1871 - Element '{http://www.portalfiscal.inf.br/cte}-tarifa':Missing child elemento(s) . Expected is ({http://portalfiscal.inf.br/cte}-vtar) Porém, estou alimentando devidamente a tag vtar. Será que é algo no arquivo se schema?

Bom dia Luiz Cláudio, sim fiz a atualização e o problema persiste. todos os arquivos da pasta Schemas estão com data de 29/10/2015 exceto tiposGeralMDFe_v1.00-OPENSSL (17/11/2015) e distDFeInt_v1.00(11/11/2015). Obrigado pelo retorno

boa tarde estou tendo retorno no validador ACBr de falha de schema mo xml anexo. Não estou conseguindo localizar o problema, alguém sabe o que é isso? 43160587338976000742580010000032761000032760-mdfe.xml

Boa tarde, Para quem não sabe e caso precise fazer a impressão da dacte sem preview e sem abertura do dialog do FastReport, basta passar as seguintes propriedades do componente ACBrCTeDacteFR: ACBrCTeDacteFR.MostrarPreview := False; ACBrCTeDacteFR.MostrarStatus := False; Com isso o componente irá enviar a impressão diretamente para a impressora padrão do Windows. Abs

a reposta do Juiomar está correta ! foi um erro meu. Eu estava carregando o xml da dacte ao invés do xml do CTe. Obrigado

perdão amigos, mas já entendi o que acontece ... Quando vc dá o LoadFromFile num CTe que tenha CCe, o ACBr carrega o xml da CCe e neste caso vc deve imprimir o evento.

bom dia amigos, ontem me deparei com o seguinte: se o CTe estiver vinculado a uma CCe, você não consegue reimprimir a date deste CTe, caso contrário imprime normal. Carrego o arquivo xml e mando imprimir, se o CTe tiver carta de correção não dá o preview, caso contrário abre normal. Tem alguma explicação para isso? Cte.Conhecimentos.Clear; Cte.Conhecimentos.LoadFromFile(var_Par[2] + var_Par[4]); CTe.Conhecimentos.Imprimir;

boa tarde Luis Cláudio, fiz da forma como vc disse como pode ver no anexo, mas não adiantou, o erro persiste. Agradeço a sua ajuda

foi o que imaginei Júlio, vou migrar então. Obrigado!

Estado é SP, consultei agora no portal é está tudo ok. Na quinta (11/02) transmiti vários ctes em homologação e de repente começou a dar este erro e até hoje está assim. Detalhe é que não estou no trunk2, estou com uma versão antiga.

Bom dia, no CTe em homologação estava funcionando normal, de repente começou a mostrar a exceção "WebService Consulta Status serviço: Inativo ou Inoperante tente novamente / Cod.Erro HTTP:500, alguém sabe como resolver isso? Obrigado

encontrei e já editei, obrigado.

perdão Italo, mas como faço isso? tentei anexar e não achei onde fazer isso.

Bom dia amigos, Gostaria de sugerir uma alteração na procedure TdmACBrCTeFR.CarregaDadosNotasFiscais, pois da forma como estava, cortava a Dacte pelo meio, além de não dar nenhuma informação sobre o CTe original ao qual o CTe complementar está complementando, esta alteração informa a chave e o numero do CTe em 'Documentos Originários' além de forçar a impressão das 'Observações' que também irá exibir informações,segue código abaixo: fica em ACBr \ Fontes \ ACBrCTe \ ACBrCTeDACTEFRDM procedure TdmACBrCTeFR.CarregaDadosNotasFiscais; var i : Integer; DoctoRem : String; begin { dados das Notas Fiscais } DoctoRem := FCTe.Rem.CNPJCPF; If Length(DoctoRem) > 11 Then DoctoRem := FormatMaskText('##.###.###\/####-##;0;_', DoctoRem) Else DoctoRem := FormatMaskText('###.###.###-##;0;_', DoctoRem); With cdsDadosNotasFiscais do Begin Close; FieldDefs.Clear; FieldDefs.Add('tpDoc', ftString, 5); // Tipo Documento FieldDefs.Add('CNPJCPF', ftString, 18); // CNPJCPF FieldDefs.Add('Serie', ftString, 3); // Serie FieldDefs.Add('ChaveAcesso', ftString, 44); // Chave Acesso FieldDefs.Add('NotaFiscal', ftString, 9); // Numero Nota Fiscal FieldDefs.Add('TextoImpressao', ftString, 100); // Texto Impressao no Relatorio CreateDataSet; // -- // ALTERADO POR MARCELO PERON DURAN - 18/08/2014 // -- INFORMAR CTe VINCULADO AO CTe COMPLEMENTAR If Cte.ide.tpCTe = tcComplemento Then Begin Append; FieldByName('tpDoc').AsString := ''; FieldByName('CNPJCPF').AsString := ''; FieldByName('Serie').AsString := ''; FieldByName('ChaveAcesso').AsString := ''; FieldByName('NotaFiscal').AsString := ''; FieldByName('TextoImpressao').AsString := 'CTE: ' + Copy(CTe.infCteComp.chave,26,9) + ' - CHAVE: ' + CTe.infCteComp.chave; End Else Begin // -- FIM DA ALTERAÇÃO {$IFDEF PL_200} For i := 0 to CTe.infCTeNorm.infDoc.infNF.Count - 1 do Begin With FCTe.infCTeNorm.infDoc.InfNF.Items do Begin {$ELSE} For i := 0 to CTe.Rem.InfNF.Count - 1 do Begin With FCTe.Rem.InfNF.Items do Begin {$ENDIF} Append; FieldByName('tpDoc').AsString := 'NF'; FieldByName('CNPJCPF').AsString := FCTe.Rem.CNPJCPF; FieldByName('Serie').AsString := serie; FieldByName('ChaveAcesso').AsString := ''; FieldByName('NotaFiscal').AsString := nDoc; { Alterado por Jose Nilton Pace em 16/05/2013 } FieldByName('TextoImpressao').AsString := 'NF ' + DoctoRem + ' '+ serie+ ' / ' + FormatFloat('000000000', StrToInt(nDoc)); End; Post; End; {$IFDEF PL_200} For i := 0 to CTe.infCTeNorm.infDoc.InfNFE.Count - 1 do Begin With FCTe.infCTeNorm.infDoc.InfNFE.Items do Begin {$ELSE} For i := 0 to CTe.Rem.InfNFE.Count - 1 do Begin With FCTe.Rem.InfNFE.Items do Begin {$ENDIF} Append; FieldByName('tpDoc').AsString := 'NFe'; FieldByName('CNPJCPF').AsString := FCTe.Rem.CNPJCPF; FieldByName('Serie').AsString := Copy(chave,23,3); FieldByName('ChaveAcesso').AsString := chave; FieldByName('NotaFiscal').AsString := Copy(chave,26,9); { Alterado por Jose Nilton Pace em 16/05/2013 } FieldByName('TextoImpressao').AsString := 'NF-e '+chave; End; Post; End; { Alterado por Jose Nilton Pace em 16/05/2013 } {$IFDEF PL_200} For i := 0 to CTe.infCTeNorm.infDoc.infOutros.Count - 1 do Begin With FCTe.infCTeNorm.infDoc.infOutros.Items do Begin {$ELSE} For i := 0 to CTe.Rem.infOutros.Count - 1 do Begin With FCTe.Rem.infOutros.Items do Begin {$ENDIF} Append; FieldByName('tpDoc').AsString := 'Outros'; FieldByName('CNPJCPF').AsString := FCTe.Rem.CNPJCPF; FieldByName('Serie').AsString := ''; FieldByName('ChaveAcesso').AsString := ''; FieldByName('NotaFiscal').AsString := ''; Case tpDoc Of tdDeclaracao: FieldByName('TextoImpressao').AsString := 'Declaração '+DoctoRem+' '+nDoc; tdOutros: FieldByName('TextoImpressao').AsString := 'Outros '+DoctoRem+' '+nDoc; tdDutoviario: FieldByName('TextoImpressao').AsString := 'Dutoviário '+DoctoRem+' '+nDoc; Else FieldByName('TextoImpressao').AsString := 'Não informado '+DoctoRem+' '+nDoc; End; End; Post; End; // -- End; cdsDadosNotasFiscais.RecordCount; End; end; Procedure TdmACBrCTeFR.CarregaDadosNotasFiscais.txt

boa tarde, tive o mesmo problema hoje, e fui verificar a validade do meu certificado estava vencida. Troquei o mesmo e voltou a transmitir. Abs

desculpe pessoal, mas foi erro meu, as configurações do servidor de email estavam erradas, o código abaixo funcionou: // -- ENVIANDO E-MAIL ... If DmCte.qFilialENVIA_EMAIL_CTE.AsString = 'S' Then Begin If (((DmCte.LkCtrcFRETE_FLEXIVEL_SN.AsString = 'S') And (DmCte.LkCtrcNAO_ENV_EMAIL_CTE_FRETE_FLEX.AsString = 'N')) Or (DmCte.LkCtrcFRETE_FLEXIVEL_SN.AsString = 'N')) Then Begin If DmCte.LkCtrcEMAIL.AsString <> '' Then Begin DmCte.AtivaQueryqEmail(DmCte.LkCtrcCGC_CONSIG.AsString, DmCte.LkCtrcDIVISAO_CONSIG.AsString); var_Mensagem := TStringList.Create; var_Mensagem.Add('Cópia de CTe - favor não responder'); Cte.Conhecimentos.Items[0].EnviarEmail(DmCte.qFilialHOST_EMAIL.AsString, DmCte.qFilialPORTA_EMAIL.AsString, DmCte.qFilialUSERNAME_EMAIL.AsString, DmCte.qFilialPASSWORD_EMAIL.AsString, Dmcte.qFilialUSERNAME_EMAIL.AsString, '[email protected]', // fixo só para teste 'DACTE - CTe Nr. ' + IntToStr(var_NumDoc), var_Mensagem, True, True, Nil, Nil, False); var_Mensagem.Free; End; End; End; -- ** -- Quanto as configurações do e-mail, usei o Gmail para testes da seguinte forma: smtp.gmail.com porta: 465

boa tarde, estou com problemas para envio de e-mail pelo componente, aparece a seguinte mensagem: SMTP ERRO: Login:???-Other Undefined Status Estou passando os parâmetros conforme abaixo: CTe.Conhecimentos.Items[0].EnviarEmail('200.143.16.170 ', '465', '[email protected] ', '********', '[email protected] ', '[email protected]',//DmCte.LkCtrcEMAIL.AsString, 'DACTE - CTe Nr. :' + DmCte.LkCtrcDOCCTE.AsString , var_Mensagem, False, False, Nil, Nil, True ); Achei alguns tópicos aqui no forum, mas em nenhum deles consegui achar a solução do meu problema, alguém tem alguma dica?

Resolvi o problema com a instalação da versão completa do FastReport, e passei a usar o arquivo DACTE_1_04.fr3

se for normal ainda aceita a versão 1.04, agora contingência talvez você esteja certo já que a estrutura do xml é diferente nas versões. de qualquer forma irei iniciar o desenvolvimento na versão 2.0, já que a versão 1.04 só valerá até mai/14 Agradeço o seu retorno ! Abs

bom dia Italo, continuo com problema, estou errando em alguma coisa... retorno do erro no xml anexo e rotina no txt anexo. faço o envio em modo de contingência, em seguida, através desta rotina anexa, leio o xml e envio novamente, onde gera o erro de schema. Obrigado 351000004241807-pro-rec.xml rotina.txt

certo, nessa caso vou realizar novos testes outro dia. faltou responder a sua ultima pergunta, a forma como estou consultando é sim pelo número do recibo: var_Rec := Cte.WebServices.Enviar.Recibo; // -- Cte.WebServices.Retorno.Recibo := var Recibo; Obrigado

desculpe já ia esquecendo... quanto a forma de envio, é isso mesmo: Enviar(var Lote,False);

boa tarde Italo, Esclarecendo: 1) sim, nos testes de emissão em contingência passo este valor 5 para o campo tpemis; 2) sim, assinado sem qualquer problema; 3) imprimo a dacte sem problemas; após esta etapa, recebo o retorno da sefaz indicando estar tudo certo 4) exatamente, conforme tópicos que já vi aqui no fórum, não estou efetuando nenhuma alteração no xml, apenas carrego este xml, que já está assinado e validado e tento emitir; 5) sim, no entanto recebo este retorno acusando este erro. ou seja, quando faço o envio simulando uma contingência, tudo correto, quando passo para a segunda etapa que é carregar este xml e tentar enviar gera este erro. Agradeço a sua ajuda

perdão, anexei o xml errado, este é o xml correto 35140105435749000185570000000960175001143722-cte.xml