Busca Preço Gertec

[Edvaldo1361303230]

Ola amigos, alguem tem as declarações de funções da Dll SC501GER do terminal de consulta de preço Busca Preço da Gertec? Estou disposto a pagar se for o caso.

Ja tentei e não deu certo:

Manual Gertec:

1. Inicializações da DLL.

vInitialize

Primeira rotina que deve ser chamada para inicializar a DLL.

procedure vInitialize; stdcall;

tc_startserver

Rotina que faz com que o servidor espere por conexões de terminais.

procedure tc_startserver; stdcall;

- Retorna 1 se o Servidor foi inicializado com sucesso.

- Retorna 0 se houve erro.

Tentei:

DLL32 FUNCTION vInitialize() AS _INT PASCAL LIB xDll

DLL32 FUNCTION tC_StartServer() AS _INT PASCAL LIB xDll

Tentei também:

DLL32 FUNCTION vInitialize() AS LONG PASCAL LIB xDll

DLL32 FUNCTION tC_StartServer() AS LONG PASCAL LIB xDll

Desde já agradeço

[Edvaldo1361303230]

Ola amigos, alguem tem as declarações de funções da Dll SC501GER do terminal de consulta de preço Busca Preço da Gertec? Estou disposto a pagar se for o caso.

Ja tentei e não deu certo:

Manual Gertec:

1. Inicializações da DLL.

vInitialize

Primeira rotina que deve ser chamada para inicializar a DLL.

procedure vInitialize; stdcall;

tc_startserver

Rotina que faz com que o servidor espere por conexões de terminais.

procedure tc_startserver; stdcall;

- Retorna 1 se o Servidor foi inicializado com sucesso.

- Retorna 0 se houve erro.

Tentei:

DLL32 FUNCTION vInitialize() AS _INT PASCAL LIB xDll

DLL32 FUNCTION tC_StartServer() AS _INT PASCAL LIB xDll

Tentei também:

DLL32 FUNCTION vInitialize() AS LONG PASCAL LIB xDll

DLL32 FUNCTION tC_StartServer() AS LONG PASCAL LIB xDll

Desde já agradeço

[leandroptu]

Boa Tarde,

Evaldo,

Eu uso a exportação para DBF e arquivo TXT e me atende perfeitamente.

Fivewin 8.12 + XHarbour Build 1.1.0 + WorkShop + vLib + SqlLib + MySQL 5.0.27 + xDev Studio + FWPPC

E-mail: leandrolopes@success.inf.br

Msn: leandroptu@ada.com.br

Paracatu/MG

[gilmer]

Olá,

Eu tenho a declaração em C, não sei se funciona com os mais atuais

e-mail: gilmer@fivewin.com.br

msn: fivewinbrasil@hotmail.com

[Edvaldo1361303230]

Ok Gilmer, eu tenho um programa seu que controla aqueles teclados gertec, muito bom por sinal, basicamente você já tem tudo lá é só trocar as funções da dll dos teclados pela dll do busca preço. Se você fizer isso me interessa comprar tambem este programa e acredito que outros programadores irão querer tambem.

Edvaldo

[Edvaldo1361303230]

Gilmer, se puder me envie as declarações.

comparies@hotmail.com

Obrigado

[Geo_sts]

Edvaldo

Me add no msn ou no skype que eu te ajudo!

Abraço

Geovanni Holior

Analista de Sistema

Clip55 * FHW 11 /xHarbour /MySql/ (sql)/Minigui

skype:geovanni.holior

www.tecnologeo.com.br

" Tudu Posso naquele que me Fortalece!"

[MARSAN]

Ola amigo, faco assim:

FUNCTION BUSPRE

M_CODREF=SPACE(05)

M_DESCREF = SPACE(35)

TABREF(.F.)

SET CURSOR ON

if MsgYesNo( "Deseja Transferir dados para o BUSCA PRECO ? ")

MID001(.T.)

ZAP

SELE TABREF

GO TOP

DO WHILE .NOT. EOF()

IF EMPTY(CODBAR)

SKIP

LOOP

ENDI

SELE MID001

APPEND BLANK

REPLACE CP01 WITH TABREF->CODBAR

REPLACE CP02 WITH "|"

REPLACE CP03 WITH TABREF->DESCREF

REPLACE CP04 WITH "|"

REPLACE CP05 WITH STR(TABREF->PVENREF,9,2)

REPLACE CP06 WITH "|"

REPLACE CP07 WITH RTRIM(TABREF->CODBAR)+CP02+CP03+CP04+CP05+CP06

SELE TABREF

SKIP

ENDDO

SELE MID001

CLOSE DATA

MID001(.T.)

M_ARQ="C:\ARQUIV~1\SC501TXT\PRICETAB"

COPY FIELDS CP07 TO &M_ARQ SDF

ENDI

CLOSE DATA

MSGALERT("ARQUIVO BUSCA PRECO GERADO COM SUCESSO!")

RETURN .T.

fwh 9.03+xharbour,bcc55,xdev

[Edvaldo1361303230]

Qual servidor o amigo está usando?

Tentei usar o ServUni da Gertec mas não consegui configurar o ODBC com .dbf e .cdx