armizimm

Opa, vou baixar para testar. Obrigado pela dica. At.te

Pelo que sei você pode corrigir a NFe quantas vezes for necessária até que o uso seja autorizado. Como você manda gerar um novo arquivo XML após a correção do erro retornado pela SEFAZ, ao enviar a NFe novamente sua rotina pode estar gerando uma nova chave de acesso para a nota. Já tive problema semelhante logo no inicio do projeto, resolvi ele indicando o numero da nota onde esta especificado como numero aleatório. Nfe.NotasFiscais.Items[0].Nfe.Ide.nNF := StrToInt( NumeroNF ); Nfe.NotasFiscais.Items[0].Nfe.Ide.cNF := StrToInt( NumeroNF ); Dessa forma, a chave da nota sempre será a mesma. At.te:

Olá pessoal, estou subindo os fontes do Fortes Report para o XE6, compilado e funcionando. Vasculhei a Internet atrás de uma versão que funcionasse, porem as que encontrei apresentam erros ao compilar o sistema com os componentes do ACBR, precisei fazer algumas modificações nos fontes para conseguir compilar, testei apenas o DANFE e o BOLETO. Alterações feitas para poder funcionar.: Remoção da compatibilidade com a CLX em algumas units, pois o debuger informava que não encontrava os arquivos iniciados em Q, como : QForms etc. Precisei acrescentar o conteúdo da Unit RLMetaVCL na RLMetaFile. Comentei a linha que checa a versão do componente, não tive tempo de corrigir. (*** SR. Moderador, caso esteja postando no local errado favor remover para o correto, caso haja tópico semelhante com os arquivos funcionando favor remover este POST. ***) Caso alguém queira se arriscar por sua conta e risco, Grato. Fortes_Report_XE6.rar

Tópico velho mas apenas para complementar, recentemente tive problema com uso denegado 110, o cliente começou a instalar algo do Banco do Brasil, a instalação não foi concluída, após este episódio o sistema começou a retornar USO DENEGADO. Solução desativar os SSL 3.0 nas configurações de internet. A mensagem de erro deveria ter sido outra com relação ao SSL, mas nem tudo é lógico na informática.

Acabei de postar umas prontas aqui no Fórum, esta bem fácil de entender, te a imagem delas prontas. Segue o link.

