Página 1 de 1

Leitor Busca Preco da GERTEC

Enviado: 11 Jul 2017 22:03
por alberto_dias
Prezados amigos,
Preciso fazer com que o meu sistema tenha comunicação com o Busca Preço da GERTC ( DLL SC501GER.DLL)
Por favor alguém teria um exemplo de como se comunicar via SOCKET com esta DLL
Estou tentando usar as funções HB_DYN_CALLCONV_CDECL mas evolui muito pouco, alguns comandos funcionam outros não,
Agradeço desde já,

LEITOR BUSCA PRECO DA GERTEC

Enviado: 11 Jul 2017 23:27
por fladimir
Tenho a anos integração, mas instalo o ServUni da Gertec e exporto um TXT no formato q ele lê na pasta especifica e pronto,simples e prático...

Não resolve assim?

LEITOR BUSCA PRECO DA GERTEC

Enviado: 12 Jul 2017 15:43
por alberto_dias
Fladimir,
obrigado por responder,
Liguei para o suporte da Gertec
e eles estão enviando o material do Servuni,
Vou fazer os testes,

LEITOR BUSCA PRECO DA GERTEC

Enviado: 12 Jul 2017 23:11
por fladimir

Código: Selecionar todos

	      cArq  := "PriceTAB.TXT"
	      nHand := FCREATE(cArq,0)
	
	      Produto->(DBGOTOP())
	      while Produto->( !eOF() )
	         if Empty(Produto->Codigo)
	            Produto->(DbSkip())
	         else
	            cBuffer := alltrim(Produto->codigo) + "|"+ Alltrim(Produto->Descricao) + "|" + alltrim(Str(Produto->Preco)) +"|"+chr(13) + chr(10)
	            FWRITE(nHand, cBuffer,len(cBuffer) )
	            Produto->(DbsKIP())
	         endif
	      END
	      FCLOSE(nHand)
	     Filecopy("PriceTab.TXT", cCaminhoBDServUNI + "PriceTab.TXT")