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