- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Tes inteligente - Função MATESINT
×
Linguagem de Programação ADVPL
Perguntas Tes inteligente - Função MATESINT
- Tony.totvs
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 47
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11494
por Tony.totvs
Tes inteligente - Função MATESINT foi criado por Tony.totvs
Olá pessoal,
Alguém ja utilizou a função MATESINT?
Função para retornar o TES.
Estou tentando utilizar em um programa customizado mas esta dando o seguinte erro:
variable does not exist AHEADER on MATESINT(MATA089.PRW) 13/11/2012 09:12:07 line : 364
Alguém ja utilizou a função MATESINT?
Função para retornar o TES.
Estou tentando utilizar em um programa customizado mas esta dando o seguinte erro:
variable does not exist AHEADER on MATESINT(MATA089.PRW) 13/11/2012 09:12:07 line : 364
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #11497
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Tes inteligente - Função MATESINT
Vc precisa criar o vetor aheader e o acols
// Itens do pedido
aHeader := {}
nUsado := 0
DbSelectArea('SX3')
dbSetOrder(1)
DbSeek('SUB')
While !EOF() .And. X3_ARQUIVO == 'SUB'
If X3Uso(SX3->X3_USADO) .And. cNivel >= X3_NIVEL
nUsado++
AADD(aHeader,{ TRIM(X3_TITULO), X3_CAMPO, X3_PICTURE,;
X3_TAMANHO, X3_DECIMAL, AllTrim(X3_VALID),;
X3_USADO, X3_TIPO, X3_ARQUIVO } )
EndIf
DbSkip()
EndDo
AADD(aCols,Array(nUsado+1))
For _ni:=1 To nUsado
aCols[Len(aCols),_ni]:=FieldGet(FieldPos(aHeader[_ni,2]))
Next
aCols[Len(aCols),nUsado+1]:=.F.
n := ny
_cTes := MaTesInt(2,_cTipo,SUA->UA_CLIENTE,SUA->UA_LOJA,"C",SB1->B1_COD,"UB_TES")
// Itens do pedido
aHeader := {}
nUsado := 0
DbSelectArea('SX3')
dbSetOrder(1)
DbSeek('SUB')
While !EOF() .And. X3_ARQUIVO == 'SUB'
If X3Uso(SX3->X3_USADO) .And. cNivel >= X3_NIVEL
nUsado++
AADD(aHeader,{ TRIM(X3_TITULO), X3_CAMPO, X3_PICTURE,;
X3_TAMANHO, X3_DECIMAL, AllTrim(X3_VALID),;
X3_USADO, X3_TIPO, X3_ARQUIVO } )
EndIf
DbSkip()
EndDo
AADD(aCols,Array(nUsado+1))
For _ni:=1 To nUsado
aCols[Len(aCols),_ni]:=FieldGet(FieldPos(aHeader[_ni,2]))
Next
aCols[Len(aCols),nUsado+1]:=.F.
n := ny
_cTes := MaTesInt(2,_cTipo,SUA->UA_CLIENTE,SUA->UA_LOJA,"C",SB1->B1_COD,"UB_TES")
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- Tony.totvs
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 47
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11514
por Tony.totvs
Respondido por Tony.totvs no tópico Tes inteligente - Função MATESINT
Luiz, obrigado mais uma vez.
Funcionou!!!
Preenchi somente o aHeader.
Abração
Funcionou!!!
Preenchi somente o aHeader.
Abração
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #11515
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Tes inteligente - Função MATESINT
Blz Tony, vc ta devendo uma foto sua ai no perfil pra gente te conhecer melhor hein !
Abraços.
Abraços.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- carioca
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 2
- Obrigados Recebidos: 0
- admin
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 297
- Obrigados Recebidos: 21
3 anos 10 meses atrás #32965
por admin
Respondido por admin no tópico Tes inteligente - Função MATESINT
Blz Cara boa noite, precisa popular sim, abaixo a função fieldget pega o valor dos campos da tabela.
For _ni:=1 To nUsado
aCols[Len(aCols),_ni]:=FieldGet(FieldPos(aHeader[_ni,2]))
Next
aCols[Len(aCols),nUsado+1]:=.F.
For _ni:=1 To nUsado
aCols[Len(aCols),_ni]:=FieldGet(FieldPos(aHeader[_ni,2]))
Next
aCols[Len(aCols),nUsado+1]:=.F.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Tes inteligente - Função MATESINT
Tempo para a criação da página:0.111 segundos