DT PE OM200ADC - Inclusão de campos na sequência de entrega

01. DADOS GERAIS

Produto:	TOTVS OMS
Linha de Produto:	Linha Protheus
Segmento:	Logística
Módulo:	SIGAOMS - Gestão de Distribuição
Função:	OMSA200 - Montagem de Carga
País:	Todos Países
Ticket:	-
Requisito/Story/Issue (informe o requisito relacionado) :	-

02. DESCRIÇÃO

Este Ponto de Entrada permite incluir campos na tela Sequência de Entrega, da rotina de Montagem de Carga (OMSA200).

03. LOCALIZAÇÃO

Localizado antes da abertura da tela Sequência de Entrega, acessível pela rotina de Montagem de Carga, opção Seq. Ent.

04. PARÂMETROS

Nome	Tipo	Descrição
aArrayCarga	Array	Contêm informações dos Pedidos selecionados para geração da Carga
aHeaders	Array	Contém o cabeçalho dos campos a serem apresentados no browse de Pedidos
bLine	Bloco de Código	Armazena a regra de preenchimento dos campos do browse de Pedidos
oLiberado	Objeto Imagem	Objeto imagem usado quando status da carga igual a 1.
oCalend	Objeto Imagem	Objeto imagem usado quando status da carga igual a 2.
oHorario	Objeto Imagem	Objeto imagem usado quando status da carga igual a 3.
oVeiculo	Objeto Imagem	Objeto imagem usado quando status da carga igual a 4.
oPedMan	Objeto de dados	Objeto contendo os dados da tela de sequenciamento dos pedidos

05. RETORNO

Nome

Tipo

Descrição

aRetCarga

Array

Array de três posições, contendo:

aRetCarga[1] - aArrayCarga
aRetCarga[2] - aHeaders
aRetCarga[3] - bLine

Estes três elementos devem estar no mesmo formato em que foram recebidos por parâmetro, contendo inclusive os campos adicionados pelo Ponto de Entrada e que serão apresentados na tela Sequência de Entrega.

06. VERSÕES

Protheus 12.1.17 ou superiores.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

#INCLUDE "PROTHEUS.CH"

User Function OM200AdC()
Local aRet := {}
Local aArray := PARAMIXB[1] //-- Conteúdo do campo.
Local aHeaders := PARAMIXB[2] //-- Cabeçalho do campo.
Local bLine := PARAMIXB[3] //-- Condição para inserir conteúdo no campo.
//-- Objetos de Status.
Local oLiberado := PARAMIXB[4]
Local oCalend := PARAMIXB[5]
Local oHorario := PARAMIXB[6]
Local oVeiculo := PARAMIXB[7]
Local oPedMan := PARAMIXB[8]

Local oDown := LoadBitmap( GetResources(), "TRIDOWN" )
Local oUp := LoadBitmap( GetResources(), "TRIUP" )

Local aAreaPE := GetArea()
Local nX := 0

For nX := 1 To Len(aArray)
SA1->(DbSetOrder(1))
If SA1->(DbSeek(xFilial("SA1")+aArray[nX][6]+aArray[nX][7]))
AAdd(aArray[nX],Alltrim(SA1→A1_INSCR))
AAdd(aArray[nX],Alltrim(SA1→A1_CEP))
EndIF

Next nX

AAdd(aHeaders, RetTitle("A1_INSCR"))
AAdd(aHeaders, RetTitle("A1_CEP"))
bLine:={||{Iif(oPedMan:aArray[oPedMan:nAT,18]==1,oLiberado,; Iif(oPedMan:aArray[oPedMan:nAT,18]==2,oVeiculo,;
Iif(oPedMan:aArray[oPedMan:nAT,18]==3,oHorario,;
Iif(oPedMan:aArray[oPedMan:nAT,18]==4,oCalend,oLiberado)))),;
oDown, oUp,;
oPedMan:aArray[oPedMan:nAT,1 ],;
oPedMan:aArray[oPedMan:nAT,2 ],;
oPedMan:aArray[oPedMan:nAT,5 ],;
oPedMan:aArray[oPedMan:nAT,19],;
oPedMan:aArray[oPedMan:nAT,16],;
oPedMan:aArray[oPedMan:nAT,17],;
oPedMan:aArray[oPedMan:nAT,20],;
oPedMan:aArray[oPedMan:nAT,6 ],;
oPedMan:aArray[oPedMan:nAT,7 ],;
oPedMan:aArray[oPedMan:nAT,8 ],;
oPedMan:aArray[oPedMan:nAT,9 ],;
oPedMan:aArray[oPedMan:nAT,10],;
oPedMan:aArray[oPedMan:nAT,11],;
oPedMan:aArray[oPedMan:nAT,30],; //Referência para exibição da Inscrição Estadual. Deve se iniciar a partir do 30, pois o array padrão possui 29 posições.
oPedMan:aArray[oPedMan:nAT,31]}} //Referência para exibição do CEP.

AAdd(aRet,aArray)
AAdd(aRet, aHeaders)
AAdd(aRet, bLine)
RestArea(aAreaPE)

Return(aRet)