[Acbrspedfiscal - Registro C460 - Fiscal - Projeto Acbr]

Valeu galera!

[Sngpc]

Bom dia a todos do SNGPC, qual a posição atual do componente? estão precisando de ajuda em algum ponto?

Att.

Juscelino Medeiros

[Sngpc]

Bom dia pessoal, como anda esse projeto do SNGP esta concluído? tem algo que posso ajudar?

[Roteiro E Fontes Para Sngpc V2 E Farmacia Popular Do Brasil]

Boa tarde!

 

Eu tenho interesse, como faço.

Enviei um email com a sua proposta ok? [email protected], quero saber quanto custa o software com os fontes. obrigado.

[Sngpc]

Isso e demais galera, estou aqui para auxiliar no que for preciso. Em que passo realmente estamos em relação ao SNGPC o que esta faltando? Estou procurando os arquivos fontes para saber onde tem problema para tentar ajudar.

[Alteração Boletos]

Fiz todas as alterações para homologação, apenas ficou faltando o tamanho do codigo de barras :

1.1 Ocorrências encontradas na amostra

• Medidas do código de barras fora do padrão exigido pela especificação FEBRABAN/CAIXA, inclusive impedindo a leitura dos documentos;

18. O Código de Barras possui as medidas:

(N) 12 mm da margem inferior da Ficha de Compensação até o centro do Código de Barras

(N) 13 mm de altura por 103 de comprimento

o codigo de barras atinge o tamanho maximo de 9 cm, você pode indicar como fez para conseguir colocar o tamanho do codigo de barras desse tamanho?

Caso alguem informe a solução a minha impressão da caixa estaria concluida. o que possibilitaria a publicação das correções feitas.

Aguardo ajuda de alguem ai ok.

[Alteração Boletos]

Você conseguiu colocar o tamanho do código de barras conforme consta no manual?

[homologação caixa]

Alguem conseguiu fazer a adequação para a caixa?

[Duvidas Basicas - Operações com Boleto Bancário]

Olá pessoal, alguem poderia me dar uma ajuda, estou configurando o boleto do ITAU, e o mesmo não tem digito da agência, nesse caso como proceder no cadastro da conta, pois o ACBrBoleto valida os dados da agencia e não aceita campo vazio, alguem poderia me ajudar Obrigado.

[Envio do Danfe Autorizado]

Em qual momento ele vai enviar o DANFE por email você sabe?

Estou querendo essa sequencia automatica sem que nenhum usuario aperte ou selecione qualquer arquivo que seja...

GERAR

ENVIAR P/ SEFAZ

ENVIAR PARA O EMAIL O DANFE..

A rotina de enviar email esta no codigo mostrado esta funcionando, o problema e que depois da rotina ACBrNFe.1Enviar[0]; o codigo debaixo não esta sendo executado.....

[Envio do Danfe Autorizado]

Olá Galera, há dias estou tentando fazer uma rotina simples usando o componente ACBrNFe, simplesmente eu queria gerar, enviar para a sefaz, pegar a chave de autorização, gerar o PDF, anexar o XML e o PDF do DANFE e enviar por email conforme consta a rotina abaixo de envio de emails, so que depois da rotina de ACBrNFe1.Enviar(0); o codigo de baixo não e executado alguem tem alguma ideia do erro que estou cometendo???

Obrigado

//gerar nfe ---------------------------------------------------------------------------------------------

pGeraNFe;

//enviar nfe

ACBrNFe1.Enviar(0);

Application.ProcessMessages;

mmProc.Lines.Add( 'Protocolo de retorno:'+ACBrNFe1.WebServices.Retorno.Protocolo );

mmProc.Lines.Add( 'Recido de retorno:'+ACBrNFe1.WebServices.Retorno.Recibo );

MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);

Label32.Caption := '3';

Nessa rotina a ideia era pegar o codigo da chave e gravar no banco de dados para uma possivel consulta posteriormente.............

//Atualizar Chave de Acesso no sistema

sChave := ACBrNFe1.Configuracoes.Geral.PathSalvar+'\'+copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44);

fInicia_Transacao(1);

try

begin

sS := 'update CAB_NF set DANFE='+QuotedStr(sChave)+' where NUM_NF='+QuotedStr(QyCNFNUM_NF.AsString);

Label32.Caption := '4.1';

mmoMsg.Lines.Add(sS);

if not fExecuteSQL(sS,'/',2,1) then

begin

fCancelaTransacao(1);

end

;

fEfetivaTransacao(1);

end

except

;

Neste momento estou gerando o PDF do Danfe recebido pela SEFAZ

ACBrNFe1.NotasFiscais.ImprimirPDF;

Label32.Caption := '4';

Label32.Caption := '5';

if not fSimNao('Deseja enviar a Nota ao cliente por email') then exit;

if Trim(QyCliEMAIL.Value)='' then

begin

fErro('Não existe E-Mail Cadastrado para este Cliente');

if not fSimNao('Deseja Informar o email a ser enviado?') then exit;

Application.CreateForm(TFEndEmailNFe, FEndEmailNFe);

FEndEmailNFe.ShowModal;

IdMessage1.Recipients.EMailAddresses := FEndEmailNFe.mkEmail.Text;

end

;

Label32.Caption := '6';

if QyCliEMAIL.AsString<>'' then

IdMessage1.Recipients.EMailAddresses := QyCliEMAIL.AsString;

// teste de envio de emails-------------------------------------

try

Screen.Cursor:= crHourGlass;

// pg1.MaxValue := StrToInt(EdtNum.Text);

pg1.Progress := 0;

IdSMTP1.Host := 'mail.xxxxxxxxxx.com.br';

IdSMTP1.Username := '[email protected]';

IdSMTP1.Password := xxxxxxxxxxx';

Label32.Caption := '7';

//Anexando os Arquivos XML e PDF

if FilesExists(ACBrNFe1.Configuracoes.Geral.PathSalvar+'\'+copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml' ) then

ListBoxAnexos.Items.Add(ACBrNFe1.Configuracoes.Geral.PathSalvar+'\'+copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml' );

if FilesExists(ACBrNFe1.Configuracoes.Geral.PathSalvar+'\'+copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44)+'.pdf' ) then

ListBoxAnexos.Items.Add(ACBrNFe1.Configuracoes.Geral.PathSalvar+'\'+copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, (length(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID)-44)+1, 44)+'.pdf');

if CheckBox1.Checked then

IdSMTP1.AuthenticationType:= atLogin

else IdSMTP1.AuthenticationType:= atNone;

IdMessage1.MessageParts.Clear;

if ListBoxAnexos.Items.Count > 0 then

begin

for i:= 0 to ListBoxAnexos.Items.Count - 1 do

TIdAttachment.Create(IdMessage1.MessageParts, ListBoxAnexos.Items);

end;

mmoMsg.Lines.Add('Envio Automático de Nota Fiscal Eletrônica');

mmoMsg.Lines.Add('Bem Vindo ao Novo Sistema de Nota Fiscal Eletrônica 2.0 da XXXXXXXX');

mmoMsg.Lines.Add('Conheça Nossos Produtos e Serviços desenvolvidos totalmente pensando em sua praticidade e comodidade!');

mmoMsg.Lines.Add('Visite nosso site ');

mmoMsg.Lines.Add('www.xxxxxxxxxx.com.br');

mmoMsg.Lines.Add('');

mmoMsg.Lines.Add('');

mmoMsg.Lines.Add('Sugerimos que entrem no site do portal nacional da NF-e http://www.nfe.fazenda.gov.br ou no portal da SEFAZ do estado emissor, e visualizem a NF-e utilizando a chave de acesso constante no DANFe.');

mmoMsg.Lines.Add(' Este será o meio de verificar a autenticidade da NF-e recebida');

IdMessage1.From.Address:= '[email protected]';

IdMessage1.Subject:= 'A '+sFantEmp+' está lhe enviando a Nota Fiscal Eletrônica de sua Compra';

IdMessage1.Body.Text := mmoMsg.Lines.Text;

//Envio de Email padrão BACKUP

IdMessage1.BccList.EMailAddresses := '[email protected]';

if not IdSMTP1.Connected then

IdSMTP1.Connect();

IdSMTP1.Send(IdMessage1);

finally

IdSMTP1.Disconnect;

Screen.Cursor:= crDefault;

end;

end;

Resumindo após o comando ACBrNFe1.Enviar(0); o sistema não passa para executar os comandos abaixo, alguma tem alguma ideia da burrice que to cometendo???Obrigado a todos...