Claudio Stein Junior

Pessoal olá, qual medidas recomendam para a impressão na Elgin i9. O papel para cortar está parando em cima do qrcode. Tem como resolver? Obrigado

Consegui vincular assinatura pelo proprio software da bematech. Pela ACBR dava erro na porta de comunicação. Copie os arquivos BEMASAT.DLL E BEMASAT.XML para a pasta de meu executavel. Apontei o path para a instalação inicial do SAT: Arquivos de Programa\Bematech E gero os sats normalmente.

Valeu, obrigado.

Olá, alguém sabe me dizer qual o código de cancelamento do ginfes? Procurei a resposta mas não encontrei. Seria 0 ou 1? Ou algum outro codigo. obrigado.

Valeu foi isso mesmo. A menina enviou os arquivos errados. obrigado.

Olá o contador do meu cliente foi importar os arquivos SAT para o sistema CONTMATIC e disse que não conseguiu importar porque falta o campo DEMI e por isso deve ter sido feito pelo site do SEFAZ e não pelo SAT. Alguém tem alguma explicação? Estou usando o SAT normalmemte e está gerando esses arquivos XML sem a data. Obrigado

Valeu pelas informações. Melhor eu ver com o contador. Utilizei o serviço com CSOSN 900 e passou. Não coloquei informações de ISSQN. Mas vou verificar a melhor forma e reporto aqui. obrigado.

Olá eu posso emitir a venda de um serviço pelo SAT ou é possível apenas produtos? Se sim qual situação tributária, csosn, cfop e impostos devo usar? Obrigado

Olá eu instalei a versão para Delphi 7 no primeiro momento. Acho que aí que foi o erro. Caso tenha feito isso remova e instale a versão CE do Github. Serve para todas as versões do Delphi. Outra coisa não instale manualmente. Faça pelo aplicativo que acompanha.

E os cálculos para empresa do Simples Nacional, alguém tem alguma ideia. Como ficam produtos com substituição tributária. Tipo CST 60 e os produtos com CST 00? Espero que mudem a data, está todo mundo perdido faltando 15 dias para iniciar.

Muito bom, consegui da mesma forma. Espero que ajude outros.

[RESOLVIDO] Segue abaixo resolução do problema procedure TFrmNFE.btnEnviarEmailClick(Sender: TObject); var Para : String; CC : Tstrings; begin if not(InputQuery('Enviar Email', 'Email de destino', Para)) then exit; OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); CC:=TstringList.Create; try // CC.Add('[email protected]'); //outros e-mails //CC.Add('[email protected]'); ACBrMail1.Host := edtSmtpHost.Text; ACBrMail1.Port := edtSmtpPort.Text; ACBrMail1.Username := edtSmtpUser.Text; ACBrMail1.Password := edtSmtpPass.Text; ACBrMail1.From := edtSmtpUser.Text; ACBrMail1.SetSSL := cbEmailSSL.Checked; ACBrMail1.SetTLS := cbEmailSSL.Checked; ACBrMail1.ReadingConfirmation := False; ACBrMail1.UseThread := False; ACBrMail1.FromName := 'Inova Softwares'; ACBrMail1.AddAttachment(OpenDialog1.FileName);//acrescentei essa linha ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( Para, edtEmailAssunto.Text, mmEmailMsg.Lines , true // Enviar PDF junto , CC // Lista com emails que serao enviado copias - TStrings , nil); // Lista de anexos - TStrings finally CC.Free; end; end; end; Em seguida selecionei o componente da DANFE e coloquei o caminho dos PDFs como segue. C:\NFE\pdfs\ Att e obrigado.

Sim eu vi está vinculado. Caso contrário ele diz para vincular. Segue propriedades. Será o problema aquele nil no código dos anexos? Obrigado. Ainda não deu certo.

Juliomar eu busco o arquivo normalmemente, mas não anexa. Segue o código: procedure TFrmNFE.btnEnviarEmailClick(Sender: TObject); var Para : String; CC, AA: Tstrings; begin if not(InputQuery('Enviar Email', 'Email de destino', Para)) then exit; OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); CC:=TstringList.Create; try // CC.Add('[email protected]'); //outros e-mails //CC.Add('[email protected]'); AA.ADD(OpenDialog1.FileName); ACBrMail1.Host := edtSmtpHost.Text; ACBrMail1.Port := edtSmtpPort.Text; ACBrMail1.Username := edtSmtpUser.Text; ACBrMail1.Password := edtSmtpPass.Text; ACBrMail1.From := edtSmtpUser.Text; ACBrMail1.SetSSL := cbEmailSSL.Checked; // SSL - ConexÃo Segura ACBrMail1.SetTLS := cbEmailSSL.Checked; // Auto TLS ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email ACBrMail1.UseThread := False; //Aguarda Envio do Email(não usa thread) ACBrMail1.FromName := 'Inova Softwares'; ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( Para, edtEmailAssunto.Text, mmEmailMsg.Lines , True // Enviar PDF junto , CC // Lista com emails que serão enviado cópias - TStrings , nil); // Lista de anexos - TStrings finally CC.Free; end; end; end; Não mudei nada praticamente. Não sei o que está acontecendo.

Pessoal no meu projeto e utilizando a demo da nf-e no trunck2 não consigo enviar o anexo do xml. Apresenta o erro da imagem em anexo. O que pode ser? Obrigado

Olá estou com o mesmo problema. Conseguiu resolver? Att Claudio

Olá estou mudando meu CTE para o trunk2 mas me deparei com o erro: stCTeIdle não declarado. Será que está faltando algum uses? Mais uma coisa no exemplo demo que baixei está o report do quick. É isso mesmo? Obrigado Consegui. Declarei pcteConversaoCTe na Uses. Obrigado

Valeu! Deu certo!

Desculpe a falha. Mas uso o Cte também é achei que a data fosse para os 2. Italo será que essas tags novas podem ser implantadas no trunk1 também. Estou mudando para o trunk2 aos poucos mas anda não terminei. Ajudaria muitas pessoas. obrigado Att Claudio

Pessoal estou com um erro no método abaixo no trunk2: procedure TFrmNFE.ACBrNFe1StatusChange(Sender: TObject); begin case ACBrNFe1.Status of stIdle : begin if ( frmStatus <> nil ) then frmStatus.Hide; end; stNFeStatusServico : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Verificando Status do servico...'; frmStatus.Show; frmStatus.BringToFront; end; stNFeRecepcao : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Enviando dados da NFe...'; frmStatus.Show; frmStatus.BringToFront; end; stNfeRetRecepcao : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Recebendo dados da NFe...'; frmStatus.Show; frmStatus.BringToFront; end; stNfeConsulta : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Consultando NFe...'; frmStatus.Show; frmStatus.BringToFront; end; stNfeCancelamento : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Enviando cancelamento de NFe...'; frmStatus.Show; frmStatus.BringToFront; end; stNfeInutilizacao : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Enviando pedido de Inutilização...'; frmStatus.Show; frmStatus.BringToFront; end; stNFeRecibo : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Consultando Recibo de Lote...'; frmStatus.Show; frmStatus.BringToFront; end; stNFeCadastro : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Consultando Cadastro...'; frmStatus.Show; frmStatus.BringToFront; end; stNFeEmail : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Enviando Email...'; frmStatus.Show; frmStatus.BringToFront; end; stNFeCCe : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Enviando Carta de Correção...'; frmStatus.Show; frmStatus.BringToFront; end; stNFeEvento : begin if ( frmStatus = nil ) then frmStatus := TfrmStatus.Create(Application); frmStatus.lblStatus.Caption := 'Enviando Evento...'; frmStatus.Show; frmStatus.BringToFront; end; end; Application.ProcessMessages; end; Diz que stIdle não foi declarado. No demo roda mas no meu exemplo de NF-e não roda. Não consigo achar a declaração do mesmo. Quem puder ajudar agradeço.

Deu certo obrigado. Instalei uma versão errada do Fortes e manualmente. Após baixar a certa instalei pelo aplicativo e funcionou. Obrigado

Pessoal olá, estou tentando instalar o ACBR Trunk 2 e estou com erro no pacote abaixo: C:\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBrNFeDANFeRLClass.pas(48) Fatal: File not found: 'frce.dcp' Compilation failure Erro ao compilar o pacote "ACBr_NFeDanfeRL.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Enviei o arquivo de log Obrigado Claudio Stein Junior log_Delphi_7.txt

Parece que o prazo mudou para 01/04/2016? Isso procede?

Valeu é isso mesmo. Funcionou gerar chaves com o certificado antigo já vencido também. Obrigado

Ola. Troquei o certificado digital de minha software house que venceu. Agora não consigo mais ativar nenhum SAT fiscal com a assinatura de 344 dígitos. Diz que a assinatura e invalida (fora do padrão). Como devo proceder? Obrigado Att Claudio Stein Junior