Ariston Santos

Se vc consegui conectar localmente mas não remotamente, desabilite o firewall do windows ou outro que vc esteja usando e tente conectar. Pode ser que o firewall esteja bloqueando conexoes para a porta 3306. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Sem problemas. Pega aí: /* Programa := funcoes.prg Autor := Ariston Sanstos (e colaboradores) Início := 28/11/2009 Descripcion := Funções diversas */ #include "FWCE.ch" #define INTERNET_FLAG_PASSIVE 134217728 #define FILE_ATTRIBUTE_READONLY 1 #define FILE_ATTRIBUTE_HIDDEN 2 #define FILE_ATTRIBUTE_SYSTEM 4 #define FILE_ATTRIBUTE_DIRECTORY 16 #define FILE_ATTRIBUTE_ARCHIVE 32 #define FILE_ATTRIBUTE_NORMAL 128 #define FILE_ATTRIBUTE_TEMPORARY 256 // // access types for InternetOpen() // #define INTERNET_OPEN_TYPE_PRECONFIG 0 // use registry configuration #define INTERNET_OPEN_TYPE_DIRECT 1 // direct to net #define INTERNET_OPEN_TYPE_PROXY 3 // via named proxy #define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY 4 // prevent using java/script/INS // // manifests // #define INTERNET_INVALID_PORT_NUMBER 0 // use the protocol-specific default #define INTERNET_DEFAULT_FTP_PORT 21 // default for FTP servers #define INTERNET_DEFAULT_GOPHER_PORT 70 // " " gopher " #define INTERNET_DEFAULT_HTTP_PORT 80 // " " HTTP " #define INTERNET_DEFAULT_HTTPS_PORT 443 // " " HTTPS " #define INTERNET_DEFAULT_SOCKS_PORT 1080 // default for SOCKS firewall servers. // // service types for InternetConnect() // #define INTERNET_SERVICE_FTP 1 #define INTERNET_SERVICE_GOPHER 2 #define INTERNET_SERVICE_HTTP 3 // // flags for FTP // #define INTERNET_FLAG_TRANSFER_ASCII 1 #define INTERNET_FLAG_TRANSFER_BINARY 2 STATIC c_Ftp, c_Usr, c_Psw, c_Fld FUNCTION MAIN() nFile := 1 cFName := CurDir() + "\origem.dbf" c_File := "origem.dbf" c_Ftp := "ftp.enderecoftp.com.br" c_Usr := "usuario" c_Psw := "senha" c_Fld := "sua/pasta/destino/" if file(cFName) IF ! empty(c_Ftp) .and. ! empty(c_Usr) .and. ! empty(c_Psw) .and. ! empty(c_Fld) IF MsgYesNo("Arquivo de exportação: "+c_File+". Gostaria de enviar para FTP?", c_File) WHILE .T. n_Put := 0 MsgRun("Transmitindo...","Transmitindo...",{||n_Put := ENVIAFTP(cFName, c_File)}) IF n_Put = 1 IF MsgYesNo("Ocorreu uma falha na transmissão. Tentar novamente?","Falhou") SysRefresh() ; LOOP ENDIF ELSEIF n_Put = -2 IF MsgYesNo("Erro de conexão: FTP, Usuário ou Senha incorreto. Tentar novamente?","Falhou") SysRefresh() ; LOOP ENDIF ELSEIF n_Put = -1 IF MsgYesNo("Erro de conexão: Internet não disponível. Tentar novamente?","Falhou") SysRefresh() ; LOOP ENDIF ELSEIF n_Put = 0 MsgInfo("Enviado p/ "+ALLTRIM(c_Ftp)+"/"+ALLTRIM(c_Fld)+ALLTRIM(c_File),"Ok") ENDIF EXIT END ENDIF ELSE MsgInfo("Falta definir a configuração para FTP","Aviso") ENDIF endif RETURN NIL //----------------------------------------------------------------------------// // Envia de pedido para FTP //----------------------------------------------------------------------------// FUNCTION ENVIAFTP(cFName, c_File) LOCAL hInternet, hConnect, nRet := 0 /* nRet = -2 => Erro de conexão: FTP, Usuários ou senha incorreto nRet = -1 => Erro de conexão: Internet não disponível nRet = 0 => Enviado com sucesso nRet = 1 => Erro desconhecido durante o envio */ hInternet = INTERNETOPEN( "FTP", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) IF hInternet == 0 nRet := -1 RETURN nRet ENDIF hConnect = INTERNETCONNECT( hInternet, ALLTRIM(c_Ftp), INTERNET_INVALID_PORT_NUMBER, ALLTRIM(c_Usr), ALLTRIM(c_Psw), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0 ) IF hConnect == 0 INTERNETCLOSEHANDLE( hInternet ) nRet := -2 RETURN nRet ENDIF l_Put := FTPPUTFILE( hConnect, cFName, ALLTRIM(c_Fld)+ALLTRIM(c_File), 0, 0 ) IF ! l_Put nRet := 1 ENDIF INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN nRet //----------------------------------------------------------------------------// * Funções em C //----------------------------------------------------------------------------// #pragma BEGINDUMP #include "windows.h" #include "wininet.h" #include "hbapi.h" LPWSTR AnsiToWide( LPSTR ); HB_FUNC( INTERNETOPEN ) { LPWSTR cAgent = AnsiToWide( ( char * ) hb_parc( 1 ) ); LPWSTR cProxyName = AnsiToWide( ( char * ) hb_parc( 3 ) ); LPWSTR cProxyBypass = AnsiToWide( ( char * ) hb_parc( 4 ) ); HINTERNET hInternet = InternetOpen( cAgent, hb_parnl( 2 ), cProxyName, cProxyBypass, hb_parnl( 5 ) ); hb_xfree( cAgent ); hb_xfree( cProxyName ); hb_xfree( cProxyBypass ); hb_retnl( ( LONG ) hInternet ); } HB_FUNC( INTERNETCLOSEHANDLE ) { hb_retl( InternetCloseHandle( ( HINTERNET ) hb_parnl( 1 ) ) ); } HB_FUNC( INTERNETCONNECT ) { LPWSTR cServerName = AnsiToWide( ( char * ) hb_parc( 2 ) ); LPWSTR cUserName = AnsiToWide( ( char * ) hb_parc( 4 ) ); LPWSTR cPassword = AnsiToWide( ( char * ) hb_parc( 5 ) ); HINTERNET hInternet = InternetConnect( ( HINTERNET ) hb_parnl( 1 ), cServerName, ( INTERNET_PORT ) hb_parnl( 3 ), cUserName, cPassword, hb_parnl( 6 ), hb_parnl( 7 ), hb_parnl( 8 ) ); hb_xfree( cServerName ); hb_xfree( cUserName ); hb_xfree( cPassword ); hb_retnl( ( LONG ) hInternet ); } HB_FUNC( FTPGETFILE ) { LPWSTR cRemoteFile = AnsiToWide( ( char * ) hb_parc( 2 ) ); LPWSTR cNewFile = AnsiToWide( ( char * ) hb_parc( 3 ) ); hb_retl( FtpGetFile( ( HINTERNET ) hb_parnl( 1 ), cRemoteFile, cNewFile, hb_parl( 4 ), hb_parnl( 5 ), hb_parnl( 6 ), hb_parnl( 7 ) ) ); hb_xfree( cRemoteFile ); hb_xfree( cNewFile ); } HB_FUNC( FTPPUTFILE ) { LPWSTR cLocalFile = AnsiToWide( ( char * ) hb_parc( 2 ) ); LPWSTR cNewRemoteFile = AnsiToWide( ( char * ) hb_parc( 3 ) ); hb_retl( FtpPutFile( ( HINTERNET ) hb_parnl( 1 ), cLocalFile, cNewRemoteFile, hb_parnl( 4 ), hb_parnl( 5 ) ) ); hb_xfree( cLocalFile ); hb_xfree( cNewRemoteFile ); } #pragma ENDDUMP id=code>id=code>Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Já encontrei a solução pesquisando no site internacional. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Alguém está conseguindo enviar para FTP direitinho? Poderia postar seu exemplo para eu comparar com o meu? Grato. Detalhe: Estou usando o Emulador, conexão via Microsoft ActiveSynk Editado por - j_arist on 15/08/2010 08:59:23

