[CTe IE atomic type]

certo Italo, vou tentar e depois posto a resposta.

 

[CTe IE atomic type]

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? 

[Programador Delphi - Pleno - ACBr]

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

[email protected]

 

[CTE 2.0 - tarifa - modal aéreo]

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, '');

[CTE 2.0 - tarifa - modal aéreo]

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?

[MDFe]

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

[MDFe]

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

[Impressão Dacte FastReport direto na impressora]

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

 

[Reimpressão Dacte]

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

[Reimpressão Dacte]

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.

[Reimpressão Dacte]

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;

 

 

[Erro HTTP 500 CTe]

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

[Erro HTTP 500 CTe]

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

 

Obrigado!

[Erro HTTP 500 CTe]

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.

[Erro HTTP 500 CTe]

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

[Dacte Cte Complementar]

encontrei e já editei, obrigado.

[Dacte Cte Complementar]

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

[Dacte Cte Complementar]

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

[Erro Desconhecido Ao Enviar Lote]

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

[Cte Erro No Envio De Email]

 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

[Cte Erro No Envio De Email]

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?

[Erro Ao Imprimir Dacte]

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

[Rejeição 215 - Ao Emitir Em Contingência]

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

[Rejeição 215 - Ao Emitir Em Contingência]

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

[Rejeição 215 - Ao Emitir Em Contingência]

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