×
Linguagem de Programação ADVPL
Perguntas Quebra de Linha
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
- kanaamlrr
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
- kanaamlrr
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 6 meses atrás #14123
por vcardoso
Respondido por vcardoso no tópico Quebra de Linha
If (SA1->A1_SUFRAMA <> '')
oPrn:Say(_nLinDem,275, "*"+TOS->CK_ITEM, oFont2)
oPrn:Say(_nLinDem,390,Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_COD"), oFont2) xxxxx
oPrn:Say(_nLinDem,750,Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_DESC"), oFont2) xxxxx
ELSE
oPrn:Say(_nLinDem,275, TOS->CK_ITEM, oFont2)
oPrn:Say(_nLinDem,390,Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_COD"), oFont2) xxxxx
oPrn:Say(_nLinDem,750,Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_DESC"), oFont2) xxxxx
ENDIF
Quero quebrar as linhas onde tem "xxxxx" no final.
oPrn:Say(_nLinDem,275, "*"+TOS->CK_ITEM, oFont2)
oPrn:Say(_nLinDem,390,Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_COD"), oFont2) xxxxx
oPrn:Say(_nLinDem,750,Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_DESC"), oFont2) xxxxx
ELSE
oPrn:Say(_nLinDem,275, TOS->CK_ITEM, oFont2)
oPrn:Say(_nLinDem,390,Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_COD"), oFont2) xxxxx
oPrn:Say(_nLinDem,750,Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_DESC"), oFont2) xxxxx
ENDIF
Quero quebrar as linhas onde tem "xxxxx" no final.
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
11 anos 6 meses atrás #14125
por kanaamlrr
Respondido por kanaamlrr no tópico Quebra de Linha
Então, você vai ter que definir o tamanho máximo de cada campo e fazer assim:
oPrn:Say(_nLinDem,390,SubStr(Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_COD")1,10), oFont2) xxxxx
oPrn:Say(_nLinDem+20,390,SubStr(Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_COD")11,20), oFont2) xxxxx
oPrn:Say(_nLinDem,750,SubStr(Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_DESC")1,10), oFont2) xxxxx
oPrn:Say(_nLinDem+20,750,SubStr(Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_DESC")11,20), oFont2) xxxxx
entendeu?
oPrn:Say(_nLinDem,390,SubStr(Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_COD")1,10), oFont2) xxxxx
oPrn:Say(_nLinDem+20,390,SubStr(Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_COD")11,20), oFont2) xxxxx
oPrn:Say(_nLinDem,750,SubStr(Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_DESC")1,10), oFont2) xxxxx
oPrn:Say(_nLinDem+20,750,SubStr(Posicione("SB1",1,xFilial("SB1")+TOS->CK_PRODUTO,"B1_DESC")11,20), oFont2) xxxxx
entendeu?
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.126 segundos