A Gilmer ou quem puder ajudar. Estou tentanto transferir arquivos .dbf para FTP conforme o exemplo de SAMPLES. Às vezes demora muito e não trasmite o arquivo. Quando transmite, o arquivo de destino fica com tamanho 0 (sem conteúdo). Qual é o problema? Estou usando FWPPC Janeiro/2010. Parte do meu código: FUNCTION ENVIAFTP(cFName, c_File) LOCAL hInternet, hConnect hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) hConnect = INTERNETCONNECT( hInternet, ALLTRIM(c_Ftp), INTERNET_INVALID_PORT_NUMBER, ALLTRIM(c_Usr), ALLTRIM(c_Psw), INTERNET_SERVICE_FTP, 0, 0 ) l_Put := FTPPUTFILE( hConnect, cFName, ALLTRIM(c_Fld)+ALLTRIM(c_File), 0, 0 ) INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN l_Put id=code>id=code>Detalhe: Estou repassando os nomes de arquivo de origem e de destino corretamente para as variáveis. ftp, usuários e senha estão corretos. Inclusive conseguo conectar e, às vezes, transmitir, só que com esse problema. Na maioria das vezes não vai. Já tentei enviar para dois ftps diferentes e nada. Minha conexão está boa usando FileZilla. Grato pela ajuda. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente" Editado por - j_arist on 15/08/2010 17:10:00

A Gilmer ou quem puder ajudar. Estou tentanto transferir arquivos .dbf para FTP conforme o exemplo de SAMPLES. Às vezes demora muito e não trasmite o arquivo. Quando transmite, o arquivo de destino fica com tamanho 0 (sem conteúdo). Qual é o problema? Estou usando FWPPC Janeiro/2010. Parte do meu código: FUNCTION ENVIAFTP(cFName, c_File) LOCAL hInternet, hConnect hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) hConnect = INTERNETCONNECT( hInternet, ALLTRIM(c_Ftp), INTERNET_INVALID_PORT_NUMBER, ALLTRIM(c_Usr), ALLTRIM(c_Psw), INTERNET_SERVICE_FTP, 0, 0 ) l_Put := FTPPUTFILE( hConnect, cFName, ALLTRIM(c_Fld)+ALLTRIM(c_File), 0, 0 ) INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN l_Put id=code>id=code>Detalhe: Estou repassando os nomes de arquivo de origem e de destino corretamente para as variáveis. ftp, usuários e senha estão corretos. Inclusive conseguo conectar e, às vezes, transmitir, só que com esse problema. Na maioria das vezes não vai. Já tentei enviar para dois ftps diferentes e nada. Minha conexão está boa usando FileZilla. Grato pela ajuda. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente" Editado por - j_arist on 15/08/2010 17:10:00

Já tentou usar uma fonte de tamanho menor? Uso listbox com campos de 60 caracteres e não encontrei problemas. É claro que, devido à largura da tela dos Pocket PC's, é de se esperar que se visualize poucos caracteres em uma linha, mas isso pode ser contornado usando uma fonte estreita, como Arial Narrow. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

