gss200610

#pragma BEGINDUMP #include "hbpai.h" #include "windows.h" static HMODULE hdll = NULL; typedef BOOL ( _stdcall * _ BSENDDISPLAYMSG)(int id, char* line1, char* line2, long* timeExhibtion, long* typeAnimation); HB_FUNC( BSENDDISPLAYMSG) { _BSENDDISPLAYMSG pFunc = ( _BSENDDISPLAYMSG) GetProcAddress(hdll, "bSendDisplayMsg"); hb_retl( BOOL)pFunc( etc.....)); } #pragma ENDDUMP Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

add no skype ai: gilmar.gsoft Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

tens a dll e algum arquivo de como declara-la, ou manual que seja? Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

segue abaixo codigo lepeso.dll, testando em balancas urano usando C para xharbour, funciona muito rapido por sinal. UTILIZA DLL LEPESO.DLL DO PROPRIO FABRICANTE. #include "FiveWin.ch" FUNCTION MAIN() LOCAL cPesoUrano:=SPACE(200) LOCAL nPeso:=0, nConta:=0 WHILE nPeso == 0 nConta++ URANO(@cPesoUrano) IF !EMPTY(cPesoUrano) nPeso := VAL( SUBSTR(cPesoUrano, 8,7) ) ENDIF ENDDO ? "Peso retornado ", ROUND( (nPeso / 1000) , 3 ) RETURN( .T. ) #pragma BEGINDUMP #include "windows.h" //#include "iostream.h" #include "conio.h" #include "hbapi.h" typedef char *( *LEPESO)(); typedef int ( *ABREPORTASERIAL)(char *); typedef int ( *FECHAPORTASERIAL)(void); typedef void ( *ALTERAMODELOBALANCA)(int); typedef void ( *ALTERAMODOOPERACAO)(int); LEPESO ProcLePeso; ABREPORTASERIAL ProcAbrePortaSerial; FECHAPORTASERIAL ProcFechaPortaSerial; ALTERAMODELOBALANCA ProcAlteraModeloBalanca; ALTERAMODOOPERACAO ProcAlteraModoOperacao; static HINSTANCE hinstLib = NULL; HB_FUNC( URANO ) { char* peso = (char*)hb_parc(1) ; hinstLib = LoadLibrary("LePeso.dll"); if(hinstLib != NULL) { ProcLePeso = (LEPESO)GetProcAddress(hinstLib, "_LePeso"); ProcAbrePortaSerial = (ABREPORTASERIAL)GetProcAddress(hinstLib, "_AbrePortaSerial"); ProcFechaPortaSerial = (FECHAPORTASERIAL)GetProcAddress(hinstLib, "_FechaPortaSerial"); ProcAlteraModeloBalanca = (ALTERAMODELOBALANCA)GetProcAddress(hinstLib,"_AlteraModeloBalanca"); ProcAlteraModoOperacao = (ALTERAMODOOPERACAO)GetProcAddress(hinstLib, "_AlteraModoOperacao"); (*ProcAlteraModeloBalanca)(2); (*ProcAlteraModoOperacao)(0); (*ProcAbrePortaSerial)("COM1"); (char*)peso = (*ProcLePeso )(); } hb_retc( (char*) peso ); hb_storc((char*)peso, 1); FreeLibrary(hinstLib); } #pragma ENDDUMP Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82 Editado por - gss200610 on 02/04/2012 18:24:43

segue abaixo codigo lepeso.dll, testando em balancas urano usando C para xharbour, funciona muito rapido por sinal. UTILIZA DLL LEPESO.DLL DO PROPRIO FABRICANTE. #include "FiveWin.ch" FUNCTION MAIN() LOCAL cPesoUrano:=SPACE(200) LOCAL nPeso:=0, nConta:=0 WHILE nPeso == 0 nConta++ URANO(@cPesoUrano) IF !EMPTY(cPesoUrano) nPeso := VAL( SUBSTR(cPesoUrano, 8,7) ) ENDIF ENDDO ? "Peso retornado ", ROUND( (nPeso / 1000) , 3 ) RETURN( .T. ) #pragma BEGINDUMP #include "windows.h" //#include "iostream.h" #include "conio.h" #include "hbapi.h" typedef char *( *LEPESO)(); typedef int ( *ABREPORTASERIAL)(char *); typedef int ( *FECHAPORTASERIAL)(void); typedef void ( *ALTERAMODELOBALANCA)(int); typedef void ( *ALTERAMODOOPERACAO)(int); LEPESO ProcLePeso; ABREPORTASERIAL ProcAbrePortaSerial; FECHAPORTASERIAL ProcFechaPortaSerial; ALTERAMODELOBALANCA ProcAlteraModeloBalanca; ALTERAMODOOPERACAO ProcAlteraModoOperacao; static HINSTANCE hinstLib = NULL; HB_FUNC( URANO ) { char* peso = (char*)hb_parc(1) ; hinstLib = LoadLibrary("LePeso.dll"); if(hinstLib != NULL) { ProcLePeso = (LEPESO)GetProcAddress(hinstLib, "_LePeso"); ProcAbrePortaSerial = (ABREPORTASERIAL)GetProcAddress(hinstLib, "_AbrePortaSerial"); ProcFechaPortaSerial = (FECHAPORTASERIAL)GetProcAddress(hinstLib, "_FechaPortaSerial"); ProcAlteraModeloBalanca = (ALTERAMODELOBALANCA)GetProcAddress(hinstLib,"_AlteraModeloBalanca"); ProcAlteraModoOperacao = (ALTERAMODOOPERACAO)GetProcAddress(hinstLib, "_AlteraModoOperacao"); (*ProcAlteraModeloBalanca)(2); (*ProcAlteraModoOperacao)(0); (*ProcAbrePortaSerial)("COM1"); (char*)peso = (*ProcLePeso )(); } hb_retc( (char*) peso ); hb_storc((char*)peso, 1); FreeLibrary(hinstLib); } #pragma ENDDUMP Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82 Editado por - gss200610 on 02/04/2012 18:24:43

