Clipper On Line • Ver Tópico - Leitor Busca Preco da GERTEC

Leitor Busca Preco da GERTEC

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Leitor Busca Preco da GERTEC

Mensagempor alberto_dias » 11 Jul 2017 22:03

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á,
Alberto Dias
Atual.: Harbour 3.2.0 dev (r1703241902) + Gtwvg E Hmg IDE 3.5
Máquina Notebook - DELL ( INTEL CORE i5 ) 8 GB
Sistema - Windows 10 64 Bits
Avatar de usuário

alberto_dias
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 64
Data de registro: 10 Abr 2005 09:46
Cidade/Estado: Taboão da Serra - SP
Curtiu: 0 vez
Mens.Curtidas: 5 vezes

LEITOR BUSCA PRECO DA GERTEC

Mensagempor fladimir » 11 Jul 2017 23:27

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?
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

LEITOR BUSCA PRECO DA GERTEC

Mensagempor alberto_dias » 12 Jul 2017 15:43

Fladimir,
obrigado por responder,
Liguei para o suporte da Gertec
e eles estão enviando o material do Servuni,
Vou fazer os testes,
Alberto Dias
Atual.: Harbour 3.2.0 dev (r1703241902) + Gtwvg E Hmg IDE 3.5
Máquina Notebook - DELL ( INTEL CORE i5 ) 8 GB
Sistema - Windows 10 64 Bits
Avatar de usuário

alberto_dias
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 64
Data de registro: 10 Abr 2005 09:46
Cidade/Estado: Taboão da Serra - SP
Curtiu: 0 vez
Mens.Curtidas: 5 vezes

LEITOR BUSCA PRECO DA GERTEC

Mensagempor fladimir » 12 Jul 2017 23:11

         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")
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro