Linha Microsiga Protheus

Árvore de páginas


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:11516856
Requisito/Story/Issue (informe o requisito relacionado) :DLOGWMSMSP-12194


02. DESCRIÇÃO

Este Ponto de Entrada permite manipular a tabela temporária de Pedidos, as informações de rotas, zonas e setores antes de abrir a tela para a montagem da carga (OMS200).

03. LOCALIZAÇÃO

Localizado antes de abrir a rotina OMSA200 (Montagem de Carga).

04. PARÂMETROS

Nome

Tipo

Descrição

TRBPED

Tabela TemporáriaContêm informações dos Pedidos selecionados para a geração da Carga
aArrayRotaArrayArray de rotas
aArrayZonaArrayArray de zonas
aArraySetorArrayArray de setores

Informações da Tabela Temporária

CampoFormatoObservação
TRBPED→ PED_GERA   Character, Tam 1Pedido selecionado para a carga: 'S', 'N'
TRBPED→ PED_MARCA  Character, Tam 2GetMark() ou ' '
TRBPED→ PED_ROTA   DA8_COD
TRBPED→ PED_ZONA  DA7_PERCUR
TRBPED→ PED_SETOR  DA7_ROTA
TRBPED→ PED_SEQROTDA9_SEQUEN
TRBPED→ PED_PEDIDO C9_PEDIDO
TRBPED→ PED_ITEM  C9_ITEM
TRBPED→ PED_SEQLIB C9_SEQUEN
TRBPED→ PED_CODPROB1_COD
TRBPED→ PED_DESPRO B1_DESC
TRBPED→ PED_FILORIFWSizeFilial()
TRBPED→ PED_FILCLI FWSizeFilial()
TRBPED→ PED_CODCLI A1_COD
TRBPED→ PED_LOJA  A1_LOJA
TRBPED→ PED_NOME   A1_NOME
TRBPED→ PED_ENDCLI A1_END
TRBPED→ PED_BAIRRO A1_BAIRRO
TRBPED→ PED_MUN   A1_MUN
TRBPED→ PED_EST   A1_EST
TRBPED→ PED_CEP   A1_CEP
TRBPED→ PED_CARGA  DAK_COD
TRBPED→ PED_SEQSET DA7_SEQUEN
TRBPED→ PED_SEQORI DA9_SEQUEN
TRBPED→ PED_ENDPAD C9_ENDPAD
TRBPED→ PED_VALOR  DAK_VALOR
TRBPED→ PED_VOLUM  DAK_CAPVOL
TRBPED→ PED_QTDLIB DAK_VALOR
TRBPED→ PED_REDESP A4_CODCaso haja DAI_REDESP
TRBPED→ PED_REDNOMA4_NOMECaso haja DAI_REDESP

Informações do Array aArrayRota

OrdemConteúdoFormato
1.T.boolean
2.F.boolean
3Código da RotaCharacter, Tam 6
4Descrição da RotaCharacter, Tam 20
5Campo LivreSpace(6) - Carga

Informações do Array aArrayZona

OrdemConteúdoFormato
1.T.boolean
2.F.boolean
3Código da RotaCharacter, Tam 6
4Código do SetorCharacter, Tam 6
5Descrição da RotaCharacter, Tam 20
6Campo LivreSpace(6) - Carga
7Sequência da RotaCharacter, Tam 6

Informações do Array aArraySetor

OrdemConteúdoFormato
1.T.boolean
2.F.boolean
3Código da RotaCharacter, Tam 6
4Código da ZonaCharacter, Tam 6
5Código do SetorCharacter, Tam 6
6Descrição da RotaCharacter, Tam 20
7Campo LivreSpace(6) - Carga
8Sequência da RotaCharacter, Tam 6

05. RETORNO

NomeTipoDescrição
aRetPEArrayArray de três posições, contendo:
  • aRetCarga[1] - aArrayRota
  • aRetCarga[2] - aArrayZona
  • aRetCarga[3] - aArraySetor

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 de Montagem de Carga.


06. VERSÕES

Protheus 12.1.17 ou superiores.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

#INCLUDE "PROTHEUS.CH"

User Function OM200GR2()
        Local aArrayRota := PARAMIXB[2]
        Local aArrayZona := PARAMIXB[3]
        Local aArraySetor := PARAMIXB[4]

        aAdd(aArrayRota,{.T.,.F.,"000026","ROTA A NEGOCIAR", Space(6)})
        aAdd(aArrayZona,{.T.,.F.,"000026","000027","ROTA A NEGOCIAR",Space(6), "000010" })
        aAdd(aArraySetor,{.T.,.F.,"000026","000027","000027","ROTA A NEGOCIAR",Space(6), "000010"})

        TRBPED→(DbSetOrder(1))
        If TRBPED→(DbSeek(FwxFilial('SC5')+"000026"))
               RecLock("TRBPED",.F.)
               TRBPED→PED_ENDCLI := "Endereço de teste"
               TRBPED→(MsUnlock())
        EndIf

RecLock("TRBPED",.T.)
       TRBPED→PED_GERA := "N"
       TRBPED→PED_MARCA := " "
       TRBPED→PED_ROTA := "000026"
       TRBPED→PED_ZONA := "000027"
       TRBPED→PED_SETOR := "000027"
       TRBPED→PED_SEQROT := "000010"
       TRBPED→PED_PEDIDO := "000027"
       TRBPED→PED_ITEM := "01"
       TRBPED→PED_SEQLIB := "01"
       TRBPED→PED_CODPRO := "001"
       TRBPED→PED_DESPRO := "LAPIS"
       TRBPED→PED_FILORI := "01"
       TRBPED→PED_FILCLI := " "
       TRBPED→PED_CODCLI := "000001"
       TRBPED→PED_LOJA := "01"
       TRBPED→PED_NOME := "CLIENTE A"
       TRBPED→PED_ENDCLI := "AVENIDA A"
       TRBPED→PED_BAIRRO := "BAIRRO A"
       TRBPED→PED_MUN := "MUNICIPIO A"
       TRBPED→PED_EST := "SC"
       TRBPED→PED_CEP := "99999999"
       TRBPED→PED_CARGA := "ZZZZZZ"
       TRBPED→PED_SEQSET := "000010"
       TRBPED→PED_SEQORI := "000010"
       TRBPED→PED_ENDPAD := " "
       TRBPED→PED_VALOR := 5
       TRBPED→PED_VOLUM := 10
       TRBPED→PED_QTDLIB := 5
TRBPED→(MsUnlock())

Return {aArrayRota,aArrayZona,aArraySetor}

------