diogeneswinner

Ola a Ola amigo, qual foi a solucao deste problema, pois estou com exatamente a mesma duvida

Amigo, estou entrando nesse mundo agora da nota 21,22 me da uma ajuda em uma duvida, qual programa devo usar para enviar os arquivos gerados?, tenho q entrar em alguma site da receita ou algo do tipo, tem algum webservice?

este codigo serve tambem pra adicionar as notas dentro do mdfe?

Ola boa noite, derrepente na minha aplicação feita em Delphi 7 comecou a dar esse erro quando se abre o form de ECF. ja revirei tudo e nao faco ideia, alguem poderia me ajudar?

intendi, tive que fazer o seguinte, não é solucao definitiva, mas eu retirei a senha automatica do sistema, deixei o certificado pedir a senha ai posso emitir qts notas quiser, o unico problema é que eu nao emito nota direto do sistema, eu uso meu servidor de app pra varias maquinas emitirem nota, a unica dificuldade é que nao posso fechar o servidor, pois a 1º nota emitida ele pede senha la no servidor, rsrsrs, tive que fazer isso. se v tiver uma outro solucao, me informe amigo ... agradecido

Oi amigo conseguiu resolver este problema?, uso o windows 7 e da esse mesmo erro, com estas mesmas configuracoes.

Ok, amigo, muito obrigado, so pra modo de curiosidade, no sistema da receita daria pra fazer isso, jogar 1 cte e uma nfe em um manifesto?

meu codigo .... veja se esta incorreto alguma coisa with infDoc.infMunDescarga.Add do begin qrymfitens.First; while not qrymfitens.Eof do begin //************************************************************************// //INCLUINDO DESCARREGAMENTO POR CIDADE // //************************************************************************// cMunDescarga := qrymfitens.FindField('IBGE').AsInteger; xMunDescarga := qrymfitens.FindField('CIDADE').AsString; if qrymfitens.findfield('SERIENOTA').AsString = 'NE' then begin with infNFe.Add do begin chNFe := qrymfitens.findfield('CODIGOBARRAS').AsString; with infUnidTransp.Add do begin tpUnidTransp := utRodoTracao; idUnidTransp := qrymfmestre.findfield('PLACA').AsString; with lacUnidTransp.Add do begin nLacre := '123'; end; with infUnidCarga.Add do begin tpUnidCarga := ucOutros; idUnidCarga := 'SACOS'; with lacUnidCarga.Add do begin nLacre := '123'; end; qtdRat := 1.0; end; qtdRat := 1.0; end; end; end; if qrymfitens.findfield('SERIENOTA').AsString = 'CT' then begin with infCTe.Add do begin chCTe := qrymfitens.findfield('CODIGOBARRAS').AsString; with infUnidTransp.Add do begin tpUnidTransp := utRodoTracao; idUnidTransp := qrymfmestre.findfield('PLACA').AsString; with lacUnidTransp.Add do begin nLacre := '123'; end; with infUnidCarga.Add do begin tpUnidCarga := ucOutros; idUnidCarga := 'SACOS'; with lacUnidCarga.Add do begin nLacre := '123'; end; qtdRat := 1.0; end; qtdRat := 1.0; end; end; end; if qrymfitens.findfield('SERIENOTA').AsString = 'PR' then begin with infNF.Add do begin nNF := qrymfitens.findfield('NOTA').AsInteger; UF := qrymfitens.findfield('ESTADO').AsString; vNF := qrymfitens.findfield('VLRTOTAL').AsFloat; serie:= 1; dEmi := Date; with infUnidTransp.Add do begin tpUnidTransp := utRodoTracao; idUnidTransp := qrymfmestre.findfield('PLACA').AsString; with lacUnidTransp.Add do begin nLacre := '123'; end; with infUnidCarga.Add do begin tpUnidCarga := ucOutros; idUnidCarga := 'SACOS'; with lacUnidCarga.Add do begin nLacre := '123'; end; qtdRat := 1.0; end; qtdRat := 1.0; end; end; end; qrymfitens.Next; end; end; tot.qCTe := qrymfmestre.findfield('CONHECIMENTO').AsInteger; tot.qNFe := qrymfmestre.findfield('QUANTIDADE').AsInteger; tot.qCarga := qrymfmestre.findfield('PESOBRUTO').AsFloat; tot.vCarga := qrymfmestre.findfield('VLRTOTAL').AsFloat; tot.cUnid := uKG;

Ola amigo ... Olha so ... o acbr nao deixa eu alimentar o componente com as 2 opcoes .... uma nota e um conhecimento. 0-env-lot.xml

Ola bom dia, ja pesquisei e nao consegui uma solucao .... Meu cliente é uma Tranportadora ... e a pergunta é ... posso fazer um manifesto contendo um conhecimento e uma nota? ele da o seguinte erro: quantidade informada no grupo de totalizadores não confere com a quantidade de documentos relacionada, ja verifiquei e esta alimentando certinho so componentes ... mas da o erro acima. desde ja Obrigado

Sim sim, amigo tudo linkado ...

boa noite amigos, estou revirando e nao acho a solucao do meu problema. gostaria que qdo eu enviasse o email, ele fosse junto com o pdf, so que nao sei como gerar esse pdf sozinho, olhe so o que faco ACBrMail.From := Caminho('USERNFE='); ACBrMail.Host := Caminho('SMTPNFE='); ACBrMail.Username := Caminho('USERNFE='); ACBrMail.Password := Caminho('PASSNFE='); ACBrMail.Port := Caminho('PORTNFE='); ACBrMail.SetSSL := False; // SSL - Conexão Segura ACBrMail.SetTLS := False; // Auto TLS ACBrMail.ReadingConfirmation := False; //Pede confirmação de leitura do email ACBrMail.UseThread := False; //Aguarda Envio do Email(não usa thread) ACBrMail.FromName := 'Nota Fiscal Eletronica Numero: ' + qryMvmestre.FindField('NUMERO').AsString; ACBrNFe.NotasFiscais.Items[0].EnviarEmail( F_EMAIL, 'Segue anexo arquivo XML de nota fiscal eletrônica', F_PRINCIPAL.sMemoNotaeletronica.Lines , True // Enviar PDF junto , nil // Lista com emails que serão enviado cópias - TStrings , nil); // Lista de anexos - TStrings eu habilito a funcao como o amigo acima disse,que ele gera sozinho o pdf, mas nao faco ideia de como funciona, alguem tem alguma luz?

amigos uma pergunta ... como faco pra na hora que gerar e validar o xml, ele ja gerar o arquivo pdf junto?

E se por acaso o cliente pagar com 50 no credito 50 no debito e 50 em dinheiro, como procedo? obrigado

Trunk2 ... mas eu acabei de resolver o problema ... esta na mudanca do sslib, mudar para capicom obrigado