- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- TMKA271 Visualização
×
Linguagem de Programação ADVPL
Perguntas TMKA271 Visualização
- gustavo13
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 5 meses atrás #23156
por gustavo13
TMKA271 Visualização foi criado por gustavo13
Olá!
Como utilizo da rotina automática tmka271 para visualizar um atendimento do televendas. Abaixo um modelo de como tentei efetuar a visualização.
AADD(TesteCab,{"UA_FILIAL",SUA->UA_FILIAL, Nil})
AADD(TesteCab,{"UA_NUM",SUA->UA_NUM, Nil})
AADD(TesteCab,{"UA_CLIENTE",SUA->UA_CLIENTE, Nil})
AADD(TesteCab,{"UA_LOJA",SUA->UA_LOJA, Nil})
AADD(TesteCab,{"UA_CODCONT",SUA->UA_CODCONT, Nil})
AADD(TesteCab,{"UA_DESCNT",SUA->UA_DESCNT, Nil})
AADD(TesteCab,{"UA_OPERADO",SUA->UA_OPERADO, Nil})
AADD(TesteCab,{"UA_CONDPG",SUA->UA_CONDPG, Nil})
AADD(TesteCab,{"UA_TABELA",SUA->UA_TABELA, Nil})
AADD(TesteCab,{"UA_OPER",SUA->UA_OPER, Nil})
AADD(TesteCab,{"UA_MIDIA",SUA->UA_MIDIA, Nil})
AADD(TesteCab,{"UA_VEND",SUA->UA_VEND, Nil})
AADD(TesteCab,{"UA_TMK",SUA->UA_TMK, Nil})
AADD(TesteCab,{"UA_EMISSAO",SUA->UA_EMISSAO, Nil})
AADD(TesteCab,{"UA_CODCAMP",SUA->UA_CODCAMP, Nil})
AADD(TesteCab,{"UA_CODLIG",SUA->UA_CODLIG, Nil})
AADD(CAB,TesteCab)
TesteCab := {}
DbSelectArea("SUB")
DbSetOrder(1)
DbSeek(aCols[n][_nPosFil]+aCols[n][_nPosNum])
AADD(TesteCab,{"UB_FILIAL",SUB->UB_FILIAL, Nil})
AADD(TesteCab,{"UB_ITEM",SUB->UB_ITEM, Nil})
AADD(TesteCab,{"UB_NUM",SUB->UB_NUM, Nil})
AADD(TesteCab,{"UB_PRODUTO",SUB->UB_PRODUTO, Nil})
AADD(Item,TesteCab)
TMKA271(CAB,Item,2,"2")
Como utilizo da rotina automática tmka271 para visualizar um atendimento do televendas. Abaixo um modelo de como tentei efetuar a visualização.
AADD(TesteCab,{"UA_FILIAL",SUA->UA_FILIAL, Nil})
AADD(TesteCab,{"UA_NUM",SUA->UA_NUM, Nil})
AADD(TesteCab,{"UA_CLIENTE",SUA->UA_CLIENTE, Nil})
AADD(TesteCab,{"UA_LOJA",SUA->UA_LOJA, Nil})
AADD(TesteCab,{"UA_CODCONT",SUA->UA_CODCONT, Nil})
AADD(TesteCab,{"UA_DESCNT",SUA->UA_DESCNT, Nil})
AADD(TesteCab,{"UA_OPERADO",SUA->UA_OPERADO, Nil})
AADD(TesteCab,{"UA_CONDPG",SUA->UA_CONDPG, Nil})
AADD(TesteCab,{"UA_TABELA",SUA->UA_TABELA, Nil})
AADD(TesteCab,{"UA_OPER",SUA->UA_OPER, Nil})
AADD(TesteCab,{"UA_MIDIA",SUA->UA_MIDIA, Nil})
AADD(TesteCab,{"UA_VEND",SUA->UA_VEND, Nil})
AADD(TesteCab,{"UA_TMK",SUA->UA_TMK, Nil})
AADD(TesteCab,{"UA_EMISSAO",SUA->UA_EMISSAO, Nil})
AADD(TesteCab,{"UA_CODCAMP",SUA->UA_CODCAMP, Nil})
AADD(TesteCab,{"UA_CODLIG",SUA->UA_CODLIG, Nil})
AADD(CAB,TesteCab)
TesteCab := {}
DbSelectArea("SUB")
DbSetOrder(1)
DbSeek(aCols[n][_nPosFil]+aCols[n][_nPosNum])
AADD(TesteCab,{"UB_FILIAL",SUB->UB_FILIAL, Nil})
AADD(TesteCab,{"UB_ITEM",SUB->UB_ITEM, Nil})
AADD(TesteCab,{"UB_NUM",SUB->UB_NUM, Nil})
AADD(TesteCab,{"UB_PRODUTO",SUB->UB_PRODUTO, Nil})
AADD(Item,TesteCab)
TMKA271(CAB,Item,2,"2")
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- TMKA271 Visualização
Tempo para a criação da página:0.089 segundos