JUDSON ROSA

bom dia , KAPI vou dar uma olhada , e te falo , valeu . .

bom dia , mais e dessa forma q estou usando , eu nao consigo mandar e de nenhum rsrs.

Bom dia , amigos uso a rotina abaixo para envio de emails que peguei aqui no forum , mais de um tempo pra ca nao funciona mais , a varios meses venho tentando colocar ela pra funcionar e nada , ja pesquisei aqui mais nada resolve . Vou postar aqui a rotina , se não tiver uma solução vou desistir dessa ja perdi muito tempo , vi aqui tbm q o gilme postou a dica comprar um componente da http://www.marshallsoft.com/email-component-library.htm , se alguem usar componentes de outras empresas aceito sugestões. desde ja agradeço. estou usando windows 7 prof Function fSendMail ( cProvedor, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass ) ****************** Private oCfg, oMsg, oError, nEle, cToken, ; aAttach := {}, ; lAuth := ! Empty( cUser ) .and. ! Empty( cPass ), ; nSendOpt := 2 // send using: 1 = pickup folder 2 = port 3 = remote mail server * por por * ta ta * Nome Provedor endereço pop3 endereço smtp Autenticacao smtp pop ssl * // 465 Private aProvedor := { {"UOL (Universo On-Line)" , 'pop3.uol.com.br' , 'smtps.uol.com.br' , .t. , 587,995,.t.},; {"Terra" , 'pop.terra.com.br' , 'smtp.terra.com.br' , .t. , 587,110,.f.},; {"IG (Internet Generation)" , 'pop.ig.com.br' , 'smtp.ig.com.br' , .t. , 465,995,.t.},; // ok {"iBest" , 'pop.ibest.com.br' , 'smtp.ibest.com.br' , .t. , 465,995,.t.},; // {"iTelefônica" , 'pop.itelefonica.com.br' , 'smtp.itelefonica.com.br' , .t. , 025,110,.f.},; {"Gmail (Google Mail)" , 'pop.gmail.com.br' , 'smtp.gmail.com.br' , .t. , 465,995,.t.},; // {"Yahoo" , 'pop.mail.yahoo.com.br' , 'smtp.mail.yahoo.com.br' , .t. , 587,995,.F.},; // ok {"Hotmail" , 'pop3.live.com' , 'smtp.live.com' , .t. , 25,995,.T.},; // ok {"BOL (Brasil On-Line)" , 'pop3.bol.com.br' , 'smtps.bol.com.br' , .t. , 465,995,.T.} } // // {"Fotosombra" , 'pop.fotosombra.com.br' , 'smtp.fotosombra.com.br' , .t. , 025,110,.f.} } Default cSubject := "", ; cBody := "" * nPosicao := ASCAN(aProvedor, {|a| Upper(AllTrim(a[1])) = Upper(AllTrim(cProvedor)) } ) * nPort := aProvedor[nPosicao, 5] lAuth := aProvedor[nPosicao, 4] cMailServer := aProvedor[nPosicao, 3] cSSL := aProvedor[nPosicao, 7] * If "GMAIL.COM" $ Upper( cMailServer ) .and. ( Empty( cUser ) .or. Empty( cPass ) ) MsgStop( "Com GMail são requeridos nome do usuario e senha", "Atenção" ) Return .f. EndIf CursorWait() nEle := 1 lRet := .f. While ! Empty( cToken := StrToken( cAttach, nEle++, "," ) ) AAdd( aAttach, AllTrim(cToken) ) EndDo ? ":Value = AllTrim(cMailServer)" , AllTrim(cMailServer) ? ":Value = nPort " , nPort ? ":Value = nSendOpt " , nSendOpt ? ":Value = lAuth " , lAuth ? ":Value = cSSL " , cSSL ? ":Value = Alltrim(cUser)" , Alltrim(cUser) ? ":Value = AllTrim(cPass)" , AllTrim(cPass) Try oCfg := CREATEOBJECT( "CDO.Configuration" ) WITH OBJECT oCfg:Fields :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value = AllTrim(cMailServer) :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value = nPort :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value = nSendOpt :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value = lAuth :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value = 1 // cSSL :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value = Alltrim(cUser) :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value = AllTrim(cPass) :Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):Value = 30 :Update() END WITH CATCH oError MsgInfo( "Não Foi possível Enviar o e-Mail!" +CRLF+ ; "Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ; "SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ; "OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ; "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ; "Mensaje: " + oError:Description, "CDO.Configuração" ) END TRY oMsg := CreateObject( "CDO.Message" ) With Object oMsg :Configuration = oCfg :From = AllTrim(cFrom) :To = AllTrim(cTo) :Subject = AllTrim(cSubject) :MDNRequested = .F. :TextBody = AllTrim(cBody) For nEle := 1 To Len( aAttach ) :AddAttachment = AllTrim(aAttach[ nEle ]) Next If ! Empty( cBCC ) :BCC = AllTrim(cBCC) EndIf ? "send" :Send() End With MsgInfo("Mensagem Enviada com Sucesso!","Atençao") lRet := .t. Catch oError CursorArrow() MsgStop( "Não foi possível enviar a mensagem para "+AllTrim(cTo) + CRLF + ; "Error: " + cValToChar( oError:GenCode) + CRLF + ; "SubC: " + cValToChar( oError:SubCode ) + CRLF + ; "OSCode: " + cValToChar( oError:OsCode ) + CRLF + ; "SubSystem: " + cValToChar( oError:SubSystem ) + CRLF + ; "Mensagem: " + oError:Description ) lRet := .f. End Try oCfg := Nil oMsg := Nil If lRet MsgInfo("Email Enviado com Sucesso","Email") End CursorArrow() Return ( lRet ) ****************************** o erro e sempre o mesmo . error: 1001 subc: 3 oscode: 0 subsystem: cdo.message mensagem: disp_e_membernotfound

opa ja resolvi com a resposta do rochinha no topico do kapiaba kkkkk

Boa noite , exite algum comando que posso me informar um vetor com a lista de impressoras existentes no computador que esta a aplicação ?? ja vi o comando printersetup() , ele mostra as impressoras mas eu preciso e da relação em um ventor agradeço....

Boa noite , alguem resolveu , pq estou com o mesmo erro .

Galera a um tempo atras consegui aqui no forum ( nao lembro o autor ) esta rotina para gerar a partir da XML ASSINADA a XML PROTOCOLADA ou seja autorizada NFE, funciona perfeito. Agora quero fazer o mesmo para NFCe , mas acho q na hora de incluir as tags no final da algum problema na xml quando tendo edita-la nao vem no formato , segue rotina: cFileXmlAssinado := w_dbfPath + cSubPastaAssinadas_ + Alltrim(cChave)+".xml" cFileXmlProtocolo := w_dbfPath + cSubPastaProtocolos_ + Alltrim(cChave)+"-nfce.xml" //cFileXmlAssinado := w_dbfPath + "remessa\assinado\"+Alltrim(cChave)+".xml" // mudei aqui //cFileXmlProtocolo := w_dbfPath + "remessa\protocolos\"+Alltrim(cChave)+"-nfce.xml" // mudei aqui cArq_Assinado := memoread ( cFileXmlAssinado ) // ? "cFileXmlAssinado" , cArq wIni_Velho:= '<?xml version="1.0" encoding="UTF-8"?><NFe xmlns=' DO CASE CASE AT('versao="1.10"' , cArq_Assinado ) # 0 wIni_Novo := '<?xml version="1.0" encoding="UTF-8"?><nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.10"><NFe xmlns=' CASE AT('versao="2.00"' , cArq_Assinado ) # 0 wIni_Novo := '<?xml version="1.0" encoding="UTF-8"?><nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00"><NFe xmlns=' OTHE wIni_Novo := '<?xml version="1.0" encoding="UTF-8"?><nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10"><NFe xmlns=' ENDCASE cArq_Assinado := StrTran( cArq_Assinado , wIni_Velho , wIni_Novo ) wPosTmpIni := AT("<nNF>",cArq_Assinado) wPosTmpFim := AT("</nNF>",cArq_Assinado) WNFECOD := VAL( SUBS( cArq_Assinado , wPosTmpIni+5 , ( wPosTmpFim - (wPosTmpIni+5) ) ) ) wPosTmpIni := AT("<DigestValue>",cArq_Assinado) wPosTmpFim := AT("</DigestValue>",cArq_Assinado) c_DIGVAL := SUBS( cArq_Assinado , wPosTmpIni+13 , ( wPosTmpFim - (wPosTmpIni+13) ) ) nRet:=oNfeUtil:ConsultaNf( alltrim(cChave) , cFileXmlAssinado , .F. ) // alterado em 12/03/2015 - Paulo If nRet // retorno nfce foi autorizada na sefaz // guarde estas informações em banco de dados c_protocolo :=oNFeUtil:Protocolo c_recibo :=oNFeUtil:Recebimento c_verAplic :=oNFeUtil:VerAplic ? c_protocolo c_STATUS="100" c_MOTIVO:="Autorizado o uso da NFCe" if empty(oNFeUtil:Recebimento) c_protocolo:=left(oNFeUtil:Protocolo,15) c_recibo :=right(alltrim(oNFeUtil:Protocolo),19) c_datanfe :=transform(dtos(ctod(left(c_recibo,10))),"@r 9999-99-99") c_recibo :=c_datanfe + "T" + right(c_recibo,8) endif wMsg_status := c_MOTIVO oSayMsg:SetColor(CLR_BLUE, RGB(255,255,200)) oSayMsg:refresh() DO CASE CASE AT('versao="1.10"' , cArq_Assinado ) # 0 cArq_Assinado= cArq_Assinado + '<protNFe versao="1.10" xmlns="http://www.portalfiscal.inf.br/nfe">' CASE AT('versao="2.00"' , cArq_Assinado ) # 0 cArq_Assinado= cArq_Assinado + '<protNFe versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe">' OTHE cArq_Assinado= cArq_Assinado + '<protNFe versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe">' ENDCASE cArq_Assinado := cArq_Assinado + '<infProt Id="ID' + c_protocolo + '">' cArq_Assinado := cArq_Assinado + '<infProt>' cArq_Assinado := cArq_Assinado + '<tpAmb>' + cTpAmb + '</tpAmb>' cArq_Assinado := cArq_Assinado + '<verAplic>' + c_verAplic + '</verAplic>' cArq_Assinado := cArq_Assinado + '<chNFe>' + alltrim(cChave) + '</chNFe>' cArq_Assinado := cArq_Assinado + '<dhRecbto>' + c_recibo + '</dhRecbto>' cArq_Assinado := cArq_Assinado + '<nProt>' + c_protocolo + '</nProt>' cArq_Assinado := cArq_Assinado + '<digVal>' + c_DIGVAL + '</digVal>' cArq_Assinado := cArq_Assinado + '<cStat>' + c_STATUS + '</cStat>' cArq_Assinado := cArq_Assinado + '<xMotivo>' + c_MOTIVO + '</xMotivo>' cArq_Assinado := cArq_Assinado + '</infProt>' cArq_Assinado := cArq_Assinado + '</protNFe>' cArq_Assinado := cArq_Assinado + '</nfeProc>' wArq_Protocolo := FCREATE(cFileXmlProtocolo,1) wtam:= len( cArq_Assinado ) FWRITE( wArq_Protocolo , alltrim(cArq_Assinado) ) // , wtam ) FCLOSE( wArq_Protocolo ) o que pode esta ocorrendo durante a inclusao das tags ?? 21170524572077000285650010000097159000097151-nfce.xml

otimo ,.

Esses post caiu certinho , tambem estou nesse processo de desenvolvimento : 1 - criei um banco separado pra esse controle ate pq a venda ja o ocorreu no banco principal . 2 - tela para saida dos materiais 3 - dessa forma alem de controlar a saida de materias , podemos gerar relatorios das entregas ( pendentes e finalizadas )

Mirager , entao vou entrar em contato com as mesmas homologadoras , para pedir mais informacoes , obrigado pela força.

kapi , este e para celular ??

02/01/2016 10:10 2.142.008 NFe_Util_2Gv2.07b.exe e essa mesmo kapi. Estamos instalando o windows 10 aqui na empresa para fazermos tds os teste se é mesmo a versa do windows pq a basica nao instala msm. posto aqui depois

Nosso sistema de Cupom Fiscal ( ECF ) ja e homologado com o TEF com as empresas SOFTware EXPRESS e a SERVPDV so que agora estamos trabalhando com o NFCe , como faz muito tempo , por isso que estou pedido informacoes para quem ja fez com NFCe. Obrigado ai pela força vamos entrar em contato com o Cappta TEF se é mais facil , pq da muito trabalho se deslocar daqui de MA para SP ,obrigado qq coisa posto aqui , desde ja agradecemos.

Kapiaba o pessoal da flexdocs mandou fazer dessa forma q vc esta falando, mas infelizmente deu o mesmo problema . Aferra vou testar dessa forma , posto mais tarde, valeu

sera que é a versao do windows 10 ?

grande aferra ja fiz esse procedimento de executar como administrador e da o erro q relatei , agora o framework 2.0 ja esta instalado no windows 10

nao consigo enviar a imagem mas o erro e esse: error RA0000: erro ao gravar as informações de registro no registro. É preciso ter credenciais administrativas para executar esta tarefa. contate o administrador do sistema para obter ajuda.

Boa tarde, pessoal estou enfrentando problema na instalação da nfe_util_2g da flexdocs no windows 8 e 10 : error RA0000: erro ao gravar as informaçoes de registro no registro. É preciso ter credenciais ja liberamos os acessos dos usuarios e nada , alguem pode nos ajudar ?? segue tela d erro.

Boa tarde , pessoal quem ja homologou o seu NFCe com TEF onde e quais as empresas devo entrar em contato ?? Ola Vilian da uma dica ai , ainda sao as mesmas empresas ( SOFTware EXPRESS e a SERVPDV ) ou ja existe uma que faça tudo ??? ainda tem que viajar para SAO PAULO ou da para fazer pela NET ? da uma dica ai pessoal

Boa tarde , pessoal quem ja homologou o seu NFCe com TEF onde e quais as empresas devo entrar em contato ??

ok kapi fiz dessa forma , mais o problema continuava , ai conversando com o pessoal da flexdocs eles chamaram minha atenção para o ano de geração das notas referenciadas verifiquei que tinha notas de 2016 e 2017 , por isso que percentual do ano nao dava certo , mandei o cliente deixar so do mesmo ano, ai resolveu <pICMSInterPart

O nosso sistema estava correto ate dia 30/01/2017 , no dia 31/01/2017 passou a dar este erro:Percentual de ICMS interestadual para UF de destino difere do previsto para o ano da data de emissaosendo que: cliente: SP CFOP: 6918 - DEVOLUÇÃO CST: 041 - nao tributado pelas regras nao precisava mais implantei o DIFAL , mais mesmo assim continua o erro alguem ja passou por isso ?? segue xml 21170200761071000107550000000033581000033585nfe.xml

Acabamos de comprar mais uma licença do TeamViewer 11 Business , a novidade alem de td que ele possui o preço baixou e agora vc pode pagar ate em 6x no cartao de credito , antes era so de uma vez.

Vitor tivemos os mesmos problemas com acesso remotos , na verdade problema nosso , entao paramos e avaliamos a situação , se cobramos dos nossos clientes , entao temos que prestar um bom serviço e isso inclui o acesso remoto. Eu te digo compre o TeamViewer o melhor entre eles ( pelo menos pra nos ) , vai valer cada centavo investido .

mais que bom que resolvemos .