MarceloPeron

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

boa tarde amigos, estou com um problema, consigo enviar cte em contingência conforme xml anexo, porém, posteriormente apenas carrego este xml usando a função do componente LoadFromFile passando o diretório do xml como parâmetro e tento enviar, retorno do erro do segundo xml anexo. Alguém sabe o que pode ser? Obrigado 35140105435749000185570000000959981001143536-cte.xml -pro-rec.xml

boa tarde, já há alguma aplicação exemplo desta nova versão?

Bom dia Pessoal, Este problema acontece porque aversão do FastReport que acompanha o Delphi não tem suporte a manipulação de scripts. Dentro da pasta de exemplos, vc verá que há 3 opções de modelo de Dacte, opte pela DACTE_1_04-BASIC.fr3, que este não tem manipulação de scripts. O problema que encontrei é que não exibe a imagem do logotipo, se alguém souber o porquê agradeço a informação.

amigo, tô com o mesmo erro para envio a Curitiba, vc conseguiu encontrar a solução?

Bom dia estou implementando a NFSe para Embú das Artes/SP, provedor Simpliss, no entanto esta cidade ainda não está inclusa no componente. Tem alguma forma de adicionar ?