Retornar duas opÃ§oes

ZECA · January 10, 2012

Bom Dia a todos!!! Tenho uma funÃ§Ã£o:

/*---------------------------------------------------------------------

Function ...: Impr_Pgscript()

Description : Seleciona uma impressora PAGESCRIPT

Author .....: JC Roque

Date .......: 13/02/04 09:50

Parameters..: NIHIL

-----------------------------------------------------------------------------*/

function IMPR_PGSCRIPT()

local qZeca:= SavEnv(02,00,23,79)

local cOldArea:= SELECT()

private sPrinter

Q_TERMINAL:=ALLTRIM(NETNAME())

IF !EMPTY(Q_TERMINAL)

tone(5000,3)

q_dbf:="c:\temp\PRINTERS.DBF"

*

SELE F

IF !(USA_ARQ(q_dbf,.T.,0))

CLOSE DATABASES

RETURN

ENDIF

SET ORDER TO 3

//USA_ARQ(q_dbf,.T.,0)

//SET ORDER TO 3

n3:=LASTREC()

*

ESC_PGS() // Escolhe uma Impressora da RelaÃ§â•žo

tone(5000,1)

tone(5000,2)

tone(5000,3)

RstEnv(qZeca)

*

IF programa="TRANSPORTES"

@ 24,40 SAY space(40) color corTrc

@ 24,40 SAY "Impressora" color corTrc

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color corTrc1

ELSEIF programa="MINUTA"

@ 24,40 SAY space(40) color corTrc

@ 24,40 SAY "Impressora" color corTrc

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color corTrc1

ELSEIF programa="COLETA"

@ 24,40 SAY space(40) color "GR+/B"

@ 24,40 SAY "Impressora" color "GR+/B"

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color "BG+/B"

ELSEIF programa="FATURAMENTO"

@ 24,40 SAY space(40) color "GR+/GB"

@ 24,40 SAY "Impressora" color "GR+/GB"

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color "GR+/GB"

ENDIF

SELE &cOldArea

RETURN(sPrinter)

*

id=code>id=code>

Note que ela retorna um valor(RETURN(sPrinter)).

O que quero saber Ã© como fazer com que devolva dois ou mais valores, tipo RETURN(sPrinter,sPrinterNome)

Grato

Sds

JosÃ© Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

ZECA · January 10, 2012

Bom Dia a todos!!! Tenho uma funÃ§Ã£o:

/*---------------------------------------------------------------------

Function ...: Impr_Pgscript()

Description : Seleciona uma impressora PAGESCRIPT

Author .....: JC Roque

Date .......: 13/02/04 09:50

Parameters..: NIHIL

-----------------------------------------------------------------------------*/

function IMPR_PGSCRIPT()

local qZeca:= SavEnv(02,00,23,79)

local cOldArea:= SELECT()

private sPrinter

Q_TERMINAL:=ALLTRIM(NETNAME())

IF !EMPTY(Q_TERMINAL)

tone(5000,3)

q_dbf:="c:\temp\PRINTERS.DBF"

*

SELE F

IF !(USA_ARQ(q_dbf,.T.,0))

CLOSE DATABASES

RETURN

ENDIF

SET ORDER TO 3

//USA_ARQ(q_dbf,.T.,0)

//SET ORDER TO 3

n3:=LASTREC()

*

ESC_PGS() // Escolhe uma Impressora da RelaÃ§â•žo

tone(5000,1)

tone(5000,2)

tone(5000,3)

RstEnv(qZeca)

*

IF programa="TRANSPORTES"

@ 24,40 SAY space(40) color corTrc

@ 24,40 SAY "Impressora" color corTrc

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color corTrc1

ELSEIF programa="MINUTA"

@ 24,40 SAY space(40) color corTrc

@ 24,40 SAY "Impressora" color corTrc

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color corTrc1

ELSEIF programa="COLETA"

@ 24,40 SAY space(40) color "GR+/B"

@ 24,40 SAY "Impressora" color "GR+/B"

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color "BG+/B"

ELSEIF programa="FATURAMENTO"

@ 24,40 SAY space(40) color "GR+/GB"

@ 24,40 SAY "Impressora" color "GR+/GB"

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color "GR+/GB"

ENDIF

SELE &cOldArea

RETURN(sPrinter)

*

id=code>id=code>

Note que ela retorna um valor(RETURN(sPrinter)).

O que quero saber Ã© como fazer com que devolva dois ou mais valores, tipo RETURN(sPrinter,sPrinterNome)

Grato

Sds

JosÃ© Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Luiz Fernando · January 10, 2012

Ola Jose Carlos, vc poderia ultizar uma matriz, desta forma vc nÃ£o teria limite, poderia colocar 1 ou 20 se quizer

Ex:

SPrinter:={}

x:=0

aadd( sPrinter,{""} )

x++

sPrinter[x,1]:=nome da impressota

AbraÃ§os

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

ZECA · January 10, 2012

citaÃ§Ã£o:
Ola Jose Carlos, vc poderia ultizar uma matriz, desta forma vc nÃ£o teria limite, poderia colocar 1 ou 20 se quizer

Ex:

SPrinter:={}

x:=0

aadd( sPrinter,{""} )

x++

sPrinter[x,1]:=nome da impressota

AbraÃ§os

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

id=quote>id=quote>

Bom dia Luiz!!!

Pensei numa MATRIZ mas, faz tanto tempo que nÃ£o mexo com esta rotina que nÃ£o estou conseguindo dar uma "revigorada" nesta funÃ§Ã£o. Voce tem alguma idÃ©ia?

Grato

Sds

JosÃ© Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Luiz Fernando · January 10, 2012

citaÃ§Ã£o:
Bom dia Luiz!!!

Pensei numa MATRIZ mas, faz tanto tempo que nÃ£o mexo com esta rotina que nÃ£o estou conseguindo dar uma "revigorada" nesta funÃ§Ã£o. Voce tem alguma idÃ©ia?

Grato

Sds

JosÃ© Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

id=quote>id=quote>

Colega pelo cÃ³digo seu postado fica meio dificil tentar ajudar, pois nÃ£o mostra aonde a varivel Sprinter recebe algum valor...

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

ZECA · January 10, 2012

citaÃ§Ã£o:

citaÃ§Ã£o:
Bom dia Luiz!!!

Pensei numa MATRIZ mas, faz tanto tempo que nÃ£o mexo com esta rotina que nÃ£o estou conseguindo dar uma "revigorada" nesta funÃ§Ã£o. Voce tem alguma idÃ©ia?

Grato

Sds

JosÃ© Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

id=quote>id=quote>
Colega pelo cÃ³digo seu postado fica meio dificil tentar ajudar, pois nÃ£o mostra aonde a varivel Sprinter recebe algum valor...

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

id=quote>id=quote>

Bom Luiz, Voce pediu; eu ia poupar voce de ver velharia, mas segue todo o codigo:

*

/*---------------------------------------------------------------------

Function ...: Impr_Pgscript()

Description : Seleciona uma impressora PAGESCRIPT

Author .....: JC Roque

Date .......: 13/02/04 09:50

Parameters..: NIHIL

-----------------------------------------------------------------------------*/

function IMPR_PGSCRIPT()

local qZeca:= SavEnv(02,00,23,79)

local cOldArea:= SELECT()

private sPrinter

Q_TERMINAL:=ALLTRIM(NETNAME())

IF !EMPTY(Q_TERMINAL)

tone(5000,3)

q_dbf:="c:\temp\PRINTERS.DBF"

*

SELE F

IF !(USA_ARQ(q_dbf,.T.,0))

CLOSE DATABASES

RETURN

ENDIF

SET ORDER TO 3

//USA_ARQ(q_dbf,.T.,0)

//SET ORDER TO 3

n3:=LASTREC()

*

ESC_PGS() // Escolhe uma Impressora da RelaÃ§â•žo

tone(5000,1)

tone(5000,2)

tone(5000,3)

RstEnv(qZeca)

*

IF programa="TRANSPORTES"

@ 24,40 SAY space(40) color corTrc

@ 24,40 SAY "Impressora" color corTrc

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color corTrc1

ELSEIF programa="MINUTA"

@ 24,40 SAY space(40) color corTrc

@ 24,40 SAY "Impressora" color corTrc

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color corTrc1

ELSEIF programa="COLETA"

@ 24,40 SAY space(40) color "GR+/B"

@ 24,40 SAY "Impressora" color "GR+/B"

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color "BG+/B"

ELSEIF programa="FATURAMENTO"

@ 24,40 SAY space(40) color "GR+/GB"

@ 24,40 SAY "Impressora" color "GR+/GB"

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color "GR+/GB"

ENDIF

SELE &cOldArea

RETURN(sPrinter)

*

/*-----------------------------------------------------------*

Menu do IMPR_PGSCRIPT para selecionar uma IMPRESSORA

*------------------------------------------------------------*/

FUNCTION ESC_PGS()

*

*private n1:=06,n2:=10,n4:=60

private n1:=07,n2:=10,n4:=70

n3=n3+n1+1 // Acerta o tamanho do quadro de acordo com os registros

private aZeca:= SavEnv(n1, n2, n3, n4)

private corbarra:= 113

PUBLIC vetor1[4],vetor3[4],vetor7[4]

SET SCOREBOARD OFF

* Campos

vetor1[1]="IMPRESSORA"

vetor1[2]="COMPUTADOR"

vetor1[3]="DEFAULT"

vetor1[4]="NUMPRINT"

* Titulo dos Campos

vetor3[1]="Impressora"

vetor3[2]="Computador"

vetor3[3]=chr(251)

vetor3[4]="Numero"

*

* Matriz com pictures

*

vetor7[1]="@!"

vetor7[2]="@!"

vetor7[3]="@!"

vetor7[4]="99"

*

oldcolor=setcolor()

go top

SETCOLOR("W+/B*,GR+/B*")

Ajan:=Nbox(n1-3,n2-2,n3+2,n4+2,"gr+/W*",.F.)

Bjan:=Nbox(n1-1,n2-1,n3+1,n4+1,"bg+/b*",.F.)

@ n1-2,26 SAY " ESCOLHA UMA IMPRESSORA " COLOR "R/W*"

DBEDIT(n1, n2, n3, n4,vetor1,"OPTCPGS",vetor7,vetor3,"â”€"," â”‚ ",,.t.,.t. )

setcolor(oldcolor)

set cursor on

RstEnv(aZeca)

RETURN

*

/*-----------------------------------------------------------*

Menu do IMPR_PGSCRIPT para selecionar uma IMPRESSORA

*------------------------------------------------------------*/

function OPTCPGS

PARAMETERS modo, ponteiro

local getlist:={}

set cursor off

PRIVATE pos_cursor, registro, salva_tela

pos_cursor=vetor1[ponteiro]

IF modo > 0 .AND. modo < 4

tone(1000)

KEYBOARD CHR(376)

return(1)

endif

restscreen(row(),n2,row(),n4,transform(savescreen(row(),n2,row(),n4),;

replicate("X"+chr(corbarra),2*n4)))

inkey(0)

KEYBOARD CHR(LASTKEY())

IF LASTKEY() == 27

CLEAR TYPEAHEAD

RETURN(0)

ELSEIF LASTKEY() == 19

KEYBOARD CHR(26)

ELSEIF LASTKEY() == 04

KEYBOARD CHR(02)

ELSEIF LASTKEY() = 13

TONE(5000,3)

*

registro:=RECNO()

go top

trava_reg()

DO WHILE !EOF()

REPLACE escolhido WITH space(1)

SKIP

LOOP

ENDDO

unlock

go registro

trava_reg()

REPLACE escolhido WITH chr(251)

qImpressora:=IMPRESSORA

qComputador:=COMPUTADOR

sPrinter:=NUMPRINT

cPorta=PORTA

IF EMPTY(cPorta)

cPorta="LPT2"

ENDIF

unlock

RETURN(0)

ENDIF

RETURN(1)

*

id=code>id=code>

Cuidado pra nÃ£o se afogar na poeira (cof,cof,cof) hehehehehehe!!!!

Sds

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Luiz Fernando · January 10, 2012

Vagner serÃ¡ que nÃ£o tem como vc travar este tÃ³pico tambÃ©m rsrsrsrs...brincadeiras a parte, Jose Carlos acredito que a questÃ£o ai Ã© mais de logica do que de comandos...

para poder ententer melhor

1)vc esta querendo selecionar mais de uma impressora.

2)ou vc quer o retorno de Impr_Pgscript alÃ©m de trazer o NUMPRINT, que Ã© armazenada na variavel sPrinter tb vem as demais informaÃ§Ãµes como IMPRESSORA,COMPUTADOR,PORTA

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

ZECA · January 10, 2012

citaÃ§Ã£o:
Vagner serÃ¡ que nÃ£o tem como vc travar este tÃ³pico tambÃ©m rsrsrsrs...brincadeiras a parte, Jose Carlos acredito que a questÃ£o ai Ã© mais de logica do que de comandos...

para poder ententer melhor

1)vc esta querendo selecionar mais de uma impressora.

2)ou vc quer o retorno de Impr_Pgscript alÃ©m de trazer o NUMPRINT, que Ã© armazenada na variavel sPrinter tb vem as demais informaÃ§Ãµes como IMPRESSORA,COMPUTADOR,PORTA

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

id=quote>id=quote>

NÃ£o falei procÃª que ia levantar poeira???(hehehehe). Para exemplificar o que quero Ã© uma variavel que retorne HP (para HP) e FX(para FX). Sendo HP, imprimo em papel A4(duas vezes, como se fosse primeira e segunda via) Sendo FX imprimo no papel razÃ£o. O agravante Ã© que para imprimir no A4 e no razÃ£o sÃ£o usados configuraÃ§Ãµes diferentes, medidas diferentes e por ai afora.

Sds

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

sambomb · January 10, 2012

? Alert( "Onde deseja imprimir?", { "HP", "FX" } )

Function RetornaValores(nInicial,nFinal)

Local aResultado := {}, i := 0

If nInicial < nFinal

For i := nInicial to nFinal

aAdd(aResultado,i)

end

elseif nInicial > nFinal

For i := nInicial to nFinal step -1

aAdd(aResultado,i)

end

else//nInicial = nFinal

aAdd(aResultado,nInicial)

end

Return aResultado

RetornaValores(1,9) //-- Retorna uma matriz {1,2,3,4,5,6,7,8,9}

aTeste := RetornaValores(10,15)

? aTeste[1] //10

id=code>id=code>

RCA Sistemas - Itaocara - RJ

Editado por - sambomb on 10/01/2012 15:09:15

ZECA · January 10, 2012

citaÃ§Ã£o:
? Alert( "Onde deseja imprimir?", { "HP", "FX" } )

FaÃ§a o teste ae para ver se Ã© disso que vocÃª precisa para a escolha...

E sobre retornar dois valores Ã© simples
Function RetornaValores(nInicial,nFinal)

Local aResultado := {}, i := 0

If nInicial < nFinal

For i := nInicial to nFinal

aAdd(aResultado,i)

end

elseif nInicial > nFinal

For i := nInicial to nFinal step -1

aAdd(aResultado,i)

end

else//nInicial = nFinal

aAdd(aResultado,nInicial)

end

Return aResultado

RetornaValores(1,9) //-- Retorna uma matriz {1,2,3,4,5,6,7,8,9}

aTeste := RetornaValores(10,15)

? aTeste[1] //10

id=code>id=code>

RCA Sistemas - Itaocara - RJ

Editado por - sambomb on 10/01/2012 15:09:15

id=quote>id=quote>

Boa tarde!!!

Esclareceu alguma coisa, agradeÃ§o, mas estou aceitando mais sugestÃµes

grato

Sds

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Luiz Fernando · January 10, 2012

colega de uma olhada no seu codigo nas parte em negrito, pela logica simples o que vc esta querendo, e tem varias formas de se fazer e chegar no mesmo resultado...

depois dentro do seu sistema vc iria fazer assim

if sPrinter[1,1]='HP' // primeiro elemento do array poderia ser o nome da impressora

if sPrinter[1,2] // segundo elemento da array poderia ser medidas

// 'fazer algo'

endif

if sPrinter[1,3] // terceiro elemento da array poderia se font de letra

// 'fazer algo'

endif

elseif sPrinter[1,1]='FX'

.

endif

id=code>id=code>

citaÃ§Ã£o:
Function ...: Impr_Pgscript()

Description : Seleciona uma impressora PAGESCRIPT

Author .....: JC Roque

Date .......: 13/02/04 09:50

Parameters..: NIHIL

-----------------------------------------------------------------------------*/

function IMPR_PGSCRIPT()

local qZeca:= SavEnv(02,00,23,79)

local cOldArea:= SELECT()

private sPrinter:={}

Q_TERMINAL:=ALLTRIM(NETNAME())

IF !EMPTY(Q_TERMINAL)

tone(5000,3)

q_dbf:="c:\temp\PRINTERS.DBF"

*

SELE F

IF !(USA_ARQ(q_dbf,.T.,0))

CLOSE DATABASES

RETURN

ENDIF

SET ORDER TO 3

//USA_ARQ(q_dbf,.T.,0)

//SET ORDER TO 3

n3:=LASTREC()

*

ESC_PGS() // Escolhe uma Impressora da RelaÃ§â•žo

tone(5000,1)

tone(5000,2)

tone(5000,3)

RstEnv(qZeca)

*

IF programa="TRANSPORTES"

@ 24,40 SAY space(40) color corTrc

@ 24,40 SAY "Impressora" color corTrc

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color corTrc1

ELSEIF programa="MINUTA"

@ 24,40 SAY space(40) color corTrc

@ 24,40 SAY "Impressora" color corTrc

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color corTrc1

ELSEIF programa="COLETA"

@ 24,40 SAY space(40) color "GR+/B"

@ 24,40 SAY "Impressora" color "GR+/B"

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color "BG+/B"

ELSEIF programa="FATURAMENTO"

@ 24,40 SAY space(40) color "GR+/GB"

@ 24,40 SAY "Impressora" color "GR+/GB"

@ 24,COL()+1 SAY trim(qimpressora)+"[ "+alltrim(qComputador)+" ]" color "GR+/GB"

ENDIF

ENDIF

SELE &cOldArea

RETURN(sPrinter)

*

/*-----------------------------------------------------------*

Menu do IMPR_PGSCRIPT para selecionar uma IMPRESSORA

*------------------------------------------------------------*/

FUNCTION ESC_PGS()

*

*private n1:=06,n2:=10,n4:=60

private n1:=07,n2:=10,n4:=70

n3=n3+n1+1 // Acerta o tamanho do quadro de acordo com os registros

private aZeca:= SavEnv(n1, n2, n3, n4)

private corbarra:= 113

PUBLIC vetor1[4],vetor3[4],vetor7[4]

SET SCOREBOARD OFF

* Campos

vetor1[1]="IMPRESSORA"

vetor1[2]="COMPUTADOR"

vetor1[3]="DEFAULT"

vetor1[4]="NUMPRINT"

* Titulo dos Campos

vetor3[1]="Impressora"

vetor3[2]="Computador"

vetor3[3]=chr(251)

vetor3[4]="Numero"

*

* Matriz com pictures

*

vetor7[1]="@!"

vetor7[2]="@!"

vetor7[3]="@!"

vetor7[4]="99"

*

oldcolor=setcolor()

go top

SETCOLOR("W+/B*,GR+/B*")

Ajan:=Nbox(n1-3,n2-2,n3+2,n4+2,"gr+/W*",.F.)

Bjan:=Nbox(n1-1,n2-1,n3+1,n4+1,"bg+/b*",.F.)

@ n1-2,26 SAY " ESCOLHA UMA IMPRESSORA " COLOR "R/W*"

DBEDIT(n1, n2, n3, n4,vetor1,"OPTCPGS",vetor7,vetor3,"â”€"," â”‚ ",,.t.,.t. )

setcolor(oldcolor)

set cursor on

RstEnv(aZeca)

RETURN

*

*

/*-----------------------------------------------------------*

Menu do IMPR_PGSCRIPT para selecionar uma IMPRESSORA

*------------------------------------------------------------*/

function OPTCPGS

PARAMETERS modo, ponteiro

local getlist:={}

set cursor off

PRIVATE pos_cursor, registro, salva_tela

pos_cursor=vetor1[ponteiro]

IF modo > 0 .AND. modo < 4

tone(1000)

KEYBOARD CHR(376)

return(1)

endif

restscreen(row(),n2,row(),n4,transform(savescreen(row(),n2,row(),n4),;

replicate("X"+chr(corbarra),2*n4)))

inkey(0)

KEYBOARD CHR(LASTKEY())

IF LASTKEY() == 27

CLEAR TYPEAHEAD

RETURN(0)

ELSEIF LASTKEY() == 19

KEYBOARD CHR(26)

ELSEIF LASTKEY() == 04

KEYBOARD CHR(02)

ELSEIF LASTKEY() = 13

TONE(5000,3)

*

registro:=RECNO()

go top

trava_reg()

DO WHILE !EOF()

REPLACE escolhido WITH space(1)

SKIP

LOOP

ENDDO

unlock

go registro

trava_reg()

REPLACE escolhido WITH chr(251)

qImpressora:=IMPRESSORA

qComputador:=COMPUTADOR

x:=0

aadd( sPrinter, { "","",""} )

x++

sPrinter[x,1]:=numprint

sPrinter[x,2]:=porta

sPrinter[x,3]:=medidas bla bla

cPorta=PORTA

IF EMPTY(cPorta)

cPorta="LPT2"

ENDIF

unlock

RETURN(0)

ENDIF

RETURN(1)

*

[/code]

Cuidado pra nÃ£o se afogar na poeira (cof,cof,cof) hehehehehehe!!!!

Sds

JosÃ© Carlos - ZECA

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

id=quote>id=quote>

Luiz Fernando

$http:\\img193.imageshack.us\img193\6434\foto3nr.jpg$

msn: empresoft@globo.com

skype:empresoft

empresoft@globo.com

FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1

FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104

Eric.Developer · January 11, 2012

simples:

function IMPR_PGSCRIPT()

....

RETURN {sPrinter,sPrinterNome}

para usar:

aCfg:=IMPR_PGSCRIPT()

? aCfg[1]

? aCfg[2]

Eric Developer Systems

www.magaldi.eti.br

ZECA · January 11, 2012

citaÃ§Ã£o:
>O que quero saber Ã© como fazer com que devolva dois ou mais valores, tipo RETURN(sPrinter,sPrinterNome)

simples:

function IMPR_PGSCRIPT()

....

RETURN {sPrinter,sPrinterNome}

para usar:

aCfg:=IMPR_PGSCRIPT()

? aCfg[1]

? aCfg[2]

Eric Developer Systems

www.magaldi.eti.br

id=quote>id=quote>

Bom dia a todos!!!

Vou testar todas as rotinas enviadas, agradeÃ§o, mas, fala sÃ©rio, ninguÃ©m pode ver um prg cheirando a naftalina(13/02/2004) que todo mundo corre prÃ¡ dar um pitaco. TÃ´ estranhando que o KAPIABA tÃ¡ quieto e nÃ£o disse nada. SÃ³ falta ele dizer que quando fiz esta rotina ele ainda nÃ£o tinha nascido.

Muito bom pessoal

AgradeÃ§o novamente.

Bom trabalho a todos

Sds

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

kapiaba · January 11, 2012

KKKKKKKKKKKKKKKKKKid=size5>

Mas, teste todas as alternativas.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

ZECA · January 11, 2012

citaÃ§Ã£o:
KKKKKKKKKKKKKKKKKKid=size5>

Eu acho que a melhor resposta, Ã© a do ERIC.

Mas, teste todas as alternativas.

JoÃ£o Santos - SÃ£o Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

id=quote>id=quote>

Boa tarde!!!

Todas as alternativas foram validas. AgradeÃ§o.

tÃ© +

Sds

fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Retornar duas opÃ§oes

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation