Rogerio Figueira

Olá pessoal, obrigado pelas contribuições. Eu ainda não tive tempo de testar a solução passada pelo Valdir nem a Pinga do Rochinha. Tentei agora a solução do Sistem , que parece a mais simples de implementar, mas apresenta um erro, não tenho a função WebConnect: Unresolved external '_HB_FUN_WEBCONNECT' Eu utilizo o FiveWin 1402 e o xHarbour 1.2.3 . []´s

Se o cliente quer usar a própria estrutura de rede dele, tem que instalar o servidor SQL apenas no servidor dele. A nossa aplicação pode ficar instalada numa pasta no servidor ou em pastas locais em cada terminal, isso tanto faz. A nossa aplicação vai abrir o BD SQL usando o endereço interno da rede, preferencialmente pelo IP da rede local. Tem que ter um arquivo de configuração com os dados de login para o servidor SQL , que são as informações: Endereço do servidor (IP), nome do banco de dados, usuário do banco de dados, senha do usuário e n.o da porta. A nossa aplicação roda em qualquer ambiente, tanto faz o servidor SQL local ou na Web, o que muda é o IP. []´s

Olá Pessoall, Eu estou precisando que o sistema informe o IP da conexão internet. O IP da rede local eu sei como conseguir, mas da Internet não. Alguém sabe como fazer? Sds.

Valdir, Você quer que o seu sistema acesse o banco de dados via web, sendo que o banco está no seu servidor local? Se for isso, o seu servidor local deve ser convertido para um servidor web. Eu faria isso instalando um servidor linux, com uma boa conexão internet. O acesso ao seu servidor local passaria a ser feito apontando para o IP da conexão internet do seu servidor, p.ex. PRIVATE cServer := "200.245.234.030" //ip do seu servidor PRIVATE cUser := "Usuario_do_banco" // jamais use root PRIVATE cPassword := "MinhaSenha" PRIVATE nPort := 3306 PRIVATE cDBName := "meubd" Nesse caso, o executável pode ficar em qualquer lugar, ele faz o acesso ao seu servidor para acesso aos dados. Se não for isso, me explique melhor. []´s

Olá Valdir, O que você quer é muito fácil de fazer. Aliás, eu tenho aprendido e desenvolvido somente usando o servidor SQL na web. Eu uso o tDolphin. Eu tenho uma hospedagem onde tenho acesso ao cPanel com alguma ferramentas muito úteis. Nesse plano de hospedagem eu tenho possibilidade de criar n bancos MySQL ou MariaDb. Tenho usado somente o MariaDb. Uma das ferramentas é o MySQL® Databases onde eu crio o banco de dados, cadastro o usuário de banco de dados e faço a vinculação do usuário ao banco criado. Por exemplo: eu crio o banco softserv_cpw4 ; cadastro o usuário IdentificadorDoCliente ; cadastro a senha desse usuário ; faço a vinculação do usuário IdentificadorDoCliente ao banco softserv_cpw4 . Outra ferramenta muito, muito útil é o PHPMyAdmin . Com ele eu faço toda manutenção nas tabelas do banco criado. No seu caso que você já tem as tabelas feitas, usaria a ferramenta de importar as tabelas. Com isso, vc já teria o banco na web pronto para uso. O passo seguinte é a conexão do seu aplicativo com o banco, que é a mesma que vc já usa para o localhost, algo assim: TRY CONNECT oServer HOST alltrim(host) ; USER alltrim(usuario) ; PASSWORD alltrim(senha) ; PORT nPort ; FLAGS nFlags; DATABASE alltrim(DBName) CATCH oErr MsgInfo( oErr:Description ) RETURN NIL //------------------ Só mais um detalhe que é MUITO importante: por default, o servidor MariaDb permite acesso somente ao IP do próprio servidor. Para permitir acesso remoto, vc tem que passar essas permissões, que pode ser de um IP especifico ou faixa de IP´s. No cPanel tem uma ferramenta para isso ou alternativamente você pode editar o arquivo de configuração do MariaDb para dar essas permissões de acesso. Então a minha dica é essa Valdir. Tenho usado assim e funciona muito bem. Qualquer dúvida pode perguntar. Saludos.

Augusto, O que manda o gerenciador do banco de dados substituir o registro correto é o comando WHERE "sr_recno" = 1595 Então verifique que nos casos de erro, o registro não está sendo corretamente identificado para o WHERE . Nesses casos, por padrão o gerenciador sql faz um replace all. []´s

Obrigado! Resolvido.

Meus caros, Eu tenho um único cliente que usa meu programa para emitir nfe e ele tira 2 notas por mês. Ele foi emitir esta semana e a sefaz retorna o erro 897 Rejeição: Código numérico em formato inválido Atualizei a DLL mas não é só isso, acho que tem que alterar algo mais no código ou na classe. Alguém pode me dar uma luz? []´s

Meus caros, Alguém tem uma tabela CEST atualizada, preferencialmente já em DBF? A que tenho aqui é de 2017 e não tem o segmento "Móveis" . []´s

Meu caro, eu uso há muitos anos o Inno Setup Compiler. Nas instruções quando envio o pacote sempre alerto os usuários para desabilitar o anti-virus antes da instalação e desbloquear o executável final no firewall para acesso pleno à internet. []´s

Aguiar, eu utilizo o tDolphin, achei muito simples e fácil a utilização. #include "fileio.ch" function abrebase() LOCAL nPort,nFlags Local host, usuario, senha, DbName LOCAL oErr nFlags := "0" nPort := "3306" if ! pconfsql(@host, @usuario, @senha, @DbName, "web") //função que carrega os dados de um arquivo criptografado MsgStop("Impossível recuperar dados de acesso ao Servidor.","Atenção:") return .f. end TRY CONNECT oServer HOST alltrim(host) ; USER alltrim(usuario) ; PASSWORD alltrim(senha) ; PORT nPort ; FLAGS nFlags; DATABASE alltrim(DBName) CATCH oErr MsgInfo( oErr:Description ) RETURN NIL END IF ! oServer:lError msginfo( "Host: " + oServer:cHost +CRLF+; "Database: " +oServer:cDBName +CRLF+; oServer:GetServerInfo() +CRLF+; oServer:GetClientInfo() ,"Connection OK") END oServer:Execute( "SET SESSION wait_timeout = 86400;" ) return nil Veja os exemplos de insert, update e select nos demos do tdolphin, crie um banco básico para testes e verás que é mais fácil lidar com o mysql do que com os dbfs.

Para quem usa a solução da FlexDocs, já foi liberada a nova dll com essa funcionalidade: http://flexdocs.com.br/guianfe/guiaAtualizacao.NT2018005.html?fbclid=IwAR36XnN_9AR9FoAx3ShM7ZwvBA4JVAvolzSOCqHlN9AA1ZkKZm7Rx3ACK7Q []´s

Deixar o banco na web, tem a vantagem da configuração, não depende do usuário ficar instalando software servidor. Ele precisa apenas do executável que carrega até num pendrive e roda em qualquer máquina sem nenhuma configuração adicional. O servidor eu instalo e mantenho. Creio que desenvolver em alguma linguagem para o aplicativo na web tal como o asp ou php não vai conseguir executar a dll da flexdocs. Estou usando a classe TDolphin.

Wanderso Eu estou migrando agora um sistema para o MariaDb para ficar num servidor web, porém o aplicativo instalado localmente. Nesse caso náo há qualquer problema com a FlexDocs. O executável continua normal, instalado na rede local, só o banco de dados no servidor web.

Boa noite. Use assim: oRef:=TVoNfeRefNf() oRef:RefNfe:=alltrim( Ref_Chave ) oNfe:AddItem(oRef) []´s

Crisvam tem que ser informado o n.o da chave de acesso da nfe referente ao produto que está sendo devolvido. Se utilizas a classe do Gilmer, inclua isto: oRef:=TVoNfeRefNf() oRef:RefNfe:=alltrim(a_chave_de_acesso) oNfe:AddItem(oRef) []´s

OK, tks.

Salve a todos! Eu uso ainda uma antiga rotina danfe.prg, porém um cliente me alertou que na impressão no campo Frete, está saindo o número correto da opção, no caso 4, mas o texto somente das duas opções que havia anteriormente: 1-Emitente 2-Destinatário. Naquele espaço não cabem as 6 opções da nfe4 e nem o texto completo de uma. Como os colegas resolveram? []´s

Olá Beto, eu uso o tDolphin mas o funcionamento é quase igual para qualquer consulta. Segue um exemplo: oQry := oServer:Query( "SELECT id, segto FROM tabseg" ) mseg={} aadd(mseg,space(30)) oQry:gotop() For x=1 to oQry:nRecCount aadd(mseg,oQry:segto) oQry:Skip() next oQry:End() oQry := oServer:Query( "SELECT id, zona FROM tabzon" ) mzon={} aadd(mzon,space(30)) oQry:gotop() For x=1 to oQry:nRecCount aadd(mzon,oQry:zona) oQry:Skip() next oQry:End() ... REDEFINE COMBOBOX Ocmatriz[13] VAR cmatriz[13] ITEMS mseg ID 105 of oFld:aDialogs[ 1 ] //segmento REDEFINE COMBOBOX Ocmatriz[14] VAR cmatriz[14] ITEMS mzon ID 122 of oFld:aDialogs[ 1 ] //zona Sds.

Boa dica. Ainda ontem, esvaziei a caixa de entrada no gmail, 75.000 msgs e não achava o lixo para limpar. Salu2

Ok, descobri. Tenho que salvar o conteúdo completo CN=NFe - Associacao NF-e:99999090910270, C=BR, L=PORTO ALEGRE, O=Teste Projeto NFe RS, OU=Teste Projeto NFe RS, S=RS isso tudo é que forma o cCertificado. Testei no cliente e funcionou com o warsaw na memória. Tks 4 all.

João, voltando à minha pergunta acima: Qual e como deve ser informado o número do certificado? É somente o número de série mostrado na tela do certflex? Fornecendo somente o número, não funfa.

Valdir, sim uso a Classe do Gilmer. Não encontrei essa função na classe :: SelecionarCertificado() Sds.

João Help! Não funcionou. Qual e como deve ser informado o número do certificado? É somente o número de série mostrado na tela do certflex? Fornecendo somente o número, não funfa. Sds.

Ok, João tks. Vou fazer isso agora. Eu havia sugerido ele instalar uma máquina virtual só para os bancos, mas essa solução fica mais rápida. Sds.