- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ajuda com pergunta na SX1
×
Linguagem de Programação ADVPL
Perguntas Ajuda com pergunta na SX1
- clistenis
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 97
- Obrigados Recebidos: 0
11 anos 2 meses atrás #17070
por clistenis
Ajuda com pergunta na SX1 foi criado 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
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.
- THALESCOTR
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 124
- Obrigados Recebidos: 0
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
é 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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ajuda com pergunta na SX1
Tempo para a criação da página:0.117 segundos