VLNUNES

Eu uso C5MENU. Pesquise por C5MENU que tem vários post´s. Vídeo Ex. C5MENU C5MENU

Tente o gerador de app Glide que utiliza a Google Sheets , é de fácil aprendizagem por ser sem código. https://glideapps.com/r/GDQ4wy1mjhEYtrnyr8R0

João obrigado pela pronta resposta. Vander

Alá a todos; Alguém pode dar uma dica de como realizar a comunicação com a balança toledo prix 4 uno wifi para captura de peso ? Obrigado; Vander

Veja se Ajuda; http://www.pctoledo.com.br/forum/filebase.php?d=1&id=19&c_old=0&what=c&page=2 Vander

Testei assim e deu certo: No inicio do PRG principal ... ... IF FindWindow( 0, "...:: Sistema SISCON2 ::...") > 0 RETURN NIL ENDIF ... ... Na chamada da tela inicial ... ... DEFINE WINDOW oWnd TITLE "...:: Sistema SISCON2 ::..." ICON .. No outro sistema trocar o nome em vermelho. Teste de funcionamento. Vander

Olá; Na parte superior "a direita" clique no seu nome de usuário / configurações da conta / endereço de e-mail. Atémais.

Tenho um calendário bem simples, que talvez sirva de base. No PRG principal //---------------- INICIO DO CALENDÁRIO dDia := ctod("01/"+STRZERO(MONTH(date()),2)+"/"+STRZERO(YEAR(date()),4)) MESA :="" DATAEXT(DATE()) DATAATUAL := STRZERO(DAY(DATE()),2)+" de "+mesa+" de "+STRZERO(YEAR(DATE()),4) cDia :="" UltDiaMes(date()) //---------------- FUNDO DOA TELA DEFINE BITMAP oBmp FILE "figuras\backg.bmp" DEFINE DIALOG oWnd1 RESOURCE "CALENDA" of oWnd COLOR RGB (000,000,000) ,RGB (192,192,192) REDEFINE SAY oSAYCAL38 PROMPT DATAATUAL ID 38 FONT oFontCALE2 COLOR RGB (000,000,000) ,RGB (255,255,255) REDEFINE SAY oSAYCAL39 PROMPT "" ID 39 FONT oFontCALE2 COLOR RGB (255,255,255) ,RGB (255,255,255) REDEFINE SAY oSAYCAL40 PROMPT "DOM" ID 40 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255) REDEFINE SAY oSAYCAL41 PROMPT "SEG" ID 41 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255) REDEFINE SAY oSAYCAL42 PROMPT "TER" ID 42 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255) REDEFINE SAY oSAYCAL43 PROMPT "QUA" ID 43 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255) REDEFINE SAY oSAYCAL44 PROMPT "QUI" ID 44 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255) REDEFINE SAY oSAYCAL45 PROMPT "SEX" ID 45 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255) REDEFINE SAY oSAYCAL46 PROMPT "SAB" ID 46 FONT oFontCALE3 COLOR RGB (000,000,000) ,RGB (255,255,255) if Dow(dDia)=1 id1 := 1 elseif Dow(dDia)=2 id1 := 2 elseif Dow(dDia)=3 id1 := 3 elseif Dow(dDia)=4 id1 := 4 elseif Dow(dDia)=5 id1 := 5 elseif Dow(dDia)=6 id1 := 6 elseif Dow(dDia)=7 id1 := 7 endif REDEFINE SAY oSAYCAL01 prompt "01" ID id1+00 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL02 prompt "02" ID id1+01 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL03 prompt "03" ID id1+02 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL04 prompt "04" ID id1+03 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL05 prompt "05" ID id1+04 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL06 prompt "06" ID id1+05 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL07 prompt "07" ID id1+06 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL08 prompt "08" ID id1+07 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL09 prompt "09" ID id1+08 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL10 prompt "10" ID id1+09 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL11 prompt "11" ID id1+10 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL12 prompt "12" ID id1+11 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL13 prompt "13" ID id1+12 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL14 prompt "14" ID id1+13 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL15 prompt "15" ID id1+14 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL16 prompt "16" ID id1+15 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL17 prompt "17" ID id1+16 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL18 prompt "18" ID id1+17 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL19 prompt "19" ID id1+18 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL20 prompt "20" ID id1+19 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL21 prompt "21" ID id1+20 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL22 prompt "22" ID id1+21 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL23 prompt "23" ID id1+22 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL24 prompt "24" ID id1+23 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL25 prompt "25" ID id1+24 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL26 prompt "26" ID id1+25 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL27 prompt "27" ID id1+26 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) REDEFINE SAY oSAYCAL28 prompt "28" ID id1+27 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) if cDia > 28 REDEFINE SAY oSAYCAL29 prompt "29" ID id1+28 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) endif if cDia > 29 REDEFINE SAY oSAYCAL30 prompt "30" ID id1+29 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) endif if cDia > 30 REDEFINE SAY oSAYCAL31 prompt "31" ID id1+30 of oWnd1 FONT oFontCALE1 COLOR RGB (0,0,0),RGB (255,255,255) endif ACTIVATE DIALOG oWnd1 nowait ON PAINT (DrawBitmap(oWnd1:hDC,oBmp:hBitmap,0,0,oWnd1:nWidth,oWnd1:nHeight),; oWnd1:Move( nResVert-(nResVert-208),nResHoriz-372 ) ) oFontCALE1:END() oFontCALE2:END() oFontCALE3:END() //---------------- FIM DO CALENDÁRIO //-------------- PEGAR MES POR EXTENSSO FUNCTION DATAEXT(DIIA) if Month(DIIA)=1 mesa:="janeiro" elseif Month(Date())=2 mesa:="fevereiro" elseif Month(Date())=3 mesa:="março" elseif Month(Date())=4 mesa:="abril" elseif Month(Date())=5 mesa:="maio" elseif Month(Date())=6 mesa:="junho" elseif Month(Date())=7 mesa:="julho" elseif Month(Date())=8 mesa:="agosto" elseif Month(Date())=9 mesa:="setembro" elseif Month(Date())=10 mesa:="outubro" elseif Month(Date())=11 mesa:="novembro" elseif Month(Date())=12 mesa:="dezembro" endif RETURN ( MESA ) //------------------- VERIFICA O ULTIMO DIA DO MES FUNCTION UltDiaMes(dData1) LOCAL nAno:=0, nMes:=0, dData2:=CTOD("") dData1:=CTOD("01"+SUBSTR(DTOC(dData1),3)) nAno := YEAR(dData1) nMes := MONTH(dData1) IF MONTH(dData1)==12 dData2:= CTOD( "01/01/"+STRZERO(nAno+1,4) ) ELSE dData2:= CTOD( "01/"+STRZERO(nMes+1,2)+"/"+STRZERO(nAno,4) ) ENDIF cDia :=dData2-dData1 RETURN( CTOD(StrZero(cDia,2)+SUBSTR(DTOC(dData1),3)) ) // Eroni RC do calendário CALENDA DIALOG 382, 15, 200, 193 STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE FONT 8, "MS Sans Serif" { LTEXT "39", 39, 5, 21, 190, 168, WS_BORDER | WS_GROUP CTEXT "DOM", 40, 8, 23, 22, 8 CTEXT "SEG", 41, 35, 23, 22, 8 CTEXT "TER", 42, 62, 23, 22, 8 CTEXT "QUA", 43, 89, 23, 22, 8 CTEXT "QUI", 44, 116, 23, 22, 8 CTEXT "SEX", 45, 143, 23, 22, 8 CTEXT "SAB", 46, 170, 23, 22, 8 CTEXT "38", 38, 5, 3, 190, 17 CTEXT "", 1, 8, 34, 22, 22 CTEXT "", 2, 35, 34, 22, 22 CTEXT "", 3, 62, 34, 22, 22 CTEXT "", 4, 89, 34, 22, 22 CTEXT "", 5, 116, 34, 22, 22 CTEXT "", 6, 143, 34, 22, 22 CTEXT "", 7, 170, 34, 22, 22 CTEXT "", 8, 8, 60, 22, 22 CTEXT "", 9, 35, 60, 22, 22 CTEXT "", 10, 62, 60, 22, 22 CTEXT "", 11, 89, 60, 22, 22 CTEXT "", 12, 116, 60, 22, 22 CTEXT "", 13, 143, 60, 22, 22 CTEXT "", 14, 170, 60, 22, 22 CTEXT "", 15, 8, 86, 22, 22 CTEXT "", 16, 35, 86, 22, 22 CTEXT "", 17, 62, 86, 22, 22 CTEXT "", 18, 89, 86, 22, 22 CTEXT "", 19, 116, 86, 22, 22 CTEXT "", 20, 143, 86, 22, 22 CTEXT "", 21, 170, 86, 22, 22 CTEXT "", 22, 8, 112, 22, 22 CTEXT "", 23, 35, 112, 22, 22 CTEXT "", 24, 62, 112, 22, 22 CTEXT "", 25, 89, 112, 22, 22 CTEXT "", 26, 116, 112, 22, 22 CTEXT "", 27, 143, 112, 22, 22 CTEXT "", 28, 170, 112, 22, 22 CTEXT "", 29, 8, 138, 22, 22 CTEXT "", 30, 35, 138, 22, 22 CTEXT "", 31, 62, 138, 22, 22 CTEXT "", 32, 89, 138, 22, 22 CTEXT "", 33, 116, 138, 22, 22 CTEXT "", 34, 143, 138, 22, 22 CTEXT "", 35, 170, 138, 22, 22 CTEXT "", 36, 8, 164, 22, 22 CTEXT "", 37, 35, 164, 22, 22 }

Obrigado Theotokos, ficou ótimo. Vander

Olá a todos; Tenho que posicionar o cursor sempre na 1ª linha da listbox após um filtro, tem como ? Após selecionar este filtro, posicionar na 1ª linha //----------------------------------------- REDEFINE COMBOBOX oCATEGO VAR mgenerF ITEMS geneF ID 112 OF TELAVEND1 VALID FILTRTP(mgenerF) WHEN TEMCLI //----------------------------------------- Listbox em questão //----------------------------------------- REDEFINE LISTBOX LIACER224 FIELDS ESTOQU->(STRZERO(CODLOJA,5)) +" |"+ ; ESTOQU->(SUBSTR(DESCRIC,1,42)) +"|"+ ; ESTOQU->(STRZERO(QUANTES,4)) +"|"+ ; ESTOQU->(TRANSFORM(VEVISTA,"@E 99999.99"))+"|"+ ; ESTOQU->(TRANSFORM(VEPRAZO,"@E 99999.99"))+"|"+ ; ESTOQU->(TRANSFORM(VEPLAAV,"@E 99999.99"))+"|"+ ; ESTOQU->(TRANSFORM(VEPLAPR,"@E 99999.99")) ID 110 ; HEADERS "CÓDIGO|DESCRIÇÃO |QDE.|À VISTA|À PRAZO|PLANO AV|PLANO PR" ; FONT FONTVEND12 COLOR RGB (000,000,000),RGB (255,255,192) ; ON LEFT DBLCLICK(ENVIALISTA1(xTEMPLA)) WHEN TEMCLI //----------------------------------------- Filtro esta funcionando, mas o quando volta para a listbox fica todo bagunçado //----------------------------------------- FUNCTION FILTRTP(mgenerF) SELECT ESTOQU IF mgenerF = "* TODOS *" SET FILTER TO ELSE SET FILTER TO TPMERCA = mgenerF ENDIF DBGOTOP() LIACER224 :Refresh() // Estabiliza o Browse/Listbox xSetFocus( LIACER224 ) RETURN .T. //----------------------------------------- Obrigado; Vander

Uso esta rotina, e envia normalmente, mas só por rede cabeada, em wifi não envia e dá o aviso de mensagem não enviada. Testei em vários computadores em redes diferentes, só envia através de rede cabeada.

Help completo do WGET GNU Wget 1.11.4, a non-interactive network retriever. Usage: wget [OPTION]... [url]... Mandatory arguments to long options are mandatory for short options too. Startup: -V, --version display the version of Wget and exit. -h, --help print this help. -b, --background go to background after startup. -e, --execute=COMMAND execute a `.wgetrc'-style command. Logging and input file: -o, --output-file=FILE log messages to FILE. -a, --append-output=FILE append messages to FILE. -d, --debug print lots of debugging information. -q, --quiet quiet (no output). -v, --verbose be verbose (this is the default). -nv, --no-verbose turn off verboseness, without being quiet. -i, --input-file=FILE download URLs found in FILE. -F, --force-html treat input file as HTML. -B, --base=URL prepends URL to relative links in -F -i file. Download: -t, --tries=NUMBER set number of retries to NUMBER (0 unlimits). --retry-connrefused retry even if connection is refused. -O, --output-document=FILE write documents to FILE. -nc, --no-clobber skip downloads that would download to existing files. -c, --continue resume getting a partially-downloaded file. --progress=TYPE select progress gauge type. -N, --timestamping don't re-retrieve files unless newer than local. -S, --server-response print server response. --spider don't download anything. -T, --timeout=SECONDS set all timeout values to SECONDS. --dns-timeout=SECS set the DNS lookup timeout to SECS. --connect-timeout=SECS set the connect timeout to SECS. --read-timeout=SECS set the read timeout to SECS. -w, --wait=SECONDS wait SECONDS between retrievals. --waitretry=SECONDS wait 1..SECONDS between retries of a retrieval. --random-wait wait from 0...2*WAIT secs between retrievals. --no-proxy explicitly turn off proxy. -Q, --quota=NUMBER set retrieval quota to NUMBER. --bind-address=ADDRESS bind to ADDRESS (hostname or IP) on local host. --limit-rate=RATE limit download rate to RATE. --no-dns-cache disable caching DNS lookups. --restrict-file-names=OS restrict chars in file names to ones OS allows. --ignore-case ignore case when matching files/directories. --user=USER set both ftp and http user to USER. --password=PASS set both ftp and http password to PASS. Directories: -nd, --no-directories don't create directories. -x, --force-directories force creation of directories. -nH, --no-host-directories don't create host directories. --protocol-directories use protocol name in directories. -P, --directory-prefix=PREFIX save files to PREFIX/... --cut-dirs=NUMBER ignore NUMBER remote directory components. HTTP options: --http-user=USER set http user to USER. --http-password=PASS set http password to PASS. --no-cache disallow server-cached data. -E, --html-extension save HTML documents with `.html' extension. --ignore-length ignore `Content-Length' header field. --header=STRING insert STRING among the headers. --max-redirect maximum redirections allowed per page. --proxy-user=USER set USER as proxy username. --proxy-password=PASS set PASS as proxy password. --referer=URL include `Referer: URL' header in HTTP request. --save-headers save the HTTP headers to file. -U, --user-agent=AGENT identify as AGENT instead of Wget/VERSION. --no-http-keep-alive disable HTTP keep-alive (persistent connections). --no-cookies don't use cookies. --load-cookies=FILE load cookies from FILE before session. --save-cookies=FILE save cookies to FILE after session. --keep-session-cookies load and save session (non-permanent) cookies. --post-data=STRING use the POST method; send STRING as the data. --post-file=FILE use the POST method; send contents of FILE. --content-disposition honor the Content-Disposition header when choosing local file names (EXPERIMENTAL). --auth-no-challenge Send Basic HTTP authentication information without first waiting for the server's challenge. HTTPS (SSL/TLS) options: --secure-protocol=PR choose secure protocol, one of auto, SSLv2, SSLv3, and TLSv1. --no-check-certificate don't validate the server's certificate. --certificate=FILE client certificate file. --certificate-type=TYPE client certificate type, PEM or DER. --private-key=FILE private key file. --private-key-type=TYPE private key type, PEM or DER. --ca-certificate=FILE file with the bundle of CA's. --ca-directory=DIR directory where hash list of CA's is stored. --random-file=FILE file with random data for seeding the SSL PRNG. --egd-file=FILE file naming the EGD socket with random data. FTP options: --ftp-user=USER set ftp user to USER. --ftp-password=PASS set ftp password to PASS. --no-remove-listing don't remove `.listing' files. --no-glob turn off FTP file name globbing. --no-passive-ftp disable the "passive" transfer mode. --retr-symlinks when recursing, get linked-to files (not dir). --preserve-permissions preserve remote file permissions. Recursive download: -r, --recursive specify recursive download. -l, --level=NUMBER maximum recursion depth (inf or 0 for infinite). --delete-after delete files locally after downloading them. -k, --convert-links make links in downloaded HTML point to local files. -K, --backup-converted before converting file X, back up as X.orig. -m, --mirror shortcut for -N -r -l inf --no-remove-listing. -p, --page-requisites get all images, etc. needed to display HTML page. --strict-comments turn on strict (SGML) handling of HTML comments. Recursive accept/reject: -A, --accept=LIST comma-separated list of accepted extensions. -R, --reject=LIST comma-separated list of rejected extensions. -D, --domains=LIST comma-separated list of accepted domains. --exclude-domains=LIST comma-separated list of rejected domains. --follow-ftp follow FTP links from HTML documents. --follow-tags=LIST comma-separated list of followed HTML tags. --ignore-tags=LIST comma-separated list of ignored HTML tags. -H, --span-hosts go to foreign hosts when recursive. -L, --relative follow relative links only. -I, --include-directories=LIST list of allowed directories. -X, --exclude-directories=LIST list of excluded directories. -np, --no-parent don't ascend to the parent directory. Mail bug reports and suggestions to <bug-wget@gnu.org>.

O "WGET" que eu uso, é um aplicativo de linha de comando que baixa um arquivo ou todo o site. Linha de comando: LOCAL cCommand1 := 'wget -c http://wwwseusite.com.br/pastado site/arquivo a baixar.com extenção -P "pasta onde vai salvar o arquivo"' RUN (cCommand1) Existem outros comandos que eu não utilizo http://elias.praciano.com/2013/12/o-comando-wget-em-10-exemplos/

Obrigado Theotokos, Resolvido com a função do Euclides ( Forum PCTOLEDO) use arquivo nMin := nMax := valor dbeval( {|| iif(nMin > valor, nMIn := valor,), iif(nMax < valor, nMax := valor,) } ) ? str(nMin)+str(nMax,15) Vander

Ola; Em uma série de números com no mínimo 2 e no máximo 10 números como pegar o menor e o maior valor ? EX: 21.00 – 21.10 – 25.13 -23.32 – 20.01 Neste caso pegar o 21.00 e 25.13 De uma forma mais trabalhosa (são 10 séries de números), eu posso jogar os números em um DBF temporário indexar e pegar os valores corretos, mas como pegar estes valores de outra forma ? Obrigado; Vander