ZECA Posted January 10, 2012 Report Share Posted 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 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 Quote Link to comment Share on other sites More sharing options...
ZECA Posted January 10, 2012 Author Report Share Posted 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 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 Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted January 10, 2012 Report Share Posted 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 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 Quote Link to comment Share on other sites More sharing options...
ZECA Posted January 10, 2012 Author Report Share Posted 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 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 Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted January 10, 2012 Report Share Posted 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 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 Quote Link to comment Share on other sites More sharing options...
ZECA Posted January 10, 2012 Author Report Share Posted 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 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 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 José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted January 10, 2012 Report Share Posted 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 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 Quote Link to comment Share on other sites More sharing options...
ZECA Posted January 10, 2012 Author Report Share Posted 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 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 José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
sambomb Posted January 10, 2012 Report Share Posted January 10, 2012 ? 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 Quote Link to comment Share on other sites More sharing options...
ZECA Posted January 10, 2012 Author Report Share Posted 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 José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted January 10, 2012 Report Share Posted 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 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 Quote Link to comment Share on other sites More sharing options...
Eric.Developer Posted January 11, 2012 Report Share Posted January 11, 2012 >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 Quote Link to comment Share on other sites More sharing options...
ZECA Posted January 11, 2012 Author Report Share Posted 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 José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 11, 2012 Report Share Posted January 11, 2012 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 Quote Link to comment Share on other sites More sharing options...
ZECA Posted January 11, 2012 Author Report Share Posted 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 José Carlos - ZECA fwh612(Free)-clipper52e-blinker 7.0 - six 3.02 - Windows XP Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.