uso esse Bematech_FI_RelatorioGerencial pra todos os modelos e nao tenho problemas. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

vou prepara os fontes que compilei com hbm e postar aqui, pra vcs poderem fazer as devidas correcoes. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

primeira coisa, vc deve entrar em contato com a central e-Pharma, realizar um cadastro da empresa sua ai pra testes, ai ele liberará os terminais que vc precisa pra testes, e lhe mandará uma autorizador ja pre configurado. ai vc ira trabalhar via arquivo txt, realizar os testes com 3 cartoes de testes fornecidos por eles, e envia-hes o cupom fiscal. para finalizacao, e apos aprovacao dos testes. eles mandara um preconfigurado pra realizar os testes no cliente. É ISSO AI. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

QUAIS ARQUIVOS SAO ESSES, DO PAF?, AQUELE COM OS 14 DIGITOS DO NUMERO SERIE MAIS DATA E HORA? Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

eu mando na finalizacao do cupom, em qualquer ecf, e nunca tive problemas Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

http://www.fivewin.com.br/exibedicas.asp?id=1105 compilado com harbour no WINDOWS 7 x64 BITS, e testado Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

add ai gilmarss2010@gmail.com skype gilmar.gsoft Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

USO ESSA NO MEU SISTEMA E FUNCIONA MELHOR QUE QUALQUER OUTRA. POIS DISPARA VIA API. #pragma BEGINDUMP #include #include #include #include int hb_Ping( const char * cp ) { HANDLE hIcmpFile; unsigned long ipaddr; DWORD dwRetVal; char SendData[32] = "Data Buffer"; LPVOID ReplyBuffer; DWORD ReplySize; ipaddr = inet_addr( cp ); if (ipaddr == INADDR_NONE) return 1; hIcmpFile = IcmpCreateFile(); if (hIcmpFile == INVALID_HANDLE_VALUE) return 2; ReplySize = sizeof(ICMP_ECHO_REPLY) + sizeof(SendData); ReplyBuffer = (VOID*) malloc(ReplySize); if (ReplyBuffer == NULL) return 3; dwRetVal = IcmpSendEcho(hIcmpFile, ipaddr, SendData, sizeof(SendData), NULL, ReplyBuffer, ReplySize, 1000); if (dwRetVal == 0) return 4; return 0; } HB_FUNC( HB_PING ) { hb_retni( hb_Ping( hb_parc( 1 ) ) ); } #pragma ENDDUMP IF hb_Ping( GetHostByName( ALLTRIM( cServer) ) ) == 0 cMsg := "Conexão estabelecida com Sucesso. " + CRLF + "Servidor : " + cServer + CRLF + "IP : " + AllTrim( GetHostByName( ALLTRIM(cServer) ) ) ELSE cMsg := "Falha ao Conectar com o Servidor " + CRLF + cServer + CRLF + "Verifique a Rede!!" ENDIF Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

