Enviar nfe ao cliente.

[maudruidas]

Pessoal hoje meus clientes gera o arq. TXT para o Sistema Gratuíto do Governo (Nfe) e depois exportam o arq. XML. Até aí tudo bem. Porém tem um cliente que faz 400 nfes por dia e está inviável ter que entrar no E-mail anexar o arquivo para depois eviá-lo. Meu sistema nesta empresa está em Clipper 5.2 (Console). Existe algum progama onde eu pudesse pegar o e-mail no cadastro do cliente e enviar mais rapidamente estas notas? Aguém já fez algo assim ? Muito obrigado e aguardando Maurício.

Maurício de Assis Pinto

Rancharia - SP

maudruidas@yahoo.com.br

xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

[maudruidas]

Pessoal hoje meus clientes gera o arq. TXT para o Sistema Gratuíto do Governo (Nfe) e depois exportam o arq. XML. Até aí tudo bem. Porém tem um cliente que faz 400 nfes por dia e está inviável ter que entrar no E-mail anexar o arquivo para depois eviá-lo. Meu sistema nesta empresa está em Clipper 5.2 (Console). Existe algum progama onde eu pudesse pegar o e-mail no cadastro do cliente e enviar mais rapidamente estas notas? Aguém já fez algo assim ? Muito obrigado e aguardando Maurício.

Maurício de Assis Pinto

Rancharia - SP

maudruidas@yahoo.com.br

xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

[edutraini]

USA A SOLUCAO DO GILMER EU USO CLIPPER A FAÇO A CHAMADA DO PROGRAMA EXTERNO DO GILMER E FAZ TODO O PROCESSO DA NFE

FW24 + CLIP5_2

email :edutraini@uol.com.br

[maudruidas]

Este programa já vem completo, com telas botões e tudo mais, ou são apenas funções onde o resto eu terei que fazer no fivewin. Meu problema é tempo, estou com dois sistemas em desenvolvimento no fivewin ( Um para comércio, onde este sim terá o Nfe do Gilmer e o Tef) e outro para um sindicato. Falem mais sobre este programa, se possívem o prório Sr. Gilmer Muito obrigado.

Maurício de Assis Pinto

Rancharia - SP

maudruidas@yahoo.com.br

xHarbour Build 0.99.7 (Simplex) - FWH 2.7.7 Workshop 4.5

[edutraini]

JA VEM TUDO PRONTO VC GERA O TXT PELO SEU PROGRAMA E MANDA PARA DENTRO DO PROGRAMA DO GILMER ELE CONVERTE O TXT EM XML FAZ O ENVIO E DEPOIS VC FAZ A RECEPCAO JA COM PROTOCOLO E TUDO COMO VC CONSEGUE CONTROLAR ATRAVES DE ARQUIVO RETORNO QUE VC TRATA NO SEU SISTEMA E PRONTO

FUNCIONA PERFEITAMENTE

FW24 + CLIP5_2

email :edutraini@uol.com.br

[reneumg]

Faz o seguinte lê os dados do XML e gera um DBF, depois faz algumas adaptações no exemplo que tem em dicas que envia email vc anexa e envia através desse DBF. abaixo um exemplo que eu faço pra ler xml e gero um dbf em FiveWin.

Espero que ajude.

Ps.: Mas pra ficar legal mesmo a solução do Gilmer é Ideal, isso seria só um quebra galho.

*** Funcao Para Ler Conteudo do XML

Function RetornaLoteXml()

Local aFiles := {}, nFor, xFor:=1, aFil:= {}

Local cBase:="C:\AVANT\TEMP\", cFileName, oCgc, oDig

Local oArq:="AX0001", oDlg, oLbx, oMeter

Local cPath := cGetDir( "Selecione a Pasta dos XML" )

LOCAL hFile, cXml, oVz:=0

LOCAL xmlDoc, xmlIter , xmlNode, cNode, cAttrib, cValue, oCampo, oConteudo

* Gera um arquivo auxiliar

DBCreate( (cBase+oArq) , ;

{ { "ARQ_XML","C",80,0 }, ;

{ "CNPJ" ,"C",14,0 }, ;

{ "NOME" ,"C",40,0 }, ;

{ "CHAVE" ,"C",60,0 }, ;

{ "NO_NOTA","C", 8,0 }, ;

{ "E_MAIL" ,"C",40,0 }, ;

{ "PROTOC" ,"C",30,0 } } )

use (cBase+oArq) alias AXARQXML exclusive new

cPath := AllTrim( cPath )

aFil := Directory( ( cPath + "\*.XML" ) )

aEval( aFil, { | uFile | AAdd( aFiles, uFile ) } )

nFor := Len( aFiles )

DEFINE DIALOG oDlg FROM 1, 1 TO 12, 44 ;

TITLE "Aguarde!.. Buscando os Dados XML..."

@ 2, 2 METER oMeter VAR xFor TOTAL nFor OF oDlg SIZE 135, 12

ACTIVATE DIALOG oDlg CENTERED nowait

For xFor=1 to nFor

oMeter:Set( xFor )

sysrefresh()

oVz:=0

cFileName:=aFiles[xFor,1]

If file(cPath+"\"+cFileName)

AXARQXML->(DbAppend())

AXARQXML->ARQ_XML := aFiles[xFor,1]

cNode := NIL

cAttrib := NIL

cValue := NIL

hFile := FOpen( cPath+"\"+cFileName )

xmlDoc := TXmlDocument():New( hFile )

If xmlDoc:nStatus != HBXML_STATUS_OK

Msginfo("erro ao ler XML ")

EndIf

xmlIter := TXmlIterator():New( xmlDoc:oRoot )

xmlNode := xmlIter:Find()

DO WHILE xmlNode != NIL

If !empty(xmlNode:cData)

If subs(xmlNode:cData,1,1) # "<"

oCampo :=xmlNode:cName

oConteudo:=xmlNode:cData

oVz+=iif(oCampo="CNPJ",1,0)

EndIf

If oVz=2 .and. oCampo="CNPJ"

AXARQXML->CNPJ := oConteudo

ElseIf oVz=2 .and. oCampo="xNome"

AXARQXML->NOME := oConteudo

ElseIf oCampo="chNFe"

AXARQXML->CHAVE := oConteudo

ElseIf oCampo="nProt"

AXARQXML->PROTOC := oConteudo

ElseIf oCampo="nNF"

AXARQXML->NO_NOTA:= oConteudo

ElseIf oCampo="Email"

AXARQXML->E_MAIL:= oConteudo

EndIf

Else

oCampo :=xmlNode:cName

EndIf

xmlNode := xmlIter:Next() // joga pro proximo campo

ENDDO

EndIf

Next

oDlg:End()

DBCloseAll()

Return

***************************

Reneu M. GArcia

FivWin 2.7 + xHarbour + WorkShop

[alceu11]

Na versao ke uso 6.12 Fivewin

Nao roda isto no for, tem como substuir este set( xfor )

Este loop e o principal ke pega todos os dados do XML.

Como fazer?

**********

For xFor=1 to nFor

oMeter:Set( xFor ) && ke comando subustitui o Set(xfor)

*****************

Se tiver mostre a alteracoes e ke comando. devo usar no For?

Clipper,XHarbour FiveWin 6,12

Editado por - alceu11 on 12/03/2011 10:52:29

[reneumg]

Alceu nao achei nada q possa por no lugar do :Set(xFor) mas isso é só pra atualizar o termometro do METER substitui a Dialog por outra ou pode tirar, essa Dialog não influi em nada pra buscar os dados do XML.

Blz.

Reneu M. Garcia