Harbour nas nuvens.

[Itamar M. Lins Jr.]

Ola!
Tá rolando:
https://groups.google.com/forum/#!topic ... QZNx2X8SCs

This library consists of following parts ( as of now )

awsservices.prg - SDK to consume AWS Web Services - hbtip
httpclient.prg - Class which simplifies REST API consumption - hbtip
netioclient.prg - Class which simplifies to connect to multiple hbnetio servers - hbnetio
utilities.prg - Functions to support all above plus pulling infos about linux instances

Quem viver verá!
A discussão é onde hospedar os fontes.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Ola!
Lembrando que já uso uhttpd do Mindaugas, com sucesso, comandas de restaurantes.
Vou fazer agora uma entrada de dados via smartphone, contagem de estoques(conferência) LetoDbf+uHttpd+ Harbour+Html. Fica Show!
A pessoa vai no deposito conferindo as mercadorias, peças automotivas com o celular 100% online. Conferiu, ajustou, gerando um relatório de contagens.

Saudações,
Itamar M. Lins Jr.

[fladimir]

Tem como postar um vídeo do funcionamento pra termos ideia na pratica como fica?
Ou prints

[Itamar M. Lins Jr.]

Olá!

Lembrando que isso é HTML + CSS + Javascript + Harbour.

Saudações,
Itamar M. Lins Jr.

[fladimir]

Agradeço o envio das imagens, consegui ter uma ideia de como funciona.
Pelo q percebi ficou Web ajustado pra Mobile correto.

Eu migrei de linguagem para contemplar digamos assim, Web e Mobile, mais Mobile precisamente falando, algo é fato, quem quiser continuar terá q evoluir, não tem como escapar do futuro q cada dia nos aperta, digamos assim, eu sinceramente não imagino como faria isso q vc fez no Harbour, não sei se é complexo ou não ou tudo q teria q instalar/ter pra funcionar.

Q bom q conseguiu, e torço para q colegas aki do fórum q fazem parte de nossas histórias, q ainda não tem nada nessa área, possam ver o qto antes (dependendo o segmento) seja em Harbour ou Outro.
Como disse mudei de linguagem por achar mais fácil, mas se em harbour conseguem resultados satisfatórios q seja em harbour, mas volto a falar, meu amigos e colegas, esse futuro esta cada vez mais presente.

Grande abraço a todos.

[Itamar M. Lins Jr.]

Ola!

digamos assim, eu sinceramente não imagino como faria isso q vc fez no Harbour, não sei se é complexo ou não ou tudo q teria q instalar/ter pra funcionar.

Acredite, não tem nada de mais.
É só HTML, as frescuras dos botões etc, vc vê na web vc mesmo copia e cola o código que vc gostar.
O código do Harbour é esse mesmo que todos usamos.
É a mesma coisa que vcs fazem ai no programa de vcs porque ele converte para HTML e CSS.
Quem sabe HTML faz tela para qualquer tamanho. Quem tem uma simples noção de CGI faz até sem usar Harbour.

Já escrevi aqui outras vezes. Vc acessa sites da WEB com seu celular correto ? Tem alguma coisa instalada no seu celular ?
VC acessa o pctoledo com a opção MOBILE, tem alguma coisa instalada no seu celular ?
É simples de mais. O problema é que poucos querem estudar. O Antonio Linares esta fazendo muita, mas muita coisa para celulares etc... com Harbour. Mas cadê os Brasileiros lá interagindo ?

Tem infinitas formas de fazer. Inclusive com as novas IDE´s que vc só cola! Nem código tem, para no caso de força de vendas, já olhei o de entrega de gás, o rapaz dá de graça os fontes, fácil de entender grava tudo lá nas nuvens via FIREBASE. https://www.kodular.io/ Enfim tem miríades de opções inclusive com Harbour.
Eu fiz com harbour pq, ficou mais rápido a parte de "back end"

Código: Selecionar todos

FUNCTION HRBMAIN(...)

Local n, cArq, aImpressoras := {}
LOCAL cHtml := "", cRDD := "DBFCDX", nRec := 0
LOCAL nConnect, cPATH := "//localhost:2812/"
Local cPDV   := uhttpd_GetField( "cPDV"  )
Local cLogin := uhttpd_GetField( "cLogin" )
Local cAbrir := uhttpd_GetField( "abrir" )

If ValType(cLogin) == "U"
   cLogin := "U"
EndIf

RDDSetDefault("LETO")

leto_commit()
DBCloseAll()

If select('im') > 0
  im->(DBCloseArea())
EndIf

cIndex := cPATH+"impressoras.cdx"
cDBF   := cPATH+"impressoras.dbf"
DbUseArea(.t.,'LETO',cDbf,"im",.T.,.F.,'PTISO')
If leto_file(cIndex) //não precisa leto_file!
   DBSETINDEX( cIndex )
Else
   index on area  tag im01
EndIf

im->(dbGoTop())
Do While im->(!eof())
   AAdd(aImpressoras,{im->area,im->impressora,im->pularlinha,im->copia,im->guilhotina,im->corte})
   im->(DbSkip())
EndDo
im->(DbCloseArea())

If select('pdv') > 0
  pdv->(DBCloseArea())
EndIf

cIndex := cPATH+"pdv"+cPDV+".cdx"
cDbPDV := cPATH+"pdv"+cPDV+".dbf"
DbUseArea(.t.,'LETO',cDbPDV,"pdv",.T.,.F.,'PTISO')
If leto_file(cIndex) //não precisa leto_file!
   DBSETINDEX( cIndex )
Else
   index on Cod_Mercad tag tag01
   index on AreaPrint  tag tag02
EndIf
nRec := pdv->(LastRec())

Arquivo farolweb.hbp

Código: Selecionar todos

#
# $Id$
#

-3rd=hbide_version=1.0
-3rd=hbide_type=Lib
-3rd=hbide_title=farolweb
-3rd=hbide_output=farolweb

-gh
farolweb.hbc 
-o../home/cgi-bin/
index.prg
grupos.prg
login.prg
logout.prg
produtos.prg
info.prg
comandas.prg
fechar.prg
cozinha.prg
portaria.prg
destravar.prg
farol_lib.prg
toplist.prg
imprime.prg
hbwin.hbc

Vai gerar arquivos com o mesmo nome só que com HRB na pasta CGI, compilado ninguém mexe nos fontes. Isso é beeeemmm velho no harbour, mas o povo não acompanha e tem que pagar(ás vezes) para algum intermediário explicar.

Com algumas horas de estudo a pessoa aprende a lógica, não pode é achar que é coisa do outro mundo.

Saudações,
Itamar M. Lins Jr.

[bencz]

Muito interessante!!
Vale também ressaltar este projeto: viewtopic.php?f=4&t=23055&p=134471&hilit=harbour_mod#p134471