Tenho dois modelos que utilizo, porem não uso o ACBREQT, seguem os código. ARGOX - Etiqueta de pé de gondola - (Amarelinha com preço do Item) // Etiqueta ARGOX 3 Colunas AssignFile(ETQ,Dm.Lpt_Etiquetas); Rewrite(ETQ); Writeln(ETQ,#2'L'); // limpa impressao Writeln(ETQ,#2'm'); // milimetro - n polegada Writeln(ETQ,'D11'); // TAMANHO PADRAO PARA PIXS Writeln(ETQ,'c0100'); // largua12 da entiqueta Writeln(ETQ,'H10'); // teperatura max20 // etiqueta da Esquerda WriteLn(Etq,'122200001900010 ' + Copy(Descricao.Text, 1,24 )); Writeln(ETQ,'122100001580010 ' + Copy(Descricao.Text,25,45)); Writeln(ETQ,'1F4206000430013' + CodBarras.Text ); //EAN13 Writeln(ETQ,'141100000100290R$'); If Promocao.Checked Then Begin Writeln(ETQ,'134400000100385' + Tabela2.Text); Writeln(ETQ,'111100000020020Promocao ate ' +PromoVcto.Text); end else Begin Writeln(ETQ,'134400000100385' + Tabela3.Text); Writeln(ETQ,'111100000020020' + Dm.Hoje); end; Writeln(ETQ,'Q0001'); // Quantidade de Linhas Writeln(ETQ,#2'E'); // Inicia a impressao Writeln(ETQ,#2'f700'); // CORTA E VOLTA f = feed 700=pixels System.CloseFile(ETQ); Etiqueta 3 colunas como as da imagem, respectivamente ARGOX e ZEBRA. http://www.isoft-br.com.br/etq.jpg CDS.First; while Not Cds.Eof do Begin // Etiqueta ARGOX 3 Colunas AssignFile(ETQ,Dm.Lpt_Etiquetas); Rewrite(ETQ); Writeln(ETQ,#2'L'); // limpa impressao Writeln(ETQ,#2'm'); // milimetro - n polegada Writeln(ETQ,'D11'); // TAMANHO PADRAO PARA PIXS Writeln(ETQ,'c0100'); // largua12 da entiqueta Writeln(ETQ,'H5'); // teperatura max20 If (Trim(CDS.Fields[1].AsString) <> '') Then Begin // etiqueta da Esquerda WriteLn(Etq,'121100002380020' + RemoveAcento( UpperCase(Alinha(Dm.FEMP,' ',20,3)))); Writeln(ETQ,'121100002050020' + RemoveAcento(Alinha( CDS.Fields[1].AsString ,' ',21,2))); Writeln(ETQ,'121100001750020' + Alinha( Copy( RemoveAcento( CDS.Fields[2].AsString ),22,30),' ',21,2)); Writeln(ETQ,'121100001380020' + 'REF ' + RemoveAcento( CDS.Fields[3].AsString )+' Cod.'+ Formatfloat('######',CDS.Fields[0].AsInteger) ); Writeln(ETQ,'1F4206000430045' + CDS.Fields[4].AsString ); //EAN13 If Etq_Tabela.ItemIndex = 1 Then Writeln(ETQ,'112200000020020' + RemoveAcento( LTabB.Caption )+ CDS.Fields[5].AsString); If Etq_Tabela.ItemIndex = 2 Then Writeln(ETQ,'112200000020020' + RemoveAcento( LTabC.Caption )+ CDS.Fields[6].AsString); If Etq_Tabela.ItemIndex = 3 Then Writeln(ETQ,'121100000020020' + 'PAV: ' + CDS.Fields[5].AsString +' / PAP: ' + CDS.Fields[6].AsString); end; CDS.Next; If CDS.Eof Then Begin Writeln(ETQ,'Q0001'); // Quantidade de Linhas Writeln(ETQ,#2'E'); // Inicia a impressao Writeln(ETQ,#2'f700'); // CORTA E VOLTA f = feed 700=pixels System.CloseFile(ETQ); Break; end; If (Trim(CDS.Fields[1].AsString) <> '') Then Begin // etiqueta do meio WriteLn(Etq,'121100002380383' + RemoveAcento( UpperCase(Alinha(Dm.FEMP,' ',20,3)))); Writeln(ETQ,'121100002050383' + Alinha( RemoveAcento( CDS.Fields[1].AsString) ,' ',21,2)); Writeln(ETQ,'121100001750383' + Alinha( RemoveAcento( Copy( CDS.Fields[2].AsString ,22,30)),' ',21,2)); Writeln(ETQ,'121100001380383' + 'REF ' + RemoveAcento( CDS.Fields[3].AsString )+' Cod.'+ Formatfloat('######',CDS.Fields[0].AsInteger) ); Writeln(ETQ,'1F4206000430393' + CDS.Fields[4].AsString ); //EAN13 If Etq_Tabela.ItemIndex = 1 Then Writeln(ETQ,'112200000020383' + RemoveAcento( LTabB.Caption )+ CDS.Fields[5].AsString); If Etq_Tabela.ItemIndex = 2 Then Writeln(ETQ,'112200000020383' + RemoveAcento( LTabC.Caption )+ CDS.Fields[6].AsString); If Etq_Tabela.ItemIndex = 3 Then Writeln(ETQ,'121100000020383' + 'PAV: ' + CDS.Fields[5].AsString +' / PPAP: ' + CDS.Fields[6].AsString ); end; Writeln(ETQ,'Q0001'); // Quantidade de Linhas Writeln(ETQ,#2'E'); // Inicia a impressao Writeln(ETQ,#2'f700'); // CORTA E VOLTA f900 CloseFile(ETQ); CDS.Next; Coluna.Value := 1; end; end; 6:begin CDS.First; while Not Cds.Eof do Begin // Etiqueta Zebra ling. ZPL 3 Colunas (* - Altura do text | Largura do text | | ^FT202,47^A0N,28,28^FH\^FD" TEXTO "^FS | | | - Posição Vertical | |-POsição Horizontal *) AssignFile(ETQ,Dm.Lpt_Etiquetas); Rewrite(ETQ); Writeln(ETQ,'^XA'); // Inicia a etiqueta Writeln(ETQ,'^LH0,0'); // Cordenada para impressão Writeln(ETQ,'^MD8'); // Temperatura da cabeça de Impressão Writeln(ETQ,'^MNY'); // Etiqueta com separação (Espaço em branco ) entre elas Y-Sim N-Não If (Trim(CDS.Fields[1].AsString) <> '') Then Begin // etiqueta da Esquerda Writeln(ETQ,'^FT002,035^A0N,20,32^FD' +RemoveAcento( UpperCase(Alinha(Dm.FEMP,' ',20,3))) +'^FS'); Writeln(ETQ,'^FT002,055^AAN,18,10^FD' + Alinha( RemoveAcento( CDS.Fields[1].AsString) ,' ',21,2) +'^FS'); Writeln(ETQ,'^FT002,073^AAN,18,10^FD' + Alinha( RemoveAcento( Copy( CDS.Fields[1].AsString ,22,30)),' ',21,2) +'^FS'); Writeln(ETQ,'^FT002,093^AAN,18,10^FD' + 'REF ' + RemoveAcento( CDS.Fields[3].AsString )+' Cod.'+ Formatfloat('######',CDS.Fields[0].AsInteger) +'^FS'); Writeln(ETQ,'^FO040,121^BY2.3^BEN,40,Y,N^FD'+CDS.Fields[4].AsString+'^FS'); If Etq_Tabela.ItemIndex = 1 Then Writeln(ETQ,'^FT002,112^AAN,18,10^FD' + RemoveAcento( LTabB.Caption )+ CDS.Fields[5].AsString +'^FS'); If Etq_Tabela.ItemIndex = 2 Then Writeln(ETQ,'^FT002,112^AAN,18,10^FD' + RemoveAcento( LTabC.Caption )+ CDS.Fields[6].AsString +'^FS'); If Etq_Tabela.ItemIndex = 3 Then Writeln(ETQ,'^FT002,112^AAN,18,10^FD' + 'AV: ' + CDS.Fields[5].AsString +' / AP: ' + CDS.Fields[6].AsString +'^FS' ); end; CDS.Next; If CDS.Eof Then Begin Writeln(ETQ,'^XZ'); System.CloseFile(ETQ); Break; end; If (Trim(CDS.Fields[1].AsString) <> '') Then Begin // etiqueta do meio Writeln(ETQ,'^FT298,035^A0N,20,32^FD' +RemoveAcento( UpperCase(Alinha(Dm.FEMP,' ',20,3))) +'^FS'); Writeln(ETQ,'^FT298,055^AAN,18,10^FD' + Alinha( RemoveAcento( CDS.Fields[1].AsString) ,' ',21,2) +'^FS'); Writeln(ETQ,'^FT298,073^AAN,18,10^FD' + Alinha( RemoveAcento( Copy( CDS.Fields[1].AsString ,22,30)),' ',21,2) +'^FS'); Writeln(ETQ,'^FT298,093^AAN,18,10^FD' + 'REF ' + RemoveAcento( CDS.Fields[3].AsString )+' Cod.'+ Formatfloat('######',CDS.Fields[0].AsInteger) +'^FS'); Writeln(ETQ,'^FO335,121^BY2.3^BEN,40,Y,N^FD'+CDS.Fields[4].AsString+'^FS'); If Etq_Tabela.ItemIndex = 1 Then Writeln(ETQ,'^FT298,112^AAN,18,10^FD' + RemoveAcento( LTabB.Caption )+ CDS.Fields[5].AsString +'^FS'); If Etq_Tabela.ItemIndex = 2 Then Writeln(ETQ,'^FT298,112^AAN,18,10^FD' + RemoveAcento( LTabC.Caption )+ CDS.Fields[6].AsString +'^FS'); If Etq_Tabela.ItemIndex = 3 Then Writeln(ETQ,'^FT298,112^AAN,18,10^FD' + 'AV: ' + CDS.Fields[5].AsString +' / AP: ' + CDS.Fields[6].AsString +'^FS' ); end; CDS.Next; If CDS.Eof Then Begin Writeln(ETQ,'^XZ'); System.CloseFile(ETQ); Break; end; If (Trim(CDS.Fields[1].AsString) <> '') Then Begin // etiqueta da Direita Writeln(ETQ,'^FT590,035^A0N,20,32^FD' +RemoveAcento( UpperCase(Alinha(Dm.FEMP,' ',20,3))) +'^FS'); Writeln(ETQ,'^FT590,055^AAN,18,10^FD' + Alinha( RemoveAcento( CDS.Fields[1].AsString) ,' ',21,2) +'^FS'); Writeln(ETQ,'^FT590,073^AAN,18,10^FD' + Alinha( RemoveAcento( Copy( CDS.Fields[1].AsString ,22,30)),' ',21,2) +'^FS'); Writeln(ETQ,'^FT590,093^AAN,18,10^FD' + 'REF ' + RemoveAcento( CDS.Fields[3].AsString )+' Cod.'+ Formatfloat('######',CDS.Fields[0].AsInteger) +'^FS'); Writeln(ETQ,'^FO610,121^BY2.3^BEN,40,Y,N^FD'+CDS.Fields[4].AsString+'^FS'); If Etq_Tabela.ItemIndex = 1 Then Writeln(ETQ,'^FT590,112^AAN,18,10^FD' + RemoveAcento( LTabB.Caption )+ CDS.Fields[5].AsString +'^FS'); If Etq_Tabela.ItemIndex = 2 Then Writeln(ETQ,'^FT590,112^AAN,18,10^FD' + RemoveAcento( LTabC.Caption )+ CDS.Fields[6].AsString +'^FS'); If Etq_Tabela.ItemIndex = 3 Then Writeln(ETQ,'^FT590,112^AAN,18,10^FD' + 'AV: ' + CDS.Fields[5].AsString +' / AP: ' + CDS.Fields[6].AsString +'^FS' ); end; Writeln(ETQ,'^XZ'); CloseFile(ETQ); CDS.Next; Coluna.Value := 1; end; end;