É nisso que dá a preguiça. Era só clicar no link "Downlaod" do site da fivetechsoft e ler. Obrigado pela resposta; Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Olá. Com qual versão do xHarbour posso compilar os exemplos do Fivewin 6.12? Já testei a 0.99.30 e a 0.99.50. Faltam gtgui.lib e hbsix.lib. Com xHb110 falta ace32 que eu copio da 09930 resultando em outro erro: "Unresolved external _HB_PCREPOS_LIBRARY...". Vou continuar procurando mas se alguém puder indicar a versão correta só para agilizar, agradeço. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Olá. Com qual versão do xHarbour posso compilar os exemplos do Fivewin 6.12? Já testei a 0.99.30 e a 0.99.50. Faltam gtgui.lib e hbsix.lib. Com xHb110 falta ace32 que eu copio da 09930 resultando em outro erro: "Unresolved external _HB_PCREPOS_LIBRARY...". Vou continuar procurando mas se alguém puder indicar a versão correta só para agilizar, agradeço. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Uso estas funções para criar e estaurar backup de uma única tabela (cliente_tb). Vc deve adaptá-la para todas as suas tabelas. É para SQLLIB. // Funções de BACKUP: DBFCDX E MYSQL FUNCTION SIS_BKP() cBkpFldr := CurDrive()+":\"+GetCurDir()+'\backup' cBkpFldr := STRTRAN(cBkpFldr, "\\", "\") IF ! lIsDir(cBkpFldr) IF ! lMkDir(cBkpFldr) MsgStop("Erro ao criar a pasta para backup.","Erro") RETURN NIL ENDIF ENDIF cDir := cGetDir( "Selecione a pasta de destino" ) IF EMPTY(cDir) ; RETURN NIL ; ENDIF aFiles := Array( ADir( cPasta+"\*.*" ) ) ADir := ADir( cPasta+"\*.*", aFiles ) nReg := 1 nActual:=0 nTot := 1 cSay := "Processando arquivo" DEFINE DIALOG oDmeter RESOURCE "ORGANIZE" TITLE "Gerando Backup" REDEFINE SAY oId02 PROMPT cSay ID 101 OF oDmeter UPDATE REDEFINE METER oMeter VAR nActual TOTAL nTot ID 103 OF oDmeter UPDATE ACTIVATE DIALOG oDmeter CENTERED NOWAIT // Copiar tabelas em MySQL: cliente_tb cSay := "Importando dados da tabela cliente_tb" USE cliente_tb NEW VIA "MYSQL" oMeter:nTotal := cliente_tb->(RECCOUNT()) oMeter:Set( 0 ) oDmeter:Update() COPY STRUCTURE TO "clie_sql.dbf" COPY ALL TO &(cBkpFldr+"\clie_sql.dbf") WHILE EVAL({||(cSay := "Importando registro: "+ALLTRIM(STR(RECNO()))+"/"+ALLTRIM(STR(oMeter:nTotal)), oDmeter:Update() ),.t.}) CLOSE cliente_tb oMeter:nTotal := LEN(aFiles) // Copiar arquivos... FOR NX := 1 TO LEN(aFiles) IF (!"ZIP" $ aFiles[NX]) .AND. (!"EXE" $ aFiles[NX]) .AND. (!"TMP" $ aFiles[NX]) .AND. (!"_" $ aFiles[NX]) cSay := "Copiando "+aFiles[NX] oMeter:Set(NX) oDmeter:Update() COPY FILE &(cPasta+"\"+aFiles[NX]) TO &(cBkpFldr+"\"+aFiles[NX]) ENDIF NEXT aFiles := Array( ADir( cBkpFldr+"\*.*" ) ) ADir := ADir( cBkpFldr+"\*.*", aFiles ) aArquiv := {} FOR NX := 1 TO LEN(aFiles) IF ! "ZIP" $ aFiles[NX] AADD(aArquiv, cBkpFldr+"\"+aFiles[NX]) ENDIF NEXT nReg := 1 nActual:=0 nTot := LEN(aArquiv) cBkpFile := "diskentr_bkp_"+dtos(date())+".ZIP" IF HB_ZIPFILE( cBkpFldr+"\"+cBkpFile, aArquiv,8,{|cFile,nPos| (cSay := "Zipando "+cFile, oMeter:Set(nPos), oDmeter:Update())}) cSay := "Excluindo arquivos temporários" oDmeter:Update() FOR NX := 1 TO LEN(aFiles) FERASE(cBkpFldr+"\"+aFiles[NX]) NEXT ENDIF cSay := "Salvando na pasta "+cDir oDmeter:Update() COPY FILE &(cBkpFldr+"\"+cBkpFile) TO &(cDir+"\"+cBkpFile) SYSREFRESH() FERASE(cBkpFldr+"\"+cBkpFile) oDmeter:End() SysRefresh() MsgInfo("Backup criado com sucesso em "+cDir+"\"+cBkpFile+".", "Sucesso!") RETURN NIL // Restauração de BackUp: DBFCDX e MYSQL FUNCTION SIS_RST() IF ! MsgNoYes("ATENÇÃO ! . . ."+CRLF+CRLF+; "Certifique-se de que nenhum computador da rede estaja executando este programa."+CRLF+CRLF+; "Todos os dados atuais serão substituídos pelos da cópia de segurança."+CRLF+CRLF+; "Tem certeza que pode prosseguir?","Tem certeza?") RETURN NIL ENDIF CLOSE ALL IF USED() MsgAlert("Ainda existem usuários ativos.","Aviso") AbreDados() RETURN NIL END cArq := cGetFile( "Arquivo compactado|*.zip", "Selecione o arquivo" ) nTot := HB_GETUNZIPFILE(cArq) IF nTot = 0 MsgAlert("Arquivo incorreto ou danificado.","Erro") RETURN NIL ENDIF nReg := 1 nActual:=0 cSay := "Reataurando arquivo" DEFINE DIALOG oDmeter RESOURCE "ORGANIZE" TITLE "Restaurando Backup" REDEFINE SAY oId02 PROMPT cSay ID 101 OF oDmeter UPDATE REDEFINE METER oMeter VAR nActual TOTAL nTot ID 103 OF oDmeter UPDATE ACTIVATE DIALOG oDmeter CENTERED NOWAIT IF ! HB_UNZIPFILE(cArq ,{|cFile,nPos|(cSay := "Restaurando "+cFile, oMeter:Set(nPos), oDmeter:Update())}, , , CurDrive()+":\"+GetCurDir()+'\dados') MsgAlert("Houve um erro!") ENDIF cSay := "Importando dados da tabela de clientes" USE clie_sql.dbf ALIAS ORIGEM NEW VIA 'DBFNTX' nOrig := SELECT() oMeter:nTotal := ORIGEM->(RECCOUNT()) oMeter:Set(0) oDmeter:Update() c_Sql := "DELETE FROM cliente_tb WHERE CODIGO > '-999999999'" SQLLIB_ExecSQL( , ( c_Sql )) SELECT(nOrig) BEGIN TRANSACTION COPY ALL TO cliente_tb VIA 'MYSQL' WHILE EVAL({||(oMeter:Set(RECNO()), oDmeter:Update() ),.t.}) END TRANSACTION USE cliente_tb NEW VIA "MYSQL" cSay := "Recriando índice da tabala de clientes: 1/6" oDmeter:Update() INDEX ON CODIGO TO CLI_CODI cSay := "Recriando índice da tabala de clientes: 2/6" oDmeter:Update() INDEX ON NOME TO CLI_NOME cSay := "Recriando índice da tabala de clientes: 3/6" oDmeter:Update() INDEX ON TELEFONE TO CLI_FONE cSay := "Recriando índice da tabala de clientes: 4/6" oDmeter:Update() INDEX ON CELULAR TO CLI_CELU cSay := "Recriando índice da tabala de clientes: 5/6" oDmeter:Update() INDEX ON TELEFON2 TO CLI_FON2 cSay := "Recriando índice da tabala de clientes: 6/6" oDmeter:Update() INDEX ON ENDERECO TO CLI_ENDR CLOSE ALL MsgInfo("Restauração da cópia de segurança concluída.","Concluído") oDmeter:End() RETURN NIL id=code>id=code>Att. Ariston Santos. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Mesmo atrasado, muito obrigado pela resposta. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Olá pessoal. Como faço para obter a quantidade de chaves dentro de um arquivo CDX? Existe alguma função que retorna esta informação? Estou pretendendo fazer algo assim: USE ARQ.DBF NEW OrdListClear() OrdListAdd("ARQ","CHAVE1","CHAVE2","CHAVE3") // Função para obtar a quantidade de chaves no CDX, tipo: nKyes := PegaQtdKey() FOR Key := 1 TO nKyes ARQ->(DBSETORDER(Key)) IF ORDKEYCOUNT() # RECCOUNT() VaiParaRotinaDeCorracao() ENDIF NEXT id=code>id=code>Obrigado. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Olá pessoal. Como faço para obter a quantidade de chaves dentro de um arquivo CDX? Existe alguma função que retorna esta informação? Estou pretendendo fazer algo assim: USE ARQ.DBF NEW OrdListClear() OrdListAdd("ARQ","CHAVE1","CHAVE2","CHAVE3") // Função para obtar a quantidade de chaves no CDX, tipo: nKyes := PegaQtdKey() FOR Key := 1 TO nKyes ARQ->(DBSETORDER(Key)) IF ORDKEYCOUNT() # RECCOUNT() VaiParaRotinaDeCorracao() ENDIF NEXT id=code>id=code>Obrigado. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Para executar o SIMOBIL, com o notepad abra o arquivor c:\simobil\simobil.ini Nele você localizará as linhas: DataBase=simobil HostName=localhost UsrPswrd=senha_do_mysql Na linha "HostName=localhost" troque "localhost" pelo IP do servidor ou deixe como está so o servidor for o mesmo computador onde o SIMOBIL e o MySQL estão instalados. Na linha "UsrPswrd=senha_do_mysql" troque "senha_do_mysql" pela senha correta, ou seja, a senha que você informou quando configurou o MySQL. Se você não tiver o MySQL instalado, procure no www.baixaki.com.br por "Vertrigo"; baixe o Vertrigo Server e instale no seu computador. Ele configura seu computador para trabalhar com Servidor de intranet com PHP, Apache e MySQL. Se preferir usar o Vertrigo, a linha da senha fica assim: "UsrPswrd=vertrigo" Ao executar o SIMOBIL pela primeira vez ele criará o banco de dados as tabelas. O cídigo do operador é 1. A senha é 123. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