OLA A TODOS, VEJAM SE ENTENDEM O QUE TO PRECISANDO FAZER. array venda 01/01/2011, 000600, teste 02/01/2011, 000601, teste 02/01/2011, 000602, teste 02/01/2011, 000603, teste array item 01/01/2011, 000602, produto teste 01/01/2011, 000601, produto teste 01/01/2011, 000603, produto teste 01/01/2011, 000600, produto teste preciso tipo varrer o array venda e listar os itens equivalentes do array item tipo for i:= to len(venda) n:=ascan(item, {|x| x[1] == venda[i,1] .AND. x[2]==venda[i,2] }) if n > 0 aqui listar todos os itens,como: for npos := 1 to len( aqui preciso pegar apenas os do next ascan endif next preciso sempre varrer o array venda e tipo fazer um seek do item nele e listar todos os itens da respectiva venda. lenbrando que os dois sao arrays e uso DBF. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82 Editado por - gss200610 on 17/02/2012 07:09:03 Editado por - gss200610 on 17/02/2012 07:09:34

OLA A TODOS, VEJAM SE ENTENDEM O QUE TO PRECISANDO FAZER. array venda 01/01/2011, 000600, teste 02/01/2011, 000601, teste 02/01/2011, 000602, teste 02/01/2011, 000603, teste array item 01/01/2011, 000602, produto teste 01/01/2011, 000601, produto teste 01/01/2011, 000603, produto teste 01/01/2011, 000600, produto teste preciso tipo varrer o array venda e listar os itens equivalentes do array item tipo for i:= to len(venda) n:=ascan(item, {|x| x[1] == venda[i,1] .AND. x[2]==venda[i,2] }) if n > 0 aqui listar todos os itens,como: for npos := 1 to len( aqui preciso pegar apenas os do next ascan endif next preciso sempre varrer o array venda e tipo fazer um seek do item nele e listar todos os itens da respectiva venda. lenbrando que os dois sao arrays e uso DBF. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82 Editado por - gss200610 on 17/02/2012 07:09:03 Editado por - gss200610 on 17/02/2012 07:09:34

ja testei do harbour e funciona 1000%, com xharbour deu muitos bugs. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

tem a tdolphin free do Daniel Garcia, muito boa tambem. postei uns demos e como gerar as libs dela. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

1 - Baixe o tortoise svn 2 - crie um pasta com o nome tdolphin 3 - botao direito encima da pasta ( depois de instalar o tortorise) 4 - opcao svn checkout adicione o link http://www.sitasoft.net/tdolphin 5 - blz, vai baixar todos os fontes e atualizar nas pasta 6 - agora edite o arquivo setenvx ( obs: xharbour) 7 - execute o bat setenvx.bat depois de alterado 8 - ate aqui ja gerou a lib na pasta lib 9 - os chs necessarios estao na pasta include da tdolphin baixando automaticamente. 10- abaixo tem as libs geradas pra five 11.12+xhb ultima versao e bcc 5.82, as dlls usem do link abaixo, e coloque na pasta do seu projeto(.exe) 11 - estou postando um demo q fiz rapidez aqui, . link dos fontes demo feito por mim( xdev 0.65) : http://www.4shared.com/rar/FbbNZNHS/TESTE_dolphin.html ( para conexao tem um arquivo ini connto.ini com as configs setadas pra o bd teste do mysql, vai criar uma tabela teste, e fazer um insertizinho de 5000 regs pra brincarem) link libs/includes tdolphin( FWH 11.12+XHB+BCC5.82) http://www.4shared.com/rar/Fxg850g-/tdolphin_files.html MAIS EXEMPLOS NO SITE DA TDOLPHIN POSTADO ACIMA. DEPOIS POSTO EM DICAS, DEVIDO A CORRERIA AQUI. FIQUEM NA PAZ................ Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82 Editado por - gss200610 on 25/01/2012 21:46:46 Editado por - gss200610 on 26/01/2012 10:15:03

BEGIN TRANSACTION SQLExecute(sql_cmd) END TRANSACTION COMMIT TRANSACTION --- nao seria assim: essa ordem do commit ai ta errada. primeiro inicia tansacao, comita, finaliza. veja se é isso. BEGIN TRANSACTION SQLExecute(sql_cmd) COMMIT TRANSACTION END TRANSACTION Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

function iCFLancarDescontoItem_ECF_Daruma(pszNumItem:String; pszTipoDesc:String; pszValorDesc:String): Integer; StdCall; External 'DarumaFramework.dll'; Int_Retorno := iCFLancarDescontoItem_ECF_Daruma('001','D%','0,10'); Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82 Editado por - gss200610 on 21/01/2012 09:43:43

SIM, VALE, POIS O SERVER 2008 USA MESMO KERNEL DO WINDOWS 7. A REGRA É BASICA, SE TEM USUARIO ADMINISTRADOR NO SERVER 2008 VC DEVE DEFINIR UMA SENHA E CRIAR UM USUARIO NAS ESTACOES COM MESMO NOME E SENHA PARA LOGAR. PELO MENOS EM LUGARES QUE JA INSTALEI O SERVER 2008 E TINHA 13 ESTACOES FAZIA ASSIM E NUNCA TIVE PROBLEMAS. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

OS USUARIOS DESSAS MAQUINAS QUE TEM O XP, TA CADASTRADO NO SERVER, E COM PERMISSAO DE ADMINISTRADOR? POIS EM ALGUNS CASOS O MESMO USUARIO DO WINDOWS SERVER 2008, DEVE SER O MESMO DO XP E COM SENHA DE PREFERENCIA. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

TDOLPHIN - CLASSE DE ACESSO AO MYSQL FREE, DO NOSSO AMIGO DANIEL GARCIA. POR SINAL MUITO BOA, JA TIVE A OPORTUNIDADE DE TESTAR, EXCELENTE. Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

irmao retire o meu tambem. gilmarss2010@gmail.com Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82

http://tdolphin.blogspot.com/ http://www.sitasoft.net/dolphin/files/ Gilmar Silva Santos Programador - Goiânia Go Não Recuarei, Nada Temerei, Comigo Está o Senhor. Email : gilmarss2010@gmail.com FWH 10.8, DBF, MED EDITOR, UESTUDIO, XHB 1.2, BCC 5.82 Editado por - gss200610 on 08/01/2012 18:16:29