juscelino44
Membros-
Total de ítens
11 -
Registro em
-
Última visita
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
juscelino44's Achievements
-
juscelino44 is attending Dia do ACBr
-
Acbrspedfiscal - Registro C460 - Fiscal - Projeto Acbr
juscelino44 replied to Dalvan's tópico in ACBrSPEDFiscal
Valeu galera! -
Bom dia a todos do SNGPC, qual a posição atual do componente? estão precisando de ajuda em algum ponto? Att. Juscelino Medeiros
-
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
juscelino44 replied to j2c9m7's tópico in Classificados
Enviei um email com a sua proposta ok? [email protected], quero saber quanto custa o software com os fontes. obrigado. -
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.
-
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.
-
Você conseguiu colocar o tamanho do código de barras conforme consta no manual?
-
Alguem conseguiu fazer a adequação para a caixa?
-
Duvidas Basicas - Operações com Boleto Bancário
juscelino44 replied to wagnerlfs's tópico in ACBrBoleto
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. -
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.....
-
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...