É isso que dá não ler direito. Quando li "Imobiliária" entendi "Biometria". Huahahaha... Tenho um controle para imobiliária (para MySQL) também, só que para controle de aluguéis (não para vendas). Cópia para avaliação: http://www.arsoft-ap.com.br/download/simobil_instalar.exe Para executar o SIMOBIL, com o notepad abra o arquivor c:\simobil\simobil.ini Nele você localizará as linhas: DataBase=simobil HostName=localhost UsrPswrd=senha_do_mysql Na linha "HostName=localhost" troque "localhost" pelo IP do servidor ou deixe como está so o servidor for o mesmo computador onde o SIMOBIL e o MySQL estão instalados. Na linha "UsrPswrd=senha_do_mysql" troque "senha_do_mysql" pela senha correta, ou seja, a senha que você informou quando configurou o MySQL. Se você não tiver o MySQL instalado, procure no www.baixaki.com.br por "Vertrigo"; baixe o Vertrigo Server e instale no seu computador. Ele configura seu computador para trabalhar com Servidor de intranet com PHP, Apache e MySQL. Se preferir usar o Vertrigo, a linha da senha fica assim: "UsrPswrd=vertrigo" Ao executar o SIMOBIL pela primeira vez ele criará o banco de dados as tabelas. O cídigo do operador é 1. A senha é 123. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente" Editado por - j_arist on 15/06/2010 17:41:38

Tenho um para controle de ponto, mas posso adaptar para outras finalidades. Preço único. Cóbro só atualizações quando solicitadas. Contato: ariston.ap@hotmail.com Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Usa a cláusula ::cTooltip e chame a função SHOWTOOLTIP() ao dar o foco no GET. Ex: REDEFINE GET oGt01 VAR oCod PICTURE "@!" ID 35 OF oPrdDl oGt01:cTooltip := "Digite o código neste campo." oGt01:bGotFocus := {||ShowTooltip()} Com o mouse sobre a dialog funciona, mesmo que vc não pare o mouse sobre o GET. No meu caso não funcionou quando o mouse estava fora da DIALOG. Se alguém souber o motivo e e poder me explicar, agradeço. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente" Editado por - j_arist on 14/06/2010 14:52:45

A partir de Agosto/2010 não será mais permitido registro de ponto via computador. Quem quiser registrar o ponto de modo eletrônico terá que usar o REP. Mais detalhes sobre a portaria: http://www.mte.gov.br/pontoeletronico/faq.asp Exemplo de modelo autorizado para registro de ponto: http://www.fn3.com.br/ Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Já resolvi o problema. Era a impressora e não a programação. Troquei de impressora e foi possível programar tudo. Agora já está funcionando. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Olá. Alguém sabe como fazer a abertura do dia na ECF ELGIN XG (ecfFiscNET) via ACBrMonitor? Não estou conseguindo emitir cupons. Avisa que falta abrir o dia. Outros comandos (leitura x, redução z, etc.) funcionam perfeitamente. Senão,... E usando as funções da DLL, é preciso emitir algum comando antes de abrir o cupom? Alguem poderia postar aqui um exemplo do uso da função E_VendItem, conforme declarado abaixo, só pra eu ver como se formata o conteúdo de cada parâmetro: DLL32 FUNCTION E_VendItem( Codigo AS STRING,; Descricao AS STRING,; Aliquota AS STRING,; ValUnit AS STRING,; Quantid AS STRING,; Acresc AS STRING,; ValDesc AS STRING,; Indice AS STRING,; Unidade AS STRING ) AS LONG PASCAL ; FROM "Elgin_VendeItemDepartamento" LIB xDll Grato pela ajuda! Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br Editado por - j_arist on 16/05/2010 11:40:19