Aproveitando o Tópico, estou com um caso de um cliente que emitiu cerca de 300 notas com o CFOP e CST errado. Preciso emitir uma carta de correção informando o CFOP correto. Na inutilização da numeração posso utilizar uma faixa de números e aplicar o mesmo evento em uma única chamada. Ex: Inutilize de 1 ao 10 Existe protocolo que eu possa fazer o mesmo procedimento com a CCe, corrigindo várias notas de uma só vez, ou a única forma é montar uma rotina para efetuar este procedimento??

Desistiram das atualizações?

Oi Juliana, é que quando emito pelo sistema do sicredi o UA aparece entra os campos agencia e conta ex: 710.56.29121, achei que precisava. Emiti um boleto normal pelo ACBR porem quando tento pagar via Internet Bank do próprio Sicredi ele acusa como digito do nosso numero inválido, por isso fiquei na dúvida, mas ainda não tentei pagar um boleto fora da agencia para ver se vem o retorno. =| Obrigado.

Olá pessoal, estou com problema para decifrar os boletos do sicredi, quando tento pagar online ele da como nosso numero Inválido, e não consegui entender como preencher algumas peculiaridades do banco, segue meu ini. Ag.: 710 CC.: 29121-5 UA/POSTO = 59 // Onde coloco isso aqui para para que ele fique junto com o código do cedente????? [bOLETO] BANCO=748 NUMERO=8 AGENCIA=710 AGENCIA_DV=0 CONTA=29121 CONTA_DV=5 CARTEIRA=3 CONVENIO=29121 ACEITE=NAO TITULAR=Empresa de Teste PROTESTO=NAO MSG1=APOS O VENCIMENTO COBRAR MULTA DE 2% SOBRE O VALOR MSG2=APOS O VENCIMENTO COBRAR R$ 0,25 POR DIA DE ATRAZO MSG3= MSG4= MSG5= MSG6= MSG7=

