marcioe

*---------------------------------------------------- Function WebExe3(cLink) // visualiza e navega na pagina *---------------------------------------------------- default cLink:="http://www.google.com" clink:=GetEnv( "ComSpec" )+" /C START "+STRTRAN(cLink," ","+") WAITRUN(cLink, 0 ) RETURN

Olá amigo,s mas eu não sei exatamente onde a imagem esta, pois é uma pesquisa na net Exemplo ou seja eu não sei qual imagem a pessoa irá escolher *------------------------------------------------------------------------------- * Pesquisa a Foto Pelo Nome do produto * * https://www.google.com/search?q=chave *------------------------------------------------------------------------------- function FOTO_GOOGLE(v_Nome_Produto,v_Codigo_Barras) If !IsInternet() MsgInfo('Problemas Com Acesso a Internet !',SISTEMA) return .f. ENDIF *---------------------------------------------------------------------------- * Se o Código de Barras For em Branco, * Já Corta de Cara, e busca Pelo Nome *---------------------------------------------------------------------------- IF SUBSTR(v_Codigo_Barras,01,3) != '789' v_Codigo_Barras := '' ENDIF *---------------------------------------------------------------------------- IF !EMPTY(alltrim(v_Nome_Produto)+alltrim(v_Codigo_Barras)) IF SUBSTR(v_Codigo_Barras,01,3) = '789' WebEXE3("https://www.google.com/search?q=" + ALLTRIM(v_Codigo_Barras) + ' JPG' ) //Busca Pelo Código de Barras ELSE WebEXE3("https://www.google.com/search?q=" + ALLTRIM(v_Nome_Produto) + ' JPG' ) //Busca Pelo Nome ENDIF ELSE MsgStop('O Campo Nome ou Código de Barras Não Poderá Ser Vazio !',M->SISTEMA) ENDIF return Hoje está assim, dai ele abre o browse e pesquisa.

Precisava de um exemplo (PRG)

Pessoal, bom dia Será que tem como baixar uma imagem da Internet, tipo assim https://www.google.com/search?q=7891114029734+JPG ou Assim https://www.google.com/search?q=CHAVE+PHILLIPS+1/8X5+JPG Dai fazer o Dowload, ou algo do genero Essa não funciona, a grande maioria dos produtos não localiza http://www.eanpictures.com.br:9000/api/gtin/7896806700069 Esse acima não dá certo

Bom dia Joia amigo Macs, Então essa informação é de um banco de dados (Grupos e Produtos) Desculpa, mas teria um exemplo Pois o link por exemplo de PORÇOES, no restaurante 0002 pode ser Cervejas já no 0003 Pode ser Refeiçoes, a depender de cada local

não não eu gero um PDF E coloco ele na hospedagem Dai a pessoa chega no restaurante e acessa pelo QRCODE o cardapio pelo celular veja isso (leia com a camera do Celular ) e abra o link Em tese redireciona para o link do restaurante https://informaisweb.com.br/cardapio/cardapio/Cadapio.pdf Esse cardapio que precisava gerar com menus Essa é a ideia

Temos no nosso sistema de mesas/comandas, a opçao de gerar cardapio, em PDF, ok funciona bem Porem um cliente (porque o cardapio dele é grande) queria que fosse feito tipo acima um menu ( ao clicar no menu abrir a pagina respectiva) Dai pensei se teria com gerar isso no FAST, pois já tenho tudo pronto lá...

Gerar PDF ou html com Menus / Fast Report Tipo isso. Ou seja ao clicar em um link abrir opçoes

Olá amigo, a sua Rotina parece ser muito boa, código curtinho Porem compila, mas ao rodar, dá esse erro Error BASE/1131 Hash key not found and Auto Add turned off Linha de referencia oVar:oFtp := TIpClientFtp():New(oVar:cUSBStick) Confere se passei esse parametro correto Imagina que a minha senha fose maria1234 usuario jose@.informaisweb Seria assim ? cUSBStick INIT "ftp.informaisweb.com.br:maria1234" MEMBER cUSBStick INIT "ftp://nome_do_usuario_ftp:senha@localhost"

Em partes, mas em alguns celulares ele pede para fazer o Dowload. mas já está 98% resolvido

Olá Andei mexendo no Arquivo agora está com um tamanho Razoável

Obrigado amigo, mas no caso, voce faz isso no seu EXE, no meu caso, Como é um BAR/RESTAURANTE, voce chega com seu celular (android, iPhone), não tem Nosso sistema no celular deles Sacou, ele vai ler o QR-code na mesa e acessar o CARDÁPIO, nada mais, Só pra ver os preços e o que a casa oferece, simples Tipo assim amigo (está impresso no porta treco da mesa) por exemplo

ok

o sistema é "local" rede interna. Mas o cardápio o ideal é ON-LINE

Sim o ciclo todo é nosso, o sistema é nosso, a hospedagem tambem, Tudo é nosso, testamos em vários celulares nosos, mesmo assim a depeder do PDF fica Ruim

Eu posso não tem entendido corretamente, mas deixa eu tentar tentar explicar. Nosso sistema de controla as mesas/comandas(bares e Restaurantes) E nas mesas tem um Qr-Code, onde a pessoa(Cliente) scaneia e pega os preços dos produtos(cardápio) no celular. Esse cardápio nada mais é que um "report" um relatório hospedado em algum servidor-on-line. Quando o restaurante / bar mudar os preços ele sobre pelo nosso sistema para a hospedagem. Isso para que nao seja mais impresso "cardápio" Funciona, mas em alguns casos fica lento, então estamos querendo "melhorar" Tenha em mente que sempre será "lido em um Celular"

Vejo o exemplo Que estou falando Se exportar para PDF gera um arquivo que demora demais a carregar no celular dos clientes Se gero HTML fica truncado (formatação fica toda comprometida)

Eu testei sim, em vários. Hostgator, locaweb, hostinger, google Drive, Mga.co e DropBox. O problema é com o arquivo. PDF fica lento, por conta das imagens

Ola, obrigado a todos... Quando a Hospedagem eu já tenho. (no nosso caso iremos hosperdar na nossa) e o cliente quando mudar irar subir o Arquivo O problema está na hora de gerar (exportar) tanto PDF quanto html. Um fica pesado demais (Pdf), e carregar, demora demais.. Já HTML fica "truncando" imagem, texto.

Olá a Todos os Amigos, Temos em nosso sistema de Restaurantes/Bares a Opção de Gerar o Cardápio, Se for impresso (Fisicamente na impressora) fica BLZ Porem o que queremos é hospedar ele no "tipo google drive", ou no disco virtual do cliente e Apontar com um QRCODE, isso blz; Se exportamos em PDF como tem imagens, fica lento para abrir, Dai pensei em HTMl, mas quando exporto fica totalmente diferente do PREVIEW do fast, exemplo fica sem o fundo (um exemplo para entenderem) Queria algo tipo assim

Bom dia a Todos Imagina o cenário (Restaurante) Dai a Empresa Cobre pelo Serviço do Garçom (10%) Ou cobre pelo (COUVERT ARTISTICO) Dai a conta Produtos consumidos deu R$ 8,00, porem com mais a Taxa de Serviço total R$ 5,00 Dai a pessoa passa o cartão, ou seja o cupom tem que ser o total Mas poderia ser a taxa de entrega, ou 10% de garçom Uma ideia seria Sair no cupom e com CFOP 5949 - Outra saída de mercadoria ou prestação de serviço não especificado O problema é que nenhum contador sabe me dizer, já liguei ontem para 4 todos não sabem. Talvez alguem já tenha passado por isso e tenha uma ideia que possa compartilhar obrigado

Olá a todos, a rotina está funcionado muito bem Porem uma pergunta Se tenho uma Footer com total, ao mover não fica na posição correta, Vejam a imagem Normal, o total está na certinho no rodapé Modificada, as posiçoes ficam "Zoneadas" Código abaixo *------------------------------------------------------------------------- oDB_OSERVICO_ITENS := TXBrowse():New( oDlg_DIGITA_OS_VEICULO ) oDB_OSERVICO_ITENS:cAlias := "os_itens" *------------------------------------------------------------------------- oDB_OSERVICO_ITENS:lColDividerComplete := .F. oDB_OSERVICO_ITENS:lFooter := .T. oDB_OSERVICO_ITENS:lRecordSelector := .F. oDB_OSERVICO_ITENS:lHScroll := .T. //-----> Barra Rolagem Horiz. oDB_OSERVICO_ITENS:nHeaderLines := 1.0 oDB_OSERVICO_ITENS:nDataLines := 2.0 oDB_OSERVICO_ITENS:nFooterLines := 1.0 oDB_OSERVICO_ITENS:bClrStd := {|| { M->COR_LETRAS_GRID, IIF(((oDB_OSERVICO_ITENS:cAlias)->(ORDKEYNO()))%2==0, COR_1_bClrStd , COR_2_bClrStd )}} oDB_OSERVICO_ITENS:bClrSelFocus := {|| { M->COR_1_bClrSelFocus, M->COR_2_bClrSelFocus } } oDB_OSERVICO_ITENS:bClrRowFocus := {|| { M->COR_1_bClrRowFocus, M->COR_2_bClrRowFocus } } oDB_OSERVICO_ITENS:nColDividerStyle := 4 oDB_OSERVICO_ITENS:nRowDividerStyle := 4 oDB_OSERVICO_ITENS:nMarqueeStyle := 4 oDB_OSERVICO_ITENS:nFooterLines := 1 oDB_OSERVICO_ITENS:lAllowColSwapping := .T. // Click no header (.f.)Trava oDB_OSERVICO_ITENS:lAllowRowSizing := .T. // Nao move as Linhas (nao sei) oDB_OSERVICO_ITENS:l2007 := M->ESTILO_l2007 oDB_OSERVICO_ITENS:lAllowRowSizing := .T. *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || STRZERO(os_itens->CODIGO_ITEN,06,0) } oCol:cHeader := "Cód" oCol:cFooter := " " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oCol:cToolTip := {"Código do Item","Ajuda","", } oDB_OSERVICO_ITENS :aCols[1]:nWidth := 070 oDB_OSERVICO_ITENS:aCols[01]:nEditType := EDIT_BUTTON oDB_OSERVICO_ITENS:aCols[01]:bEditBlock:= {|nRow, nCol, oCol| DELETA_ITENS_ORDEM_SERVICO_VEICULO(os_itens->ID) } oDB_OSERVICO_ITENS:aCols[01]:addbmpfile( "#8017") oDB_OSERVICO_ITENS:aCols[01]:nBtnBmp := 1 oDB_OSERVICO_ITENS:aCols[01]:AddResource( "#8529" ) oDB_OSERVICO_ITENS:aCols[01]:nFootBmpNo := 2 // Footer BMP oDB_OSERVICO_ITENS:aCols[01]:bLClickFooter := { |r,c,f,o| SALVAR_CAMPOS_EXIBICAO_GRID('Grid_os_Veiculos.grd','Os_Veiculos') } *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || alltrim(os_itens->NOMPRO) +ALLTRIM(os_itens->DESCRICAO_SEM_CADASTRO) + CRLF + substr(LOWER(os_itens->OBS_ITEN),01,LEN(os_itens->NOMPRO)) } oCol:cHeader := "Descrição" +CRLF + '*' oCol:cFooter := " " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oCol:cToolTip := {"Nome do Item","Ajuda","", } oDB_OSERVICO_ITENS :aCols[2]:cFooter := TRANSFORM(G_NUMERO_ITENS,"@E 9999") + ' Itens' oDB_OSERVICO_ITENS :aCols[2]:nFootStrAlign := AL_LEFT oCol:oFooterFont := O_F_BRW oDB_OSERVICO_ITENS :aCols[02]:nWidth := 400 oDB_OSERVICO_ITENS:aCols[02]:nEditType := EDIT_BUTTON oDB_OSERVICO_ITENS:aCols[02]:bEditBlock:= {|nRow, nCol, oCol| iif(os_itens->QTDE_ITEN!=0, DIGITA_OBSERVACAO_ITEM_PEDIDO_OS(os_itens->ID, os_itens->OBS_ITEN,'os_itens') , MsgStop('Escolha Um Item !',SISTEMA) ) } oDB_OSERVICO_ITENS:aCols[02]:addbmpfile( "#8640" ) oDB_OSERVICO_ITENS:aCols[02]:nBtnBmp := 1 oDB_OSERVICO_ITENS:aCols[02]:lBtnTransparent := .T. oDB_OSERVICO_ITENS:aCols[02]:lBmpStretch := .F. *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || os_itens->UNDPRO } oCol:cHeader := "Und " oCol:cFooter := " " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oCol:cToolTip := {"Unidade de Medida do Item","Ajuda","", } oCol:nWidth := 20 oCol:oDataFont := O_F_90_GRAUS oCol:oHeaderFont := O_F_90_GRAUS *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || TRANSFORM(os_itens->QTDE_ITEN,"@ZE 99,999.999") } oCol:cHeader := "Qtde" oCol:cFooter := " " oCol:nDataStrAlign := AL_RIGHT oCol:nHeadStrAlign := AL_LEFT oDB_OSERVICO_ITENS :aCols[4]:cFooter := TRANSFORM(G_QTD_QUANTIDADE,"@ZE 99,999.999") oDB_OSERVICO_ITENS :aCols[4]:nFootStrAlign := AL_RIGHT oCol:oFooterFont := O_F_GET oCol:cToolTip := {"Quantidade do Item","Ajuda","", } *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || TRANSFORM(os_itens->VR_UNITARIO,"@ZE 99,999.999") } oCol:cHeader := "Vr.Unit" oCol:cFooter := " " oCol:nDataStrAlign := AL_RIGHT oCol:nHeadStrAlign := AL_LEFT oCol:cToolTip := {"Valor Unitário do Item","Ajuda","", } *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || TRANSFORM(os_itens->DESCONTO_UNITARIO,"@ZE 9999.99") } oCol:cHeader := "Desc." oCol:cFooter := " " oCol:nDataStrAlign := AL_RIGHT oCol:nHeadStrAlign := AL_LEFT oCol:cToolTip := {"Desconto Unitário","Ajuda","", } *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || TRANSFORM((os_itens->QTDE_ITEN*os_itens->VR_UNITARIO)-os_itens->DESCONTO_UNITARIO ,"@ZE 9999,999.999") } oCol:cHeader := "TOTAL" oCol:cFooter := " " oCol:nDataStrAlign := AL_RIGHT oCol:nHeadStrAlign := AL_LEFT oCol:cToolTip := {"Valor TOTAL do Item","Ajuda","", } oDB_OSERVICO_ITENS :aCols[07]:bClrStd := {|| {CLR_PRETO,CLR_LYELLOW} } oDB_OSERVICO_ITENS :aCols[07]:cFooter := TRANSFORM(G_TOTAL_PEDIDO,"@ZE 9999,999.99") oDB_OSERVICO_ITENS :aCols[07]:nFootStrAlign := AL_RIGHT oCol:oFooterFont := O_F_GET oCol:bClrFooter :={|| {CLR_VERMELHO,CLR_LYELLOW} } oCol:oDataFont := O_F_DLG2 *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || PADR(ALLTRIM(DTOC(os_itens->DATA_LANCAMENTO)),11) +CRTLF+ PADR(ALLTRIM(os_itens->HORA_LANCAMENTO),11) } oCol:cHeader := "Data"+CRTLF+'Hora' oCol:cFooter := " " oCol:nDataStrAlign := AL_RIGHT oCol:nHeadStrAlign := AL_LEFT oCol:oDataFont := O_F_MINI oDB_OSERVICO_ITENS :aCols[08]:cFooter := if(G_SERVICOS!=0,'Serv.','')+CRTLF+alltrim(TRANSFORM(G_SERVICOS,"@ZE 99,999.99")) oDB_OSERVICO_ITENS :aCols[08]:nFootStrAlign := AL_RIGHT oCol:nWidth := 70 *------------------------------------------------------------------------- oCol :=oDB_OSERVICO_ITENS:AddCol() oCol :AddResource("#8381") oCol :AddResource("#8382") oCol:bBmpData := { || IF(os_itens->PRODUTO_EXTERNO_INTERNO='I',1,2) } oCol:cHeader := "Proc" oCol:cFooter := "" oCol:cToolTip := {"Procedência "+CRTLF+"E=Externa I=Interna","Ajuda","", } oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oDB_OSERVICO_ITENS:nWidth := 010 oCol:bLClickHeader := {|r,c,f,o| ( LEGENDA_ORDEM_SERVICO() )} *------------------------------------------------------------------------- oCol :=oDB_OSERVICO_ITENS:AddCol() oCol :AddResource("#8261") &&& Impressora Transparente oCol :AddResource("#8260") &&& Impressora on-Azul oCol :AddResource("#8029") &&& Serviços oCol:bBmpData := { || IIf(os_itens->PRODUTO_MATERIA_PRIMA='09',3, IIf(os_itens->SL2PRO <= os_itens->QTDE_ITEN,1 , 2)) } oCol:cHeader := "SD"+CRLF +'(F)' oCol:cFooter := " " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oCol:bLClickHeader := {|r,c,f,o| ( LEGENDA_ORDEM_SERVICO() )} *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || os_itens->C_BARRAS } oCol:cHeader := "C.Barras" oCol:cFooter := " " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT oCol:cToolTip := {"Código de Barras "+CRTLF+"Codigo de Fabricante","Ajuda","", } *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || alltrim(os_itens->OBS_01) + (os_itens->OBS_02) } oCol:cHeader := "Aplicação" oCol:cFooter := " " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || os_itens->OBS_ITEN } oCol:cHeader := 'Observação/Colocação' oCol:cFooter := " " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || str(os_itens->CODIGO_VENDEDOR,06,0) } oCol:cHeader := 'Mec' oCol:cFooter := " " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || (os_itens->BALNOM) } oCol:cHeader := 'Nome Mecanico' oCol:cFooter := " " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || (os_itens->SERVICO) } oCol:cHeader := 'Servico' oCol:cFooter := " " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT *------------------------------------------------------------------------- oCol := oDB_OSERVICO_ITENS:AddCol() oCol:bStrData := { || STR(os_itens->CODIGO_USUARIO,06,0) } oCol:cHeader := 'Usuario' oCol:cFooter := " " oCol:nDataStrAlign := AL_LEFT oCol:nHeadStrAlign := AL_LEFT *------------------------------------------------------------------------- oDB_OSERVICO_ITENS :CreateFromResource(4046) oDB_OSERVICO_ITENS :aCols[07]:bClrStd := {|| {CLR_PRETO,CLR_LYELLOW} } oDB_OSERVICO_ITENS :aCols[07]:cFooter := TRANSFORM(G_TOTAL_PEDIDO,"@ZE 9999,999.99") oDB_OSERVICO_ITENS :aCols[07]:nFootStrAlign := AL_RIGHT

Sim, mas achei que poderia ter algum ninja achado alguma coisa

Olá a Todos, teria como criar esse tipo de controle no Pelles-c

No meu caso, eu optei em gerar o XML na Unha mesmo. Dai fiquei mais livre, pois se amanhã por exemplo a uninfe der Ruim, eu passo com poucos códigos para uma API, passo para aCBR, passo para outra forma bem mais simples.