× Linguagem de Programação ADVPL

Perguntas Ajuda com pergunta na SX1

Mais
11 anos 2 meses atrás #17070 por clistenis
Galera boa tarde, estou com um problema ao criar um relatório com tReport.

Preciso criar uma pergunta onde no HELP mostre mais de uma linha, alguém pode me ajudar ?

Segue um pedaço do código.

Local aHelpPor := {}
AADD(aHelpPor,"Indique o tipo interno do produto:")
AADD(aHelpPor,"Em BRANCO para TODOS;")
AADD(aHelpPor,"B = Bruto;")
AADD(aHelpPor,"F = Fracionado")
AADD(aHelpPor,"G = Gravado")
PutSx1(cPerg,"03","Tipo Interno:","","","MV_CH3","C",1,0,0,"G","","","","","MV_PAR03","","","","","","","","","","","","","","","","",aHelpPor,{},{},"")

Preciso que no HELP mostre todos os itens acima.

Obrigado

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 2 meses atrás #17116 por THALESCOTR
Respondido por THALESCOTR no tópico Ajuda com pergunta na SX1
Bom dia Clistenis,

é necessário que seja um array?
se não for, você pode fazer assim:

#DEFINE CRLF Chr(13)+Chr(10)
Local cHelpPor := "Indique o tipo interno do produto:"+CRLF+"Em BRANCO para TODOS;"+CRLF...



se você quiser fazer com array, acho q da seguinte forma dá certo:
#DEFINE CRLF Chr(13)+Chr(10)
Local aHelpPor := {}
Local cHelpFor := ""
AADD(aHelpPor,"Indique o tipo interno do produto:")
AADD(aHelpPor,"Em BRANCO para TODOS;")
AADD(aHelpPor,"B = Bruto;")
AADD(aHelpPor,"F = Fracionado")
AADD(aHelpPor,"G = Gravado")

For Nx:=1 To Len(aHelpFor)
cHelpFor += aHelpFor[Nx]+CRLF
Next Nx

e no putsx1 coloque cHelpFor



Att
Thales

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.117 segundos
Joomla templates by a4joomla