Pelo jeito terá que colocar um botão para acesso ao Menu Fiscal junto a tela de Login, ou um shomodal - stayontop que inicialize sempre que o sistema for chamado, na tela que informa o vencimento da chave também. Minha dúvida é a seguinte, se o cliente é daqueles encardido que adora dar um cansaço para pagar o boleto, extrapolar todas até que o contrato de prest. de serviço seja cancelado, ou seja não permitimos mais que utilize o sistema, qual é a nossa responsabilidade depois que isso acontecer? Ainda seremos obrigados a zelar pelas informações do individuo, e se o mesmo formate o PC ou extravie os arquivos? Alguém já passou por isso?

Exato meu amigo, essa história de PAF-ECF é uma tremenda palhaçada uma burocracia desnecessária, a implantação do CF-e tudo bem até faz sentido pois o cupom não sairia sem a autorização da SEFAZ. Isso é para esfolar o pequeno desenvolvedor que já tem que lidar com a inexperiência tecnológica da maioria dos clientes, que torram nosso saco para que você faça um acesso remoto para ex: VERIFICAR PORQUE O MSN DELE NÃO ACESSA ou pior PORQUE MEU FACEBOOK NÃO ENTRA OU MINHA FAZENDINHA NO ORKUT NÃO INICIA. Se o cliente quer sonegar ele fará, não será o PAF que vai impedi-lo de fazer, a simples adição de um segundo PDV, oculto nas entranhas dos diretórios do sistema operacional, com uma combinação de teclas para que o mesmo seja invocado já resolve o problema. Poderiam simplificar e trazer logo o CF-e ao invés de ficarem inventando moda, ou pelo menos poderiam reverter a cascata de impostos que recolhem para o bem comum da população ao invés de distribuírem entre seus pares. Vide. http://www.auditoriacidada.org.br/ Eu fico Pu##%#$# com essa burocracia penosa que sempre estoura para o lado de quem realmente trabalha.

Olá pessoal, desculpem se postem no local errado. Minha dúvida é a seguinte, hoje trabalho com empresas que estão no regime fiscal do SIMPLES, gostaria de saber o que preciso implementar em meu sistema para atender o LUCRO REAL ou PRESUMIDO. O que devo mudar ou adicionar? Grato pela atenção.

<< Sr. Moderador, caso já tenha algum tópico com este assunto, favor exclua este. >> Olá pessoal, vou colocar aqui como estou instalando e utilizando o ACBR em Dois Delphi ao mesmo tempo, para quem tiver curiosidade em conhecer o XE2, fiquei muito surpreso com o XE2 até essa semana usava apenas o Delphi 7 pois a outras versões não me agradaram mas após comprar um SmartPhone percebi que precisava me atualizar. Primeiro essa dica que peguei no site do Isaque Pinheiro. http://isaquesp.blogspot.com.br/ ----------------------------------------------------------------------------------------- Várias Versões do Delphi Instaladas Para termos várias versões do Delphi instaladas em nosso computador, devemos fazer uma configuração simples para que não haja conflito entre as versões, buscando os caminho das versões antigas ou vice versa. Passos: 1) Entre na IDE de cada Delphi instalado em sua maquina 2) Vá no menu Tools->Options-> Environment Variables, 3) Procure na lista "System Variables" a opção "Path" e selecione 4) Clique na opção "Add Override", será adicionado no quadro User Override uma opção Path 5) Selecione no quadro User Override, a opção Path que foi adicionada, clique em Edit e retire o path das outras versões, deixando somente os caminhos da versão que você estiver executando esse processo. Depois de executar essa tarefa em cada versão, cada uma ao ser iniciada, irá sobrepor a variável PATH, não indo buscar mais nada, no path das outras versões do Delphi. Até a proxima. --------------------------------------------------------------------------------------------------- Feito isso é só instalar os componentes nesta sequencia. 1- synapse 2- AcbrComum 3- PCN2 4- Capicom 5- AcbrNFe2 **Detalhe ao instalar os componetes pode aparecer uma mensagem de erro relacionado ao ACBRCOMUM, SYNAPSE, PCN_2 etc. Para solucionar remova a referencia a eles na clausula REQUIRES (DCP) que o pacote é recompilado e atualizado. Abraços.

O Amigo, Obrigado pela Dica. Perdi quase o dia todo procurando Chifre na cabeça de cavalo, Já havia tentado o backup restore para ver porque diabos dava páu aí não funcionou mesmo assim, só que fiz na minha máquina. Após sua dica, tentei efetuar no cliente e pra minha supresa a FBCLIENT.DLL dele ainda era a do 1.5 e ele ja esta com o 2.1 a tempos. Troquei a DLL fiz o backup restore e No cliente e deu 100%. Obrigado.

Pessoal, estou com um problema #@#%$%#$ em um banco de dados, começou hoje porém por equanto é em apenas um cliente. Um simples comando como este: Select T1.Codigo From Tabela T1 ja me retorna este erro.: ISC ERROR CODE:335544569 ISC ERROR MESSAGE: Dynamic SQL Error SQL error code = -206 Column unknown TB_CLIENTES.DB_KEY At line 3, column 20 STATEMENT: TIBOInternalDataset: ".frmMain.dlgWisql..." Isso acontece em qualquer tabela que eu tente executar o comando, ja revirei a net atráz de alguma solução e até agora nada. qualquer comando em que eu renomeie a tabela acontece essa #@#%#@%# alguém ja passou por isso? Uso o 2.1.18??? etc ja troquei para 2.5 e nada. Abraço. Agradeço a atenção.

Puts cara denovo aconteceu esse mesmo problema, porém agora verifiquei nos fontes e tem uma forma de solucionar este problema para que não ocorra novamente. O Fato: O componente gera um numero randomico com digito verificador (10 ultimas posições), e o acressenta na chave da nota. Se vc como eu fez meio nas "coxas" ou na pressa, vai dar problema. Ex de feito nas coxas: Grava_NOTA; Gera_XML; ENVIA; (M#@#!#@ caiu a conexão ou estou ou timeout) caso isso aconteça você deveria ter a chave ou o XML, para efetuar a consulta antes de tentar enviar a nota novamente da seguinte forma; Cosulta; Retornou não cadastrada, repete o comando, Gera_XML; ENVIA; caso você não tenha nem a chave nem o XML, aí a coisa fica feia, por ser um numero rândomico a cada novo comando , Gera_XML será gerada uma nova chave diferente da anterior e um novo xml com o mesmos dados, porem chaves diferentes e nome de arquivos diferentes (caso vc salve as os arquivos de envio/resposta) para consultar a nota anterior tem que tentar descobrir que numero foi gerado no primeiro XML (coisa praticamente impossivel). COMO EVITO ISSO??? É bem simples, porém não veio no manual de instrução... aqui vai meu exemplo. ACBRNFe.NotasFiscais.Items[0].NFe.Ide.nNF := StrToInt(Numero.Text); // Passa o numero da nota para o componente. ACBRNFe.NotasFiscais.Items[0].NFe.Ide.cNF := StrToInt(Numero.Text); //Passa o mesmo numero para a CNF para evitar que seja gerado um numero randomico, assim a chave independente da vez que é gerada será sempre a mesma para este numero da Nota. Espero que seja útil para alguém. abs.

refere-se a carregar o XML e visualizar os dados em modo Danfe? Se for isso tente utilizar assim: Nfe.NotasFiscais.Clear; Nfe.NotasFiscais.LoadFromFile('minhaNota.xml'); NFe.NotasFiscais.Imprimir; Caso seja apenas ver o conteúdo do XML sem formatação, abrao pelo Internet Explorer ou Bloco de Notas. valew

Pessoal, estou com um problema de vírus no Delphi 7, porém ele não é aquele vírus que infecta o sysconts.pas. Formatei a máquina e continuo com o problema, uso o Microsoft Security Essentials porem para desencanar tirei minhas dúvidas enviando o arquivo para www.virustotal.com onde ele é submetido á 43 anti-vírus diferentes em pelo menos 5 deles ele resulta vírus. Agora que vem o fumo, pensei que fosse alguma DCU que eu havia compilado quando fui infectado pelo virus no meu antigo Tibuki, resolvi eliminar todas elas, fiz um novo download do ACBR instalei o componente, zerei todas as units execto a do FORTSREPORT que só possuo as DCU. Qualquer outro sistema que eu compile, ele passa tranquilo, porem meu sistema utiliza o ACBR quando compilo ele, pelo RUN ou CTRL+F9 tudo tranquilo, porém quando dou um BUILD ALL, ai o bendito alerta aparece, somente após os Build All. então entro na pasta ACBR detono as DCU e compilo normal, ai passa... somente quando dou um Build All que ele apresenta as mensagens de infecção, envio para o site acima citado, e ele retorna positivo para virus em no minimo 5 antivirus, e quando envio o arquivo gerado pelo processo normal de compilação ele passa nos 43 testes. Alguem já passou por algo parecido? Abraços.

Olá Amigo Tem um exemplo aqui, o problema é quando os portais exigem canais seguro para enviar o e-mail. Resolvi o problema de uma forma radical, me cadastrei no {{ http://www.hospedagratis.net/ }} e transferi um domínio para lá, o preço é bem acessível são R$ 12,00 por 3 anos de hospedagem grátis, la ele aceita o envio de e-mail de todos os padrões. Como cada cliente usa um provedor diferente, isso acaba tornando-se um pé no saco para nós, então deixo pré definido para a rotina usar o e-mail do domínio HOSPEDAGRATIS, e usar este provedor para envia pelo SMTP, claro os dados do e-mail como resposta, assunto etc vão com a configuração do cliente. Fica a dica, no meu caso resolveu. Segue a rotina. begin // configura servidor smtp idSMTP1.Host := 'smtp.empresaxyz.com.br'; idSMTP1.Username := '[email protected]'; idSMTP1.Password := 'xxxxxxxx'; // configurando mensagem // e-mail da sua loja idmessage1.ContentType := 'text/html'; idmessage1.from.address := '[email protected]'; // e-mail destinatario idmessage1.recipients.emailaddresses := '[email protected]'; // Assunto (titulo E-mail) idmessage1.subject := 'Empresa XYZ (Envio automático NF-e) '+DateTimeToStr(now); // Corpo da Mensagem (use aqui um HTML ou texto que deseja enviar // juntamente com a mensagem. idmessage1.body.Add( 'Prezado Cliente,'+ 'Obrigado por comprar na Empresa XYZ. Estamos encaminhando esse e-mail contendo'+ ' em anexo, o arquivo eletrônico da sua Nota Fiscal de Compra; de acordo com '+ ' o "Manual de Integração do Contribuinte" da Nota Fiscal Eletrônica. '+ 'Sds,'+ 'A administração!'+ ' '+ 'PS. Caso tenha alguma dúvida favor entrar em contato conosco '+ 'pelos fones: xx xxx xxxxx ou E-mail: [email protected]'+ '; '+ 'Favor não responder!. Esse e-mail foi enviado automáticamente pelo'+ ' nosso servidor após registro da autorização de uso da NF-e para a vossa '+ 'Empresa.' ); // ou carregue uma mensagem pré-definida em um arquivo //idmessage1.Body.LoadFromFile('mensageNFe_destinatario.html'); // anexa o XML da NFe compartillhada no e-mail TIdAttachment.create(idmessage1.MessageParts, TFileName('c:\nfe_arquivos\compartilhadas\procNFE.xml')); // conecta com o servidor SMTP idSMTP1.connect; try // Envia o e-mail idSMTP1.send(idmessage1); finally idSMTP1.Disconnect; end; end

==================================================================================== Caro ALA, tenho interesse em contribuir com o desenvolvimento da NOTACONTROL, mas ainda nem iniciei o trabalho de construção, na minha cidade ela foi a vencedora da licitação para gerenciar as NFS-e, fiz o download da sua unit que você postou aqui, sua unit da NotaControl seguirá o mesmo padrão??? No e-mail q recebi da NotaControl parece-me q é necessário enviar os dados da empresa para que eles possam liberar o acesso ao ISS.

é bixo se a Nfe veio para facilitar a NFSe veio pra complicar, porque não seguem um padrão...?? Enfim, ja tentou entrar em contato com o suporte da GISSOnline?? Eu entrei em contato com a NOTACONTROL que ganhou algumas licitações, em algumas cidades aqui do PR e me forneceram toda a documentação e os arquivos, porém ainda não tive tempo de estuda-los. Abc

Cara essa mer#%4@ acontece, é foda... tenta fazer uma GAMBIARRA com o Demo do ACBR. 1 - Abra o Demo e cadastre seus dados no Demo 2 - Clique em GERAR NFE { Digite o numero da NFe q perdeu, ele irá gerar uma pseudo NFe com a chave de acesso e abrirá no DEMO mesmo} 3 - Copie a chave de acesso e tente consultar a NFe na receita com esta chave, ela deverá retornar a Nfe original. 4 - Se der certo, é correr para o abraço. chave de acesso,a chave da Nfe 1.0 pelo menos é composta da seguinte maneira. Tamanho (em caracteres) | 02 = Código da UF 04 = AAMM da emissão 14 = CNPJ do emitente 02 = Modelo 03 = Série 09 = Número da NF-e 09 = Código Numérico 01 = DV

Poderia ser mais especifico em sua pergunta? O enviar ja faz todo o procedimento, no programa demo do ACBR ja esta tudo explicado, e mais facil de entender ja que a maioria das funções estão separadas em cada botão, como imprimir Nfe, enviar, cancelar etc. Verifique no demo que tem tudo lá inclusive como criar e enviar a Nfe. No criar e enviar, você encontrará como colocar a razão social. abc