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

Linha de comando : WinExec("C:\IrfanView\i_view32.exe "+FOTO+" /resize=(600,800) /aspectratio /bpp=8",3) Arquivo de opções do irfanview (C:\IrfanView\i_options.txt) ------------------------------------------------------------------------------- File : 'options.txt' - Command line options for IrfanView Author: Irfan Skiljan E-Mail: irfanview@gmx.net WWW : http://www.irfanview.com ------------------------------------------------------------------------------- List of all command line options supported in IrfanView: -------------------------------------------------------- /one - force "only one instance" /fs - force Full Screen display /bf - force "Fit images to desktop" display option /title=text - set window title to "text" /pos=(x,y) - move IrfanView window to x,y /convert=filename - convert input file to "filename" and CLOSE IrfanView (Note: See pattern help file page for more options) /slideshow=txtfile - play slideshow with the files from "txtfile" /slideshow=folder - play slideshow with the files from "folder" /thumbs - force thumbnails /killmesoftly - close all IrfanView instances /closeslideshow - close slideshow and IrfanView after the last image /page=X - open page number X from a multipage input image /crop=(x,y,w,h) - crop input image: x-start, y-start, width, height /print - print to default printer and CLOSE IrfanView /print="Name" - print to specific printer and CLOSE IrfanView /resize=(w,h) - resize input image to w (width) and h (height) /resample=(w,h) - resample input image to w (width) and h (height) /capture=X - capture the screen or window /ini - use the Windows folder for INI/LST files (read/save) /ini="Folder" - use the folder "Folder" for INI/LST files (read/save) /clippaste - paste image from the clipboard /clipcopy - copy image to the clipboard /silent - don't show messages for command line read/save errors /invert - invert the input image /dpi=(x,y) - change image DPI values, set DPIs for scanning /scan - acquire the image from the TWAIN device (show TWAIN dialog) /scanhidden - acquire the image from the TWAIN device (hide TWAIN dialog) /batchscan=(options) - simulate menu: File->Batch Scan, see below for example /bpp=BitsPerPixel - change color depth of the input image to BitsPerPixel /swap_bw - swap black and white color /gray - convert input image to grayscale /rotate_r - rotate input image to right /rotate_l - rotate input image to left /filepattern="x" - browse only specific files /sharpen=X - open image and apply the sharpen filter value X /contrast=X - open image and apply the contrast value X /hide=X - hide toolbar, status bar, menu and/or caption of the main window /aspectratio - used for /resize and /resample, keep image proportions /info=txtfile - write image infos to "txtfile" /append=tiffile - append image as (TIF) page to "tiffile" /multitif=(tif,files) - create multipage TIF from input files /jpgq=X - set JPG save quality /tifc=X - set TIF save compression /wall=X - set image as wallpaper /extract=(file,ext) - extract all pages from a multipage file /import_pal=palfile - import and apply a special palette to the image (PAL format) /monitor=X - start EXE-Slideshow on monitor X Important notes: - Only lower case options are supported (don't type any UPPERCASE letters) ! - Input file name (if required) is always the first parameter! - Use "" for file names with spaces, example: "dummy test file.jpg" - Write always the FULL paths for file names - You can combine several options in one command - Wildcards supported only for /convert, /print and /info - Maximal command line length is limited by Windows Example for conversion: i_view32.exe c:\test.bmp /convert=c:\giftest.gif => Convert file: 'c:\test.bmp' to 'c:\giftest.gif' without GUI ;-) i_view32.exe c:\*.jpg /convert=d:\temp\*.gif i_view32.exe c:\*.jpg /resample=(500,300) /aspectratio /convert=d:\temp\*.png i_view32.exe c:\test.bmp /convert=c:\test_$Wx$H.jpg (Note: supported are all IrfanView read/save formats except audio/video) Example for slideshow: i_view32.exe /slideshow=c:\mypics.txt (Note: The file 'c:\mypics.txt' contains, in each line, a name of an image file, including the full path OR path relative to "i_view32.exe") i_view32.exe /slideshow=c:\images\ i_view32.exe /slideshow=c:\images\*.jpg i_view32.exe /slideshow=c:\images\test*.jpg Example for closeslideshow: i_view32.exe /slideshow=c:\mypics.txt /closeslideshow => IrfanView will be closed after the last image from 'c:\mypics.txt' Example for thumbnails: i_view32.exe c:\test\image1.jpg /thumbs => open 'image1.jpg' and display thumbnails from directory 'c:\test' or i_view32.exe c:\test /thumbs => display thumbnails from directory 'c:\test' Example for close: i_view32.exe /killmesoftly => close IrfanView and terminate all instances Example for page: i_view32.exe c:\test.tif /page=3 => Open page number 3 from the multipage image 'c:\test.tif' Example for crop: i_view32.exe c:\test.jpg /crop=(10,10,300,300) => Open 'c:\test.jpg' and crop: x-start=10, y-start=10, width=300, height=300 Example for print: i_view32.exe c:\test.jpg /print => Open 'c:\test.jpg', print the image to default printer and close IrfanView i_view32.exe c:\test.jpg /print="Printer Name" => Open 'c:\test.jpg', print the image to specific printer and close IrfanView i_view32.exe c:\*.jpg /print => Print all JPGs from "C:\" and close IrfanView Example for resize OR resample: i_view32.exe c:\test.jpg /resize=(300,300) => Open 'c:\test.jpg' and resize: width=300, height=300 (Note: Resample uses the the active resample filter from the INI file) i_view32.exe c:\test.jpg /resize=(300,300) /aspectratio => Open 'c:\test.jpg' and resize: width = max. 300, height = max. 300, proportional i_view32.exe c:\test.jpg /resize=(300,0) /aspectratio => Open 'c:\test.jpg' and resize: width=300, height=proportinal i_view32.exe c:\test.jpg /resize=(300,0) => Open 'c:\test.jpg' and resize: width=300, height=original i_view32 c:\test.jpg /resize=(150p,150p) => Open 'c:\test.jpg' and resize: width=150%, height=150% Example for capture: i_view32.exe /capture=0 => Capture the whole screen i_view32.exe /capture=1 => Capture the foreground window i_view32.exe /capture=2 => Capture the client area of the foreground window Advanced examples: i_view32.exe /capture=1 /convert=c:\test.jpg Capture foreground window and save result as file. i_view32.exe /capture=1 /convert=c:\capture_$U(%d%m%Y_%H%M%S).jpg Capture foreground window and save result as file; the file name contains time stamp. Example for ini: i_view32.exe /ini i_view32.exe c:\test.jpg /ini i_view32.exe c:\test.jpg /ini="c:\temp\" Example for clipboard paste: i_view32.exe /clippaste i_view32.exe /clippaste /convert=c:\test.gif Example for clipboard copy: i_view32.exe c:\test.jpg /clipcopy i_view32.exe c:\test.jpg /clipcopy /killmesoftly Example for /invert: i_view32.exe c:\test.jpg /invert Example for /dpi: i_view32.exe c:\test.jpg /dpi=(72,72) Example for /scan: i_view32.exe /scan i_view32.exe /scanhidden i_view32.exe /scanhidden /dpi=(150,150) i_view32.exe /scan /convert=c:\test.gif i_view32.exe /scanhidden /convert=c:\test.gif i_view32.exe /print /scan Example for /batchscan=(options): options = all 8 options from the batch scan dialog: filename, index, increment, digits, skip, dest-folder, save-extension, multi-tif i_view32.exe /batchscan=(scanfile,1,1,2,1,c:\temp,bmp,0) i_view32.exe /batchscan=(scanfile,1,1,2,1,c:\temp,bmp,0) /dpi=(150,150) i_view32.exe /batchscan=(scanfile,1,1,2,0,c:\temp,tif,1) i_view32.exe /batchscan=(scanfile,1,1,2,1,c:\temp,bmp,0) /scanhidden Example for /bpp: Example: i_view32.exe c:\test.jpg /bpp=8 Supported BPP-values: 1, 4, 8 and 24 (decrease/increase color depth) => Open 'c:\test.jpg' and reduce to 256 colors Example for /filepattern: i_view32.exe c:\images\ /thumbs /filepattern="*.jpg" => Go to folder "c:\images\" and show JPG thumbnails only i_view32.exe c:\images\ /thumbs /filepattern="123*.jpg" => Go to folder "c:\images\" and show JPG with names "123*" as thumbnails Example for /sharpen: i_view32.exe c:\test.jpg /sharpen=33 Examples for /hide: Values (can be combined (add values)): Toolbar 1 Status bar 2 Menu bar 4 Caption 8 i_view32.exe c:\test.jpg /hide=1 => Open 'c:\test.jpg', hide toolbar only i_view32.exe c:\test.jpg /hide=3 => Open 'c:\test.jpg', hide toolbar and status bar i_view32.exe c:\test.jpg /hide=12 => Open 'c:\test.jpg', hide caption and menu bar i_view32.exe c:\test.jpg /hide=15 => Open 'c:\test.jpg', hide all Examples for /info: i_view32.exe c:\test.jpg /info=c:\test.txt i_view32.exe c:\*.jpg /info=c:\jpgs.txt Example for /append: i_view32.exe c:\test.jpg /append=c:\test.tif => Open 'c:\test.jpg' and append it as page to 'c:\test.tif' Example for /multitif: Syntax: /multitif=(tifname,file1,...,fileN) First file is the name of the result TIF file. i_view32.exe /multitif=(c:\test.tif,c:\test1.bmp,c:\dummy.jpg) => Create multipage TIF (c:\test.tif) from 2 other files Example for /jpgq: i_view32.exe c:\test.jpg /jpgq=75 /convert=c:\new.jpg => Open 'c:\test.jpg' and save it as c:\new.jpg, quality = 75 Quality range: 1 - 100. Example for /tifc: i_view32.exe c:\test.jpg /tifc=4 /convert=c:\new.tif => Open 'c:\test.jpg' and save it as c:\new.tif, compression = Fax4 Compressions: 0 = None, 1 = LZW, 2 = Packbits, 3 = Fax3, 4 = Fax4, 5 = Huffman, 6 = JPG, 7 = ZIP Example for wallpaper: i_view32.exe c:\test.jpg /wall=0 => Open 'c:\test.jpg' and set is as wallpaper (centered) i_view32.exe c:\test.jpg /wall=1 => Open 'c:\test.jpg' and set is as wallpaper (tiled) i_view32.exe c:\test.jpg /wall=2 => Open 'c:\test.jpg' and set is as wallpaper (stretched) Example for /extract: i_view32.exe c:\multipage.tif /extract=(c:\temp,jpg) => Open 'c:\multipage.tif' and save all pages to folder 'c:\temp' as JPGs Example for /monitor: MySlideshow.exe /monitor=2 => Start standalone slideshow on monitor 2

Eu uso em meus sistemas para editar fotos (dá pra usar linha de comando). Instalei no meu PC e depois copio a pasta "IrfanView" completa e incluo na instalação do meu sistema e funciona sem ter de instalar, bastando copiar a pasta de um PC que já tenha a instalação e pronto.

Nova resposta http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=15975&p=95358#p95358

Olá Kapiaba; http://www.pctoledo.com.br/forum/viewtopic.php?f=2&t=15975 Vander

Só completando 01 - Herberson Carlos Gontijo (Hergon) - Belo Horizonte / MG 02 - Claudia M. R. Glória Gontijo (Cacau7) - Belo Horizonte / MG 03 - AnaCatacombs - Cianorte / PR 04 - Joaosolution - Contagem / MG 05 - Nárlem - Belo Horizonte / MG 06 - Vander Lúcio Nunes (VLNunes) - João Monlevade / MG 07 - Gilmer - Sorocaba / SP 08 - Evandro G. de Paula - Curvelo / MG

Ótimo Herberson, Vou patricipar, assim que possível, libera as inscrições e os boletos. Vander

Herberson; Concordo com você, se ficar decidido o local e a data com antecedência como foi no encontro em BH, poderemos programar tudo com muita folga, e acho que poderia ser realizado nos mesmos moldes do encontro de BH mesmo que seja em outra cidade/estado inclusive com pagamento parcelado para que o encontro possa ser realizado em 2 ou 3 dias “só participei do encontro em BH, porque para ir a outro estado para apenas 1 dia de encontro fica difícil.” O encontro pode ser realizado com ou sem o Linares, pois temos muitas pessoas aqui podem palestrar. Vander

Obrigados a todos, Resolvido com a dica de Erciley Junior LOCAL cTEXTCG := {"Selecione","Alameda","Avenida","Beco","Estrada","Praça","Rodovia","Rua","Travessa"} LOCAL nCombo := 1 .. .. .. REDEFINE COMBOBOX oCATEGO VAR nCombo ITEMS cTEXTCG ID 101 OF CADACEPS .. .. .. Vander

Como iniciar combobox com um item já selecionado ? Por exemplo tenho cTEXTCG := {"Selecione","Alameda","Avenida","Beco","Estrada","Praça","Rodovia","Rua","Travessa"} Gostaria que ao abrir a tela o item Selecione já estivesse no combobox. Obrigado; Vander

Olá Betovsp; O erro pode está sendo provocado devido a "cDirWord:=CurDrive() +":\"+ CurDir()". Tente por o seu "RECALC.DOC" em uma pasta e copia-lo para uma pasta temporária conhecida exemplo "C:\doc_tmp" e trocar "cDirWord+"\RECALC.DOC" por "C:\doc_tmp"\RECALC.DOC" e veja se funciona, pois tive um problema semelhante e o Evandro me passou a dica. Hoje faço assim : cORIG := "AUXILIAR\Ficha de paciente.DOC" cDEST := "C:\ODTTEMP\MODELO\FICHA.doc" // Copia o arquivo original para a pasta temporária COPYFILE(cORIG ,cDEST,.F.) // Gerar um array com nome do "campo" que estará entre [] a ser substituído no word e o conteúdo do arquivo de dados SELECT FICHP ZAP APPEND BLAN REPLACE COPACCAR WITH STRZERO(PACIE->CODIGOPA,5) // CÓDIGO REPLACE NOPACCAR WITH ALLTRIM(PACIE->NOMEDOPA) // NOME REPLACE DNPACCAR WITH DTOC(PACIE->DTANASPA) // DATA NASCIMENTO REPLACE MRPACCAR WITH ALLTRIM(PACIE->MEDICOPA) // MÉDICO REPLACE DIPACCAR WITH DTOC(PACIE->DTAINCPA) // DATA INICIO aCampos := {} //------------------- DADOS DO PACIENTE aadd( aCampos, { 'codpaci',ALLTRIM(FICHP->COPACCAR ) } ) // CÓD. PACIENTE aadd( aCampos, { 'nompaci',ALLTRIM(FICHP->NOPACCAR ) } ) // NOME PACIENTE aadd( aCampos, { 'dtnpaci',ALLTRIM(FICHP->DNPACCAR ) } ) // DT NASCI aadd( aCampos, { 'medresp',ALLTRIM(FICHP->MRPACCAR ) } ) // MÉD. RESPON aadd( aCampos, { 'dtintra',ALLTRIM(FICHP->DIPACCAR ) } ) // DATA DE INICIO // Invoca rotina de impressão e passa como parametro a Array criadas PREEFIPA(aCampos) // PREENCHER FICHA DO PACIENTE ... ... //--------------------------------- IMPRESSÃO FUNCTION PREEFIPA( aCampos ) local x, oWord, cModelo:="C:\ODTTEMP\MODELO\FICHA.doc" //importante colocar a letra do drive senão dá erro oWord := TWord():New() // inicia o objeto OLE Word if oWord:IsVisible() oWord:Hide() endif oWord:OpenDoc( cModelo ) // abre o documento modelo for x = 1 to len( aCampos ) oWord:Replace( '['+aCampos[x,1]+']' , aCampos[x,2] ) next aRqfinal := 'C:\ODTTEMP\FICHA2.doc' * oWord:preview() // visualiza o documento no preview do Word * oWord:Visualizar() // visualiza o documento oWord:PrintDoc(.t.) // imprime o documento sem apresentar na tela oWord:Save(aRqfinal) // salva o documento sem apresentar na tela oWord:end() Vander