- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de Entrada MTA650AC
×
Linguagem de Programação ADVPL
Perguntas Ponto de Entrada MTA650AC
- CCASKWD
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 114
- Obrigados Recebidos: 0
11 anos 2 semanas atrás - 11 anos 2 semanas atrás #18384
por CCASKWD
Ponto de Entrada MTA650AC foi criado por CCASKWD
Rotina SIGAEST
Estou querendo usar o ponto de entrada MTA650AC, no seguinte caso, depois que fazer a inclusão das OPs, e sair da tela, abre uma tela com a relação dos empenhos, só que na primeira posição vem os componentes, a descrição vem na última posição, queria deixar depois do componente a descrição do produto, é possível fazer com esse ponto de entrada? A inclusão do campo ele faz, pegando a última posição, caso positivo tem algum exemplo que eu posso fazer essa implementação. Estou usando a implementação a baixo,mais não esta ordenando.
#INCLUDE "PROTHEUS.CH"
USER FUNCTION MTA650AC()
Public aHeaOrder := aClone(aHeader)
aSort( aHeader , 14, 2 , { |x,y| x > y } )
RETURN(aHeader)
Obrigado,
Estou querendo usar o ponto de entrada MTA650AC, no seguinte caso, depois que fazer a inclusão das OPs, e sair da tela, abre uma tela com a relação dos empenhos, só que na primeira posição vem os componentes, a descrição vem na última posição, queria deixar depois do componente a descrição do produto, é possível fazer com esse ponto de entrada? A inclusão do campo ele faz, pegando a última posição, caso positivo tem algum exemplo que eu posso fazer essa implementação. Estou usando a implementação a baixo,mais não esta ordenando.
#INCLUDE "PROTHEUS.CH"
USER FUNCTION MTA650AC()
Public aHeaOrder := aClone(aHeader)
aSort( aHeader , 14, 2 , { |x,y| x > y } )
RETURN(aHeader)
Obrigado,
Ultima edição: 11 anos 2 semanas atrás por CCASKWD.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 2 semanas atrás #18395
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 Ponto de Entrada MTA650AC
Tenta Fazer isso:
#DEFINE USADO CHR(0)+CHR(0)+CHR(1)
#INCLUDE "PROTHEUS.CH"
USER FUNCTION MTA650AC()
Local xHeader := aClone(aHeader)
aTam:=TamSX3("B1_DESC") //14
aHeader[2] := {"Descri‡„o","B1_DESC" ,PesqPict("SB1","B1_DESC" ,atam[1]),aTam[1],aTam[2],,USADO, "C" ,"SB1"," " } //"Descri‡„o"
aTam:=TamSX3("D4_QUANT")//2
aHeader[14] := {"Quantidade Empenho","D4_QUANT",PesqPict("SD4","D4_QUANT",atam[1]),aTam[1],aTam[2],"A650ConvUM(2) .And. M->D4_QUANT # 0",USADO, "N" ,"SD4"," " } //"Quantidade Empenho"
RETURN({})
#DEFINE USADO CHR(0)+CHR(0)+CHR(1)
#INCLUDE "PROTHEUS.CH"
USER FUNCTION MTA650AC()
Local xHeader := aClone(aHeader)
aTam:=TamSX3("B1_DESC") //14
aHeader[2] := {"Descri‡„o","B1_DESC" ,PesqPict("SB1","B1_DESC" ,atam[1]),aTam[1],aTam[2],,USADO, "C" ,"SB1"," " } //"Descri‡„o"
aTam:=TamSX3("D4_QUANT")//2
aHeader[14] := {"Quantidade Empenho","D4_QUANT",PesqPict("SD4","D4_QUANT",atam[1]),aTam[1],aTam[2],"A650ConvUM(2) .And. M->D4_QUANT # 0",USADO, "N" ,"SD4"," " } //"Quantidade Empenho"
RETURN({})
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.
- CCASKWD
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 114
- Obrigados Recebidos: 0
11 anos 1 semana atrás #18417
por CCASKWD
Respondido por CCASKWD no tópico Ponto de Entrada MTA650AC
Obrigado Luiz,
Tentei fazer, como você postou, mais esta gerando erro log
THREAD ERROR (carlos.cleber, ESTSPSPOTI011) 11/11/2013 15:11:56
invalid expression type on macro on A650EMPALT(MATA650.PRX) 12/09/2013 16:29:10 line : 10576
Tentei fazer, como você postou, mais esta gerando erro log
THREAD ERROR (carlos.cleber, ESTSPSPOTI011) 11/11/2013 15:11:56
invalid expression type on macro on A650EMPALT(MATA650.PRX) 12/09/2013 16:29:10 line : 10576
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 1 semana atrás #18419
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 Ponto de Entrada MTA650AC
Opa Brother, pode ser que a rotina realmente não aceite essa mudança então.
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.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 1 semana atrás #18420
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 Ponto de Entrada MTA650AC
Ultima tentativa:
USER FUNCTION MTA650AC()
Local xHeader := aClone(aHeader)
aTam:=TamSX3("B1_DESC") //14
aHeader[2,1] := 'Descricao'
aHeader[2,2] := 'B1_DESC'
aHeader[2,3] := PesqPict("SB1","B1_DESC" ,atam[1])
aHeader[2,4] := aTam[1]
aHeader[2,5] := aTam[2]
aHeader[2,7] := USADO
aHeader[2,8] := "C"
aHeader[2,9] := "SB1"
aTam:=TamSX3("D4_QUANT")//2
aHeader[14,1] := 'Quantidade Empenho'
aHeader[14,2] := 'D4_QUANT'
aHeader[14,3] := PesqPict("SD4","D4_QUANT",atam[1])
aHeader[14,4] := aTam[1]
aHeader[14,5] := aTam[2]
aHeader[14,6] := "A650ConvUM(14) .And. M->D4_QUANT # 0"
aHeader[14,7] := USADO
aHeader[14,8] := "N"
aHeader[14,9] := "SD4"
RETURN({})
USER FUNCTION MTA650AC()
Local xHeader := aClone(aHeader)
aTam:=TamSX3("B1_DESC") //14
aHeader[2,1] := 'Descricao'
aHeader[2,2] := 'B1_DESC'
aHeader[2,3] := PesqPict("SB1","B1_DESC" ,atam[1])
aHeader[2,4] := aTam[1]
aHeader[2,5] := aTam[2]
aHeader[2,7] := USADO
aHeader[2,8] := "C"
aHeader[2,9] := "SB1"
aTam:=TamSX3("D4_QUANT")//2
aHeader[14,1] := 'Quantidade Empenho'
aHeader[14,2] := 'D4_QUANT'
aHeader[14,3] := PesqPict("SD4","D4_QUANT",atam[1])
aHeader[14,4] := aTam[1]
aHeader[14,5] := aTam[2]
aHeader[14,6] := "A650ConvUM(14) .And. M->D4_QUANT # 0"
aHeader[14,7] := USADO
aHeader[14,8] := "N"
aHeader[14,9] := "SD4"
RETURN({})
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.
- CCASKWD
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 114
- Obrigados Recebidos: 0
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de Entrada MTA650AC
Tempo para a criação da página:0.103 segundos