Ponto de Entrada TMF76CPO

Linha de Produto:	Microsiga Protheus
Segmento:	Logística
Módulo:	SIGATMS - Gestão de Transportes
Chamado/ISSUE:	MLOG-7

Ponto de Entrada - TMF76CPO

Descrição:

Este Ponto de Entrada permite a adição de campos nos grids dos folders do painel de agendamento.

Os campos adicionados sempre ficarão após o campo "Registro", existente em cada um dos folders do painel de agendamento.

Localização:

No inicio do Painel de Agendamento.

Programa Fonte:

TMSAF76 - Painel de Agendamento

Parâmetro:

Nome	Tipo	Descrição
PARAMIXB[1]	Array	Array contendo os campos padrões de cada grid, montado para cada folder do painel de agendamento.
PARAMIXB[2]	String	String de 3 caracteres, indicando qual dos grids deve ser manipulado.

Retorno:

Nome	Tipo	Descrição	Obrigatório
aCposWrk	Array	Array contendo os campos padrões, mais os campos extras desejados.	Sim

Observações:

Cada folder do painel de agendamento possui um comando SQL que efetua o preenchimento dos dados apresentados no seu grid. Por isso, no exemplo de código visualizado abaixo, criamos a variável "cAlias", para facilitar a separação dos folders, e para indicar quais tabelas podem ter seus campos acrescentados no grid. Qualquer tabela não mencionada no folder, não deverá ser acrescida, pois causará erro ao executar o programa.

Vale ressaltar que, apesar das tabelas estarem mencionadas para cada folder, alguns de seus campos não funcionarão corretamente.

Seguem algumas restrições:

Campos que possuam alguma instrução "Valid" (com a função "Pertence()" por exemplo);
Campos que possuam alguma instrução "Relação";
Campos que possuam uma descrição provinda de um DE-PARA, onde o valor armazenado no banco de dados, é substituído por outro na exibição do sistema (Exemplo: Campo DTQ_TIPVIA, onde a viagem com status "1" no banco, é apresentada como "Normal" no sistema.

Exemplo: TMF76CPO

#Include 'Protheus.ch'
User Function TMF76CPO()
Local aCposWrk := PARAMIXB[1]
Local cAlias   := PARAMIXB[2]
If		cAlias == "DTQ" //Folder "Viagem"      (tabelas DTQ, DF1, DUD, DA8)
	AADD(aCposWrk, {"DTQ_CUSTO1","DTQ.DTQ_CUSTO1","DTQ_CUSTO1"} )
	AADD(aCposWrk, {"DF1_VALMER","DF1.DF1_VALMER","DF1_VALMER"} )
	AADD(aCposWrk, {"DUD_ZONA","DUD.DUD_ZONA","DUD_ZONA"} )
	AADD(aCposWrk, {"DA8_CDRORI","DA8.DA8_CDRORI","DA8_CDRORI"} )
ElseIF cAlias == "DF8" //Folder "???"         (tabelas DF8, DF1, DT5, DTC, DD9, DA8)
ElseIF cAlias == "DF0" //Folder "Agendamento" (tabelas DF0, DF1 e DUE)
	AADD(aCposWrk, {"DF0_TOTDIS","DF0.DF0_TOTDIS","DF0_TOTDIS"} )
	AADD(aCposWrk, {"DF1_VALMER","DF1.DF1_VALMER","DF1_VALMER"} )
	AADD(aCposWrk, {"DUE_MUN","DUE.DUE_MUN","DUE_MUN"} )
ElseIf cAlias == "DT5" //Folder "Coletas"	    (tabelas DT5, DF1, DF0, DUE, SA1)
	AADD(aCposWrk, {"DT5_ROTPRE","DT5.DT5_ROTPRE","DT5_ROTPRE"} )
	AADD(aCposWrk, {"DF1_VALMER","DF1.DF1_VALMER","DF1_VALMER"} )
	AADD(aCposWrk, {"DF0_TOTDIS","DF0.DF0_TOTDIS","DF0_TOTDIS"} )
	AADD(aCposWrk, {"DUE_MUN","DUE.DUE_MUN","DUE_MUN"} )
	AADD(aCposWrk, {"A1_NREDUZ","SA1.A1_NREDUZ","A1_NREDUZ"} )
ElseIf cAlias == "DTC" //Folder "Nfs Cliente" (tabelas DTC, DF1, DT5, SA1, SB1)
	AADD(aCposWrk, {"DTC_SERVIC","DTC.DTC_SERVIC","DTC_SERVIC"} )
	AADD(aCposWrk, {"DF1_VALMER","DF1.DF1_VALMER","DF1_VALMER"} )
	AADD(aCposWrk, {"DT5_ROTPRE","DT5.DT5_ROTPRE","DT5_ROTPRE"} )
	AADD(aCposWrk, {"A1_NREDUZ","SA1REM.A1_NREDUZ","A1_NREDU1"} )
	AADD(aCposWrk, {"A1_NREDUZ","SA1DES.A1_NREDUZ","A1_NREDU2"} )
	AADD(aCposWrk, {"B1_PESBRU","SB1.B1_PESBRU","B1_PESBRU"} )
ElseIf cAlias == "DTP" //Folder "Cálculo"     (tabelas DTP, DF1, DT5, DTC)
	AADD(aCposWrk, {"DTP_NUMCOT","DTP.DTP_NUMCOT","DTP_NUMCOT"} )
	AADD(aCposWrk, {"DF1_VALMER","DF1.DF1_VALMER","DF1_VALMER"} )
	AADD(aCposWrk, {"DT5_ROTPRE","DT5.DT5_ROTPRE","DT5_ROTPRE"} )
	AADD(aCposWrk, {"DTC_SERVIC","DTC.DTC_SERVIC","DTC_SERVIC"} )
ElseIf cAlias == "DTX" //Folder "Manifesto"   (tabelas DTX, DF1, DUD)
	AADD(aCposWrk, {"DTX_CODVEI","DTX.DTX_CODVEI","DTX_CODVEI"} )
	AADD(aCposWrk, {"DF1_VALMER","DF1.DF1_VALMER","DF1_VALMER"} )
	AADD(aCposWrk, {"DUD_ZONA","DUD.DUD_ZONA","DUD_ZONA"} )
ElseIf cAlias == "DTY" //Folder "Cont Carret" (tabelas DTY, DF1, DUD, DA4)
	AADD(aCposWrk, {"DTY_SEST","DTY.DTY_SEST","DTY_SEST"} )
	AADD(aCposWrk, {"DF1_VALMER","DF1.DF1_VALMER","DF1_VALMER"} )
	AADD(aCposWrk, {"DUD_ZONA","DUD.DUD_ZONA","DUD_ZONA"} )
	AADD(aCposWrk, {"DA4_NREDUZ","DA4.DA4_NREDUZ","DA4_NREDUZ"} )
ElseIf cAlias == "DT6" //Folder "Manut Docto" (tabelas DT6, DF1)
	AADD(aCposWrk, {"DT6_TABFRE","DT6.DT6_TABFRE","DT6_TABFRE"} )
	AADD(aCposWrk, {"DF1_VALMER","DF1.DF1_VALMER","DF1_VALMER"} )
ElseIf cAlias == "DUA" //Folder "Ocorrências" (tabelas DUA, DF1, DT6, DT2)
	AADD(aCposWrk, {"DUA_QTDOCO","DUA.DUA_QTDOCO","DUA_QTDOCO"} )
	AADD(aCposWrk, {"DF1_VALMER","DF1.DF1_VALMER","DF1_VALMER"} )
	AADD(aCposWrk, {"DT6_TABFRE","DT6.DT6_TABFRE","DT6_TABFRE"} )
	AADD(aCposWrk, {"DT2_DESCRI","DT2.DT2_DESCRI","DT2_DESCRI"} )
ElseIf cAlias == "DTW" //Folder "Operações"   (tabelas DTW, DF1, DUD)
	AADD(aCposWrk, {"DTW_SERVIC","DTW.DTW_SERVIC","DTW_SERVIC"} )
	AADD(aCposWrk, {"DF1_VALMER","DF1.DF1_VALMER","DF1_VALMER"} )
	AADD(aCposWrk, {"DUD_ZONA","DUD.DUD_ZONA","DUD_ZONA"} )
ElseIf cAlias == "DE5" //Folder "EDI"         (tabelas DE5, DF1, DTC, SB1)
	AADD(aCposWrk, {"DE5_VALSEG","DE5.DE5_VALSEG","DE5_VALSEG"} )
	AADD(aCposWrk, {"DF1_VALMER","DF1.DF1_VALMER","DF1_VALMER"} )
	AADD(aCposWrk, {"DTC_SERVIC","DTC.DTC_SERVIC","DTC_SERVIC"} )
	AADD(aCposWrk, {"B1_PESBRU","SB1.B1_PESBRU","B1_PESBRU"} )
ElseIf cAlias == "DU1" //Folder "Cmp Entrega" (tabelas DF1, DTC, DT6, SA1)
	AADD(aCposWrk, {"DF1_VALMER","DF1.DF1_VALMER","DF1_VALMER"} )
	AADD(aCposWrk, {"DTC_SERVIC","DTC.DTC_SERVIC","DTC_SERVIC"} )
	AADD(aCposWrk, {"DT6_TABFRE","DT6.DT6_TABFRE","DT6_TABFRE"} )
	AADD(aCposWrk, {"A1_NREDUZ","SA1.A1_NREDUZ","A1_NREDU1"} )
ElseIf cAlias == "SE1" //Folder "Faturas"     (tabelas DF1, DTC, DT6, SA1, SA6)
	AADD(aCposWrk, {"DF1_VALMER","DF1.DF1_VALMER","DF1_VALMER"} )
	AADD(aCposWrk, {"DTC_SERVIC","DTC.DTC_SERVIC","DTC_SERVIC"} )
	AADD(aCposWrk, {"DT6_TABFRE","DT6.DT6_TABFRE","DT6_TABFRE"} )
	AADD(aCposWrk, {"A1_NREDUZ","SA1.A1_NREDUZ","A1_NREDU1"} )
	AADD(aCposWrk, {"A6_SALATU","SA6.A6_SALATU","A6_SALATU"} )
EndIf
Return (aCposWrk)

Árvore de páginas

Ponto_de_Entrada_TMF76CPO

Ponto de Entrada TMF76CPO

Ponto de Entrada - TMF76CPO