Olá. Alguém sabe como fazer a abertura do dia na ECF ELGIN XG (ecfFiscNET) via ACBrMonitor? Não estou conseguindo emitir cupons. Avisa que falta abrir o dia. Outros comandos (leitura x, redução z, etc.) funcionam perfeitamente. Senão,... E usando as funções da DLL, é preciso emitir algum comando antes de abrir o cupom? Alguem poderia postar aqui um exemplo do uso da função E_VendItem, conforme declarado abaixo, só pra eu ver como se formata o conteúdo de cada parâmetro: DLL32 FUNCTION E_VendItem( Codigo AS STRING,; Descricao AS STRING,; Aliquota AS STRING,; ValUnit AS STRING,; Quantid AS STRING,; Acresc AS STRING,; ValDesc AS STRING,; Indice AS STRING,; Unidade AS STRING ) AS LONG PASCAL ; FROM "Elgin_VendeItemDepartamento" LIB xDll Grato pela ajuda! Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br Editado por - j_arist on 16/05/2010 11:40:19

Infelizmente não. Também estou procurando algo assim. Se alguem mais puder ajudar, agradeço. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Se vc pretende capturar a binagem (número do telefone) quando o cliente liga, uma ótima opção é usar o micDTMF da Sibel Eletrônica. Eu o uso sem problemas há um bom tempo. Contato: http://www.shapephone.com.br/modules/mydownloads/ Produto: http://www.shapephone.com.br/soundbina/soundbina.html Exemplo de uso: http://www.arsoft-ap.com.br/download/itens_do_pacote_fivewin/entrega_instalar.exe Você vai precisar do Geo-BRA-ID, que é o programa que faz a captura da binagem e grava em txt. Seu programa apenas ler o txt. Muito simples e prático. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"

Tambem tive este problema e resolvi mexendo nas configurações do Windows mesmo (Só que o meu é Ultimate). 1. A pasta de destino estava marcatada para "Somente leitura". Desmarquei; 2. Desabilitei o Windows Defender; 3. Baixei o nível do Controle de Contas de Usuários para zero. Com isso, pude gerar um o txitens.txt com itens de exportação para balança Toledo Prix 5 via MGV5, o que não estava sen possível antes. Ariston Santos FWPPC / Fwh / xHarbour / Bcc55 / xDev / Workshop Conheça o pacote fivewin: www.arsoft-ap.com.br "Leia a Bíblia diariamente"