Edu

Obrigado Kapiaba! Consegui aqui, porém não pelo gmail. Saberia me dizer a causa deste problema com o gmail?

Testei com o hotmail nas portas: 465, 587 e 25, mas o erro continua.

Kapiaba, Eu vi todos os posts e o erro continua. Onde estou errando? Segue o código: Function SendMailCDO() LOCAL objMsg, cHtml LOCAL msgConf //' Server Configuration TRY msgConf := CreateObject("CDO.Configuration") WITH OBJECT msgConf:Fields :Item("http://schemas.microsoft.com/cdo/configuration/smtpserver"):Value:= "smtp.gmail.com" :Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport"):Value:= 465 :Item("http://schemas.microsoft.com/cdo/configuration/sendusing"):Value:= 2 // Remote SMTP = 2, local = 1 :Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"):Value:= .t. //1 :Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl"):Value:= .t. //1 :Item("http://schemas.microsoft.com/cdo/configuration/sendusername"):Value:= "sistemas.cyclonet@gmail.com" :Item("http://schemas.microsoft.com/cdo/configuration/sendpassword"):Value:= "xxxxxx" :Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):Value:= 2000 :Update() END WITH CATCH oError MsgInfo("Configuration instance object error " + ";" + 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+ ; "Message: " + oError:Description ) END //' Email TRY objMsg := CreateObject("CDO.Message") WITH OBJECT objMsg :Configuration = msgConf :From = "sistemas.cyclonet@gmail.com" :To = "eduardo.sp6@gmail.com" :Subject = "Test send with Gmail account" :TextBody = "Teste" :MDNRequested = .F. // Indicates whether a Message Disposition Notification is requested on a message. :Send() END WITH // objMsg:Send() CATCH oError MsgInfo("Could not send message" + ";" + 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+ ; "Message: " + oError:Description ) END Return nil

kapiaba, Testei com a versão do xhb 1.2.3 e o erro continua. Error description: Error CDO.Message/3 DISP_E_MEMBERNOTFOUND: SEND

Obrigado Kapiaba! Vou testar aqui. Abs.

Prezados, Bom dia! Não estou conseguindo enviar e-mail via CDO.Message. O erro diz que não encontrou o método [send()]. Obs.: O registro da cdosys.dll está ok! Tentei utilizar a HB_SendMail(), onde me retorna o seguinte erro no log: 20150902-12:09:45 :INETRECVLINE( 1723924, , 512 ) >> 530 5.7.0 Must issue a STARTTLS command first. d60sm1547769qga.30 - gsmtp << Tentei utilizar a classe TSmpt, onde não retorna erro algum porém não envia a mensagem. Alguém teria uma solução?

Obrigado amigo! Vou pesquisar. Abs.

Bom dia amigos! Alguém sabe sobre o Cadastro Centralizado de Contribuinte (CCC)? Ele é responsável pela consulta e validação do CNPJ ou IE do destinatário da Nf-e. No ato da emissão da NF-e, se o CNPJ ou IE não estiver de acordo, retorna erro. Existe alguma forma de implementar esta consulta e validação no sistema? Link: https://www.sefaz.rs.gov.br/NFE/NFE-CCC.aspx

Dá uma olhada. http://www.xharbour.com/products/xbscript.php https://sites.google.com/site/jlcprogrammingstuff/home/tcc/xbscript-to-acces-dbf-files

Obrigado Kapiaba! Resolvi aqui. O problema era que faltava o W32OLE.PRG no meu projeto e utilizar a função xhb_CreateObject().

Boa tarde senhores! Estou implementando a rotina responsável pela assinatura de documentos xml, que obtive no projeto HBNFE e estou tendo problemas. Gostaria da ajuda de vocês. O erro ocorre quando vou selecionar o nó Signature. Conforme linha abaixo: xmldsig:signature := oDOMDoc:selectSingleNode(".//ds:Signature") Descrição do Erro: Application =========== Path and name: C:\SISTEMAS\BANCO DBF\Ferramentas-NFS-e\Menunfse.EXE (32 bits) Size: 2,673,664 bytes Time from start: 0 hours 0 mins 4 secs Error occurred at: 20/07/2015, 16:08:22 Error description: Error MSXML2.DOMDocument.5.0/3 DISP_E_MEMBERNOTFOUND: SELECTSINGLENODE Args: [ 1] = C .//ds:Signature Stack Calls =========== Called from: source\rtl\win32ole.prg => TOLEAUTO:SELECTSINGLENODE(0)

Boa tarde Rochinha! Primeiramente obrigado pela resposta. Acompanho seus posts e sei que você conhece muito. Obrigado pela explicação! Bom, eu consegui resolver aqui. Após muitas pesquisas e um pouco de perseverança consegui fazer minha dll funcionar com o Fivewin. Só pra constar que meu conhecimento na plataforma .NET é básico, mas vou tentar explicar mais ou menos o que fiz. Ao invés de criar a classe normalmente, eu pesquisei sobre COM Objects e lembrei que o fivewin tem suporte á esses objetos. "Graças a Deus!". Então criei um COM Class no VB.NET, criei também uma assinatura Assembly para que o registro da dll no windows não apresentasse erros. Resumindo, consegui registrar a dll no windows e estou utilizando sem problemas. Instancio minha classe com o comando: CreateObject() e executo os metodos sem problemas. Não preciso mais carregar a dll com LoadLibrary() e declarar "DLL32 FUNCTION..." Se for do seu interesse ou dos demais, eu posto um tutorial aqui. Forte abraço.

Bom dia pessoal! Eu desenvolvi uma dll no visual basic 2013 e não consigo executar as funções, está retornando NIL. Alguém já fez coisa parecida e pode me ajudar? Código Fivewin: #include "Fivewin,ch" FUNCTION MAIN() PUBLIC xDll:= LoadLib32("nomedadll.dll") lRet:= RetornaStr() ? lRet FreeLibrary(xDll) RETURN NIL DLL32 FUNCTION RetornaStr() AS STRING PASCAL LIB xDll

Ariston, Testei aqui e não funcionou.

Obrigado Ariston! Vou testar aqui. Abraço.

Eroni, Preciso saber o que é feito nas funções ListAsArray() e SWExecSql() para poder testar.

Obrigado Eroni! Vou testar aqui.

Prezados, Boa tarde! Estou usando SqlRdd com banco de dados MYSQL e estou implementando uma rotina de alteração de estrutura das tabelas. Eu vi que o SQLRDD tem a função ChangeStruct(), porém não consegui fazer funcionar. Alguém tem uma rotina semelhante que possa me ajudar? Grato.

alexavel, Consegui abrir o fastreport manager, porém não estou conseguindo exibir os campos do vetor. Poderia explicar este último parâmetro do método: SetUserDataSet() ?? Grato.

Obrigado pela ajuda Alexandre! Só tem um problema, quando eu executo o sistema simplismente fecha e não gera nenhum erro. Pode explicar isso? kkk Abs.

Boa tarde amigos! Quero implementar o FastReport para gerar relatórios. Aguém teria um exemplo simples de como utilizar o FastReport com xHarbour para impressão de um array? Obrigado!

João, Estou usando a TXMLDOCUMENT. Abs.

Prezados, Bom dia. Estou criando um arquivo xml e não estou conseguindo alterar o cabeçalho com a codificação desejada. Já pesquisei e não encontrei uma solução. Segue o código: * Cria novo documento xml oXml:= TXMLDocument():New() * Cabecalho oXml:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_PI , 'xml',, 'version="1.0" encoding="UTF-8"' )) * Tag Principal do arquivo oNode:= TxmlNode():New( HBXML_TYPE_TAG , 'eSocial' ) oNode2:= TxmlNode():New( HBXML_TYPE_TAG , 'evtTabLotacao' ) oNode3:= TxmlNode():New( HBXML_TYPE_TAG , 'id' ) oNode3:cData:= ::nID oNode2:AddBelow(oNode3) oNode:AddBelow(oNode2) oXml:oRoot:AddBelow(oNode) // Add a tag eSocial * Cria o arquivo hFile := FCREATE( ".\evS-1020.xml" ) IF hFile != -1 oXml:Write( hFile , HBXML_STYLE_INDENT + HBXML_STYLE_THREESPACES ) Fclose( hFile ) ELSE MsgInfo("Falha ao criar o arquivo de envio do evento S-1020", "Atenção") ENDIF ****************************************************** Resultado: <?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?> <eSocial> <evtTabLotacao> <id>0001</id> </evtTabLotacao> </eSocial> Alguém pode me ajudar???

Obrigado Alexandre! Procurei e consegui resolver aqui. Abraço.