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 a montagem da carga (OMS200).
03. LOCALIZAÇÃO
Localizado antes de abrir a rotina de OMSA200 (Montagem de Carga (OMSA200).
04. PARÂMETROS
Nome | Tipo | Descrição |
|---|---|---|
TRBPED | Tabela Temporária | Contêm informações dos Pedidos selecionados para a geração da Carga |
| aArrayRota | Array | Array de Rotasrotas |
| aArrayZona | Array | Array de Zonaszonas |
| aArraySetor | Array | Array de Setoressetores |
Informações da Tabela Temporária
...
| 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 tela de Montagem de Carga. |
06. VERSÕES
...
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}
------
| 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"
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} |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas