Histórico da Página
...
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 montagem da carga.
03. LOCALIZAÇÃO
Localizado antes de abrir a rotina de Montagem de Carga (OMSA200).
...
Nome | Tipo | Descrição |
---|---|---|
TRBPED | Tabela Temporária | Contêm informações dos Pedidos selecionados para geração da Carga |
aArrayRota | Array | Array de Rotas |
aArrayZona | Array | Array de Zonas |
aArraySetor | Array | Array de Setores |
Informações da tabela temporária:
Campo | Formato | Observação |
---|---|---|
TRBPED->PED_GERA | Character, Tam 1 | Pedido selecionado para a carga: 'S', 'N' |
TRBPED->PED_MARCA | Character, Tam 2 | GetMark() ou ' ' |
TRBPED->PED_ROTA | DA8_COD | |
TRBPED->PED_ZONA | DA7_PERCUR | |
TRBPED->PED_SETOR | DA7_ROTA | |
TRBPED->PED_SEQROT | DA9_SEQUEN | |
TRBPED->PED_PEDIDO | C9_PEDIDO | |
TRBPED->PED_ITEM | C9_ITEM | |
TRBPED->PED_SEQLIB | C9_SEQUEN | |
TRBPED->PED_CODPRO | B1_COD | |
TRBPED->PED_DESPRO | B1_DESC | |
TRBPED->PED_FILORI | FWSizeFilial() | |
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_COD | Caso possua DAI_REDESP |
TRBPED->PED_REDNOM | A4_NOME | Caso possua DAI_REDESP |
Informações do array aArrayRota
Ordem | Conteúdo | Formato |
---|---|---|
1 | .T. | boolean |
2 | .F. | boolean |
3 | Código da Rota | Character, Tam 6 |
4 | Descrição da Rota | Character, Tam 20 |
5 | Campo Livre | Space(6) - Carga |
Informações do array aArrayZona
Ordem | Conteúdo | Formato |
---|---|---|
1 | .T. | boolean |
2 | .F. | boolean |
3 | Código da Rota | Character, Tam 6 |
4 | Código do Setor | Character, Tam 6 |
5 | Descrição da Rota | Character, Tam 20 |
6 | Campo Livre | Space(6) - Carga |
7 | Sequência da Rota | Character, Tam 6 |
Informações do array aArraySetor
Ordem | Conteúdo | Formato |
---|---|---|
1 | .T. | boolean |
2 | .F. | boolean |
3 | Código da Rota | Character, Tam 6 |
4 | Código da Zona | Character, Tam 6 |
5 | Código do Setor | Character, Tam 6 |
6 | Descrição da Rota | Character, Tam 20 |
7 | Campo Livre | Space(6) - Carga |
8 | Sequência da Rota | Character, Tam 6 |
05. RETORNO
Não se aplica
Nome | Tipo | Descrição |
---|---|---|
aRetPE | Array | Array de três posições, contendo:
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 Montagem de Carga. |
06. VERSÕES
Protheus 12.1.17 ou superiores
...
Bloco de código |
---|
#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" Return Nil 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} |
Templatedocumentos |
---|
HTML |
---|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas