|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
Quebra de Linha |
|
Versão: |
12 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
Mensagem do
CLEBER23
em 25/08/2017, 15:59 h
Local: PR Registro: 24/05/2017 Postagens: 20 |
Boa tarde, Pessoal
Sou novo no grupo e tambem estou aprendendo a mexer com ADVPL estou criando uma formula para que apareça em dados adicionais da DANFE, a formula funciona porem gostaria de quebrar linha para mesma. A formula foi feita dento da tabela de formulas do protheus SM4,
Ja tentei usar o Chr(13) + Chr(10) mas não funcionou
segue:
"Nome Fantasia: " + POSICIONE("SA1", 1, XFILIAL("SA1")+SC5->C5_CLIENTE+SC5->C5_LOJACLI, "SA1->A1_NREDUZ") + Chr(13) + Chr(10) + " Redespacho: " + POSICIONE("SA4", 1, XFILIAL("SA4")+SC5->C5_REDESP, "SA4->A4_NOME") |
|
|
Mensagem do
MARCELLOW
em 25/08/2017, 16:57 h
Local: SP Registro: 22/01/2009 Postagens: 259 |
tenta colocar esse comando...
como se trata de um texto acho q funciona
+ CRLF
ate
Marcello Werthmuller |
|
|
Mensagem do
ROBERTOMEN
em 28/08/2017, 08:51 h
Local: PR Registro: 04/07/2017 Postagens: 448 |
_cNomeF := "Nome Fantasia: " + POSICIONE("SA1", 1, XFILIAL("SA1")+SC5->C5_CLIENTE+SC5->C5_LOJACLI, "SA1->A1_NREDUZ")
_cRdesp := Redespacho: " + POSICIONE("SA4", 1, XFILIAL("SA4")+SC5->C5_REDESP, "SA4->A4_NOME")
oDanfe:Say(210,002, _cNomeF ,oFont08N:oFont)
oDanfe:Say(213,002,_cRdesp ,oFont08:oFont)
Seria algo assim...
|
|
|
Mensagem do
ROBERTOMEN
em 28/08/2017, 08:54 h
Local: PR Registro: 04/07/2017 Postagens: 448 |
Em dados adicionais ficaria assim :
LenMensagens:= Len(aMensagem)
nLin:= 741
nMensagem := 0
For nX := 1 To Min(nLenMensagens, MAXMSG)
oDanfe:Say(nLin,002,aMensagem[nX],oFont08:oFont)
nLin:= nLin+10
Next nX
nMensagem := nX
_cNomeF := "Nome Fantasia: " + POSICIONE("SA1", 1, XFILIAL("SA1")+SC5->C5_CLIENTE+SC5->C5_LOJACLI, "SA1->A1_NREDUZ")
_cRdesp := Redespacho: " + POSICIONE("SA4", 1, XFILIAL("SA4")+SC5->C5_REDESP, "SA4->A4_NOME")
nLin:= nLin+10
oDanfe:Say(nLin,002, _cNomeF ,oFont08N:oFont)
nLin:= nLin+10
oDanfe:Say(nLin,002,_cRdesp ,oFont08:oFont)
|
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|