Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Marcelo Radulski Nunes

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Marcelo Radulski Nunes

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de Entrada TMC80FIL

Linha de Produto:

Microsiga Protheus

Segmento:

Logística

Módulo:

SIGATMS - Gestão de Transportes

ISSUE: DLOGTMS01-620

Ponto de Entrada - TMC80FIL

Descrição:

Este Ponto de Entrada permite ao usuário adicionar filtros na consulta de documentos da viagem.
Não é possível alterar a query original do sistema, apenas adicionar mais filtros.


Localização:No inicio do Painel de Agendamento.
Programa Fonte:TMSAF76 - Painel de Agendamento
Parâmetro:
NomeTipoDescrição

PARAMIXB[1]

StringString de 3 caracteres, indicando o Alias que deve ser utilizado para montagem dos filtros (DT6).
Retorno:
NomeTipoDescriçãoObrigatório
cFilSqlStringString contendo o filtro sql que será adicionado à query do sistema.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.
Bloco de código
languagedelphi
titleExemplo: TMF76CPO
linenumberstrue
User Function TMC80FIL() 
	Local cAliasDT6 := PARAMIXB[1]	
	Local cFilSql := ''
	Local dDataFil := (DATE()-30)
		
	/*Exemplo 1 - Trazer apenas os documentos emitidos nos ultimos 30 dias*/	    
	cFilSql += " AND "+cAliasDT6+".DT6_DATEMI >= "+DTOS(dDataFil)
	
	/*Exemplo 2 - Não trazer documentos com o status 7 - Entregue*/
	cFilSql += " AND "+cAliasDT6+".DT6_STATUS <> '7' "
	
Return cFilSql