Ir para conteúdo
  • Cadastre-se

diogeneswinner

Membros
  • Total de ítens

    46
  • Registro em

  • Última visita

Tudo que diogeneswinner postou

  1. Ola a Ola amigo, qual foi a solucao deste problema, pois estou com exatamente a mesma duvida
  2. 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?
  3. este codigo serve tambem pra adicionar as notas dentro do mdfe?
  4. 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?
  5. 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
  6. Oi amigo conseguiu resolver este problema?, uso o windows 7 e da esse mesmo erro, com estas mesmas configuracoes.
  7. 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?
  8. 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;
  9. 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
  10. 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
  11. 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?
  12. amigos uma pergunta ... como faco pra na hora que gerar e validar o xml, ele ja gerar o arquivo pdf junto?
  13. E se por acaso o cliente pagar com 50 no credito 50 no debito e 50 em dinheiro, como procedo? obrigado
  14. Trunk2 ... mas eu acabei de resolver o problema ... esta na mudanca do sslib, mudar para capicom obrigado
  15. nao condigo resolver este problema desde o dia que foi obrigatorio o campo Ide.indFinal := cfConsumidorFinal; no dia 16/05/2016 e fica dando esse erro, alguem poderia ajudar! ja atualizei o schema e nada, esse erro acontece ao enviar nota eletronica orbigado desde já
  16. alguem poderia dizer se o erro ja foi corrigido?se o problema de colocar mais de 3 itens ja foi solucionado?
  17. ola amigo, acabei de fazer isso, e o erro continua, tem um carinha parecido neste topico, parece q tbm nao foi resolvido estou na luta aqui tentando ver o que pode ser ... mas ja tentei de tudo
  18. Entao, quando eu coloco mais de 3 itens ele da erro, mesmo usando o cfop 5405, se colocar 4 ites ja da erro, nao deixa enviar
  19. Parece que nao consigo enviar mais de 2 itens, nao to entendendo ... codigosistema.txt
  20. Ola boa tarde, estou tendo problema ao enviar os produtos, ainda nao sei o que pode ser, havia postado o log em outro forum e me disseram que o problema estava na informacao do imposto por cada produto, mas ja corrigi e ainda sim o erro persiste ... SISLITELOG
  21. obrigado e desculpe, nao havia percebido
  22. Alguem poderia me dizer o que acontece nessa nota que eu nao consigo achar o erro?! desde ja obrigado SISLITELOG
  23. No caso o cliente quer somente o cpf na nota, eu sou obrigado a informar as tags abaixo? Dest.xNome := F_MOVIMENTO.dxEditNOME.Text; Entrega.xLgr := F_MOVIMENTO.dxEditENDERECO.Text; Entrega.nro := F_MOVIMENTO.dxEditNUMERO.Text; Entrega.xCpl := ''; Entrega.xBairro := F_MOVIMENTO.dxEditBAIRRO.Text; Entrega.xMun := F_MOVIMENTO.dxEditMUNICIPIO.Text; Entrega.UF := F_MOVIMENTO.dxEditESTADO.Text;
  24. esta bem explicado Sérgio, muito obrigado, obrigado pela atenção! fiquem em paz este tópico esta resolvido!
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.