15 Fev 2018 01:23
15 Fev 2018 08:23
15 Fev 2018 15:16
janio escreveu:Perca de tempo procurar algo para essa plataforma em harbour
Hello, Toledo.
I am busy now with some other work and will return to HDroidGUI as soon as possible.
Regards, Alexander.
15 Fev 2018 17:05
15 Fev 2018 18:46
16 Fev 2018 12:42
16 Fev 2018 13:19
How to create an Android APK from Harbour - Steps, Tips & Tricks
16 Fev 2018 13:37
16 Fev 2018 13:49
16 Fev 2018 14:30
Existe um mundo lindo e maravilhoso logo ali, mas eu não faço a mínima idéia de como chegar la
*****************************************************************************************
Function TopList(cPATH,cPDV,cCodVendedor,cLogin,cSenha,cCargo,cCodCliente,cCliente,cHost)
*****************************************************************************************
*
*
Local cEOL := hb_eol(), cStr, nX
Local cLoginCripto := cLogin //cripto(cLogin,.T.)
Local cSenhaCripto := cSenha //cripto(cSenha,.T.)
IF Empty(cPDV)
return FarolWebErro("Informe o PDV",cPDV,cLogin,cSenha,cCargo)
EndIf
cHtml := ""
cHtml += '<!DOCTYPE html>' + cEOL
cHtml += '<html lang="pt-BR">' + cEOL
cHtml += '<head>' + cEOL
cHtml += '<meta charset="WINDOWS-1252">' + cEOL
cHtml += '<title>FAROL WEB - Top list</title>' + cEOL
cHtml += '<link rel="stylesheet" type="text/css" href="/css/estilo.css"/>' + cEOL
cHtml += '<label style="font-size:40px;">Farol Web - Top List Login: ' + AllTrim(cLogin) + ', PDV: ' + cPDV + '</label>' + cEOL
/*
cHTML += '<script type="text/javascript">' + cEOL
cHTML += 'function envia(pagina){' + cEOL
cHTML += 'document.grupos.action = pagina;' + cEOL
cHTML += 'document.grupos.submit();' + cEOL
cHTML += '}' + cEOL
cHTML += '</script>' + cEOL
*/
//Somar ao clicar botão
cHTML += '<script type="text/javascript">'+ cEOL
cHTML += 'function somaqtd(x){'+ cEOL
cHTML += 'document.getElementsByName("aQtd")[x].value++ ;'+ cEOL
cHTML += '}'+ cEOL
cHTML += '</script>'+ cEOL
cHTML += '<script>'
cHTML += 'function obsCozinha(x) {'
cHTML += ' document.getElementsByName("aObs")[x].value = prompt("Observação para cozinha", "");'
cHTML += ' document.getElementsByName("cObs")[x].value = document.getElementsByName("aObs")[x].value'
cHTML += '}'
cHTML += '</script>'
cHtml += '<STYLE type=text/css>'
cHtml += 'table,th,td{'
cHtml += ' FONT: 14pt "Courier New";'
cHtml += ' border:none ' //1px solid #888;'
cHtml += ' border-collapse:collapse;'
cHtml += ' color:#000000;'
cHtml += '}'
cHtml += '</STYLE>'
cHtml += '</head>' + cEOL
//action="/cgi-bin/comandas.hrb"
cHtml += '<form name=grupos method="post">' + cEOL //comandas
cHtml += '<input type="hidden" name="cCodVendedor" value="'+ cCodVendedor + '">' + cEOL
cHtml += '<input type="hidden" name="cLogin" value="'+ cLoginCripto + '">' + cEOL
cHtml += '<input type="hidden" name="cSenha" value="'+ cSenhaCripto + '">' + cEOL
cHtml += '<input type="hidden" name="cCargo" value="'+ cCargo + '">' + cEOL
cHtml += '<input type="hidden" name="cPDV" value="'+ cPDV + '">' + cEOL
cHtml += '<input type="hidden" name="cCodCliente" value="'+ cCodCliente + '">' + cEOL
cHtml += '<input type="hidden" name="cCliente" value="'+ cCliente + '">' + cEOL
cHtml += '<input type="hidden" name="cHost" value="'+ cHost + '">' + cEOL
nReg := 0
cHtml += '<table border="0" bgcolor=#000000 cellpadding="0" cellspacing="0">' + cEOL
//cHtml += '<tr bgcolor="#FFCC00"><th> Produto </th><th> Qtd </th><th> Obs </th> </tr>' + cEOL
If select('eq') > 0
Else
cIndex := cPATH+"estoque.cdx"
DbUseArea(.t.,'LETO',cPATH+"estoque.dbf","eq",.T.,.F.,'PTISO')
DBSETINDEX( cIndex )
EndIf
eq->(OrdSetFocus(2)) //cod_mercad
tl->(DBGoTop())
nX := 0
Do While tl->(!Eof())
If eq->(DBSeek(tl->cod_mercad))
cHtml += '<tr bgcolor="#FFFFCC">'
cHtml += '<td style="width:930px;height:200px"><button class="bt" style="font-size:50px;width:930px;height:190px;text-align:left" name="cProduto" type="button" value="' + eq->cod_mercad + '" onclick="somaqtd(' + Str(nX) +')">' + ;
'<img src="/imagens/icons/accept.png" alt="" height="20" width="30" /> ' + eq->mercadoria + Transform(eq->avista,'@e 9999,999.99') + '</button></td>' + cEOL
cHtml += '<td> <input type="number" min="0" max="99" value="0" style="font-size:60px;width:80px;height:180px;" name="aQtd" ></td> ' + cEOL
cHtml += '<td> <input type="button" value="" style="font-size:70px;width:150px;height:180px;" onClick="obsCozinha(' + Str(nX) + ')" name="cObs" /> </td></tr>' + cEOL
//cHtml += '<td style="height:150px"><input type="text" style="font-size:60px;width:150px;height:190px;" name="aObs" ></td>' + cEOL
cHtml += '<input type="hidden" name="aObs" value="" />' + cEOL
cHtml += '<input type="hidden" name="aGrupos" value="'+eq->cod_grupo+'">' + cEOL
cHtml += '<input type="hidden" name="aCodProduto" value="'+eq->cod_mercad+'">' + cEOL
nX++
nReg++
Endif
tl->(DBSkip())
EndDo
cHtml += '</table>'
cHtml += '<input type="hidden" name="nReg" value="' + strzero(nReg,3) + '">' + cEOL
cHtml += '<table border="0" cellpadding="0" cellspacing="0">' + cEOL
cHtml += '<tr>'+ cEOL
cHTML += [<td style="width:570px;height:190px"><button style="font-size:60px;width:570px;height:180px" type="submit" class="bt-02" name="cEscolha" value="GRAVAR" formaction="/cgi-bin/comandas.hrb"> <img src="/imagens/icons/database_add.png" height="42" width="42" alt=""/> GRAVAR </button></td>] + cEOL
cHTML += [<td style="width:570px;height:190px"><button style="font-size:60px;width:570px;height:180px" type="submit" class="bt-02" name="cEscolha" value="GRUPOS" formaction="/cgi-bin/grupos.hrb"> <img src="/imagens/icons/pencil_go.png" height="42" width="42" alt=""/> GRUPOS </button></td>] + cEOL
cHtml += '</tr></table>' + cEOL
cHtml += '</form> </html>' + cEOL
//hb_MemoWrit("toplist.html",cHTML)
leto_commit()
DBCloseAll()
RETURN cHtml
SET PROCEDURE TO "farol_lib.prg"
16 Fev 2018 14:52
Itamar M. Lins Jr. escreveu: o problema é que se o pessoal quiser levar esse meu aplicativo para fora do sinal wi-fi como eu faço ? meu aplicativo está circunscrito a área do sinal wi-fi.
16 Fev 2018 14:58
16 Fev 2018 21:02
Qualquer tela que vc desenhar ai no aplicativo de 10mil, eu posso fazer até melhor usando HTML + CSS o problema
É simples de fazer basta estudar HTML e CGI
16 Fev 2018 23:08
Mostro minha aplicação funcionando no celular (como já mostrei aqui) pra quem quiser ver.
a pedi para mostrar uma mísera tela e/ou um pequeno vídeo demonstrando um sistema feito em harbour rodando no celular, mas até agora nada. Apenas muito bla bla bla
Nossa, que código simples esse q vc postou. Foi em japonês?
20 Fev 2018 09:00