MarceloPeron

ok Italo, obrigado!

bom dia Italo, parace que deu certo com o OpenSSL esta troca de arquivos. Pus em produção ontem e não tive nenhuma reclamação durante a noite. Mas no MDFe acontece a mesma coisa com o arquivo tiposGeralMDFe_v3.00.xsd, mas aqui não tenho outro arquivo pra trocar na versão 3.0, o que devo fazer?

certo Italo, vou tentar e depois posto a resposta.

boa tarde, Aparentemente temos um problema no arquivo tiposGeralCTe_v3.00.xsd do CTe ( o erro ocorre também com o MDFe). Na linha <xs:pattern value="ISENTO|[0-9]{0,14}"/> quando o IE vem em branco gera o erro,então eu desloco a palavra 'ISENTO' para o final, desta forma valida. Porém se a IE vier 'ISENTO' eu tenho que deslocar novamente a palavra 'ISENTO' para frente. Existe alguma solução definitiva para isso?

busco vaga como programador delphi pleno com ótimos conhecimentos em acbr cte, mdfe e nfe. Sou de Guarulhos - SP. [email protected]

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