Jump to content

SUPER OFERTA!
Compre o Delphi com 45% de desconto

botao_delphi.png

110.png

Curso Gratuito para todos Usuários
+ Super Treinamento Assinando o SAC Anual

botao_campanha_thulio.png

sem_ttulo-620.fw_-e1583866078274.png 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Sergio Sartori

Membros
  • Content Count

    53
  • Joined

  • Last visited

Community Reputation

12 Good

1 Follower

About Sergio Sartori

  • Rank
    Membro

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. boa tarde Daniel. obrigado por sua resposta, mas o problema não é tributação, é o credenciamento da SoftHouse no estado do paraná. como tenho pouca experiencia na aria de credenciamento da softhouse, não me atentei que preciso fazer o credenciamento da softhouse. so que achei estranho o prazo de trinta dias para ter a resposta da sefaz do parana´, com respeito do credenciamento da empresa! é isso mesmo?
  2. bom dia pessoal . Pessoal estou com duvida ? eu estou no estado de SÃO PAULO, instalei o meu sistema em uma empresa no PARANÁ para emissão da NFe, tenho que fazer algum cadastro no estado do paraná ? porque o escritório esta me pedindo o cnpj da sofhouse, codigo do sistema na receita estadual. alguem pode me orientar por favor.
  3. Bom dia Pessoal. estou com uma duvida? quando eu aplico o desconto na NFe, seja em valor ou porcentagem como eu devo proceder ? posso aplicar o desconto sobre o total da nota, sem fazer o rateio entre os produtos, ou tenho que dar o desconto e fazer o rateio nos produtos? qual é o correto fazer? desde já agradeço a atenção de todos.
  4. Boa tarde pessoal. Estou com uma duvida a respeito do cancelamento cfe sat. faço o cancelamento tudo certinho, gera o xml de cancelamento, imprime blz, mas o codigo que esta retornando do cancelamento é o 7010 e não o 7000, é isso mesmo ? no demo esta o codigo 7000 por isso minha duvida? estou usando o aparelho sat tanca sdk desenvolvimento.
  5. Vc pode me dar um exemplo como que eu passo esse parametro por favor?
  6. Bom dia pessoal . estou com problema no envia dos arquivos da carta de correção por email! so esta chegando no email do cliente o arquivo pdf o xml não. é assim mesmo no caso da carta de correção só envia o arquivo pdf ? /*********************************************************************** esse é o codigo //********************************************************************** vCaminho := 'C:\sgmsistemagestao\Nfe\CCe\'+vAn+'\'+vMe+'\'+pegaChaveRec+'-procEventoNFe.xml'; if vEmail1 <> '' then begin vEmail:= vEmail + ';' + vEMail1; end; if vEmail2 <> '' then begin vEmail:= vEmail + ';' + vEMail2; end; Para := vEmail; if not(InputQuery('Enviar Email', 'Digite o Email de destino', Para)) then exit; OpenDialog1.InitialDir := frmListaNFe.ACBrNFe1.Configuracoes.Arquivos.PathSalvar; OpenDialog1.Title := 'Selecione ao Evento'; OpenDialog1.DefaultExt := '*.XML'; OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := frmListaNFe.ACBrNFe1.Configuracoes.Arquivos.PathSalvar; Evento := TStringList.Create; Evento.Clear; Evento.Add(OpenDialog1.FileName); frmListaNFe.ACBrNFe1.EventoNFe.Evento.Clear; frmListaNFe.ACBrNFe1.EventoNFe.LerXML(vCaminho); CC:=TstringList.Create; CC.Add('[email protected]'); //especifique um email válido CC.Add('[email protected]'); //especifique um email válido if Trim(DM_EMPRESA.cds_empresaSEGURANCA.AsString) = 'SSL' then begin frmListaNFe.ACBrMail1.SetSSL := True; frmListaNFe.ACBrMail1.SetTLS := False; end else if Trim(DM_EMPRESA.cds_empresaSEGURANCA.AsString) = 'TSL' then begin frmListaNFe.ACBrMail1.SetSSL := False; frmListaNFe.ACBrMail1.SetTLS := True; end else begin frmListaNFe.ACBrMail1.SetSSL := False; frmListaNFe.ACBrMail1.SetTLS := False; end; frmListaNFe.ACBrMail1.Host := DM_EMPRESA.cds_empresaSERVIDOR_EMAIL.AsString; frmListaNFe.ACBrMail1.Port := IntToStr(DM_EMPRESA.cds_empresaPORTA_EMAIL.AsInteger); frmListaNFe.ACBrMail1.Username := DM_EMPRESA.cds_empresaEMAIL.AsString; frmListaNFe.ACBrMail1.Password := DM_EMPRESA.cds_empresaSENHA_EMAIL.AsString; frmListaNFe.ACBrMail1.FromName := DM_EMPRESA.cds_empresaNOME.AsString; frmListaNFe.ACBrMail1.From := DM_EMPRESA.cds_empresaEMAIL.AsString; frmListaNFe.ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email frmListaNFe.ACBrMail1.UseThread := False; //Aguarda Envio do Email(não usa thread) // ACBrMail1.FromName := 'Projeto ACBr - ACBrNFe'; frmListaNFe.ACBrNFe1.EnviarEmailEvento(Para, edtEmailAssunto.Text, mmEmailMsg.Lines, nil, // Lista com emails que serao enviado copias - TStrings nil, // Lista de anexos - TStrings nil // ReplyTo ); showMessage('Email enviado com sucesso.'); CC.Free; Evento.Free;
  7. como é bom quando encontramos pessoas que estende sua mão para nos ajudar, sem se preocuparem obter alguma vantagem em troca. isso é maravilho. Muito Obrigado pela preocupação de ajudar. Att. Sérgio
  8. esse conteudo esta dentro de um laço. eu estou pegando todos os itens, mas não estou conseguindo pegar esse campo. mas vou usar esse exemplo que vc postou creio que agora vai dar certo. Obrigado RicardoVoigt. por sua tenção.
  9. Boa tarde pessoal. estou com problema ao fazer uma carta de correção. da esta menssagem: Ocorreu o seguinte erro ao enviar a carta de correção: Código :494 Motivo : Rejeição: Chave de Acesso inexistente para o tpEvento que exige a existência da NF-e. consultei a NFe no portal da sefaz e a nota esta lá, como que eu resolvo esse problema? quando eu consulto a Nfe pelo acbr Rejeição: NF-e não consta na base de dados da SEFAZ. AGORA TUDO FUNCIONA QUANDO FAÇO AS OPERAÇÕES EM MODO DE HOMOLOGAÇÃO. ESTOU PRECISANDO DE AJUDA.
  10. pessoal boa tarde. estou tentando pegar os dados da csosn dos produtos da NFe de compras mas não esta dando certo. alquem poderia me auxiliar melhor ? //*********************************** PEGA A CSOSN ************************************ if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosnVazio then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn101 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '101' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn102 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '102' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn103 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '103' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn201 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '201' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn202 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '202' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn203 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '203' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn300 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '300' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn400 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '400' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn500 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '500' else if ACBrNFe1.NotasFiscais.Items[0].NFe.Det.Imposto.ICMS.CSOSN = csosn900 then DM_COMPRAS.cds_itens_comprasCSOSN.AsString := '900'; //***********************************************************************************
  11. Obrigado pela dica, RicardoVoigt vou tentar fazer isso.
  12. Boa tarde a todos. pessoal existe alguma tabela NCM relacionado o cest com ncm ? ate achei mas a tabela cest tem 1200 itens e a tabela ncm tem onze mil e pouco. alguem pode me ajudar nisto?
  13. bom dia a Todos. pessoal não estou conseguindo imprimir a inutilização da NFe. já olhei aqui no form , mas tudo que eu tentei não deu certo. estou fazendo errado? alguem tem um exemplo exato como tem que ser ? Exemplo: NFE.ImprimirInutilizacao( "c:\35XXXXXXXXXXXXXXXX550010000000050000000058-inu.xml" )
×
×
  • Create New...