Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Carlos Augusto Pereira

Gravado em

comparado com

Nova versão 6

changes.mady.by.user Carlos Augusto Pereira

Gravado em

Chave

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


01. DADOS GERAIS

Produto:

Solucoes_totvs
SolucaoTOTVS OMS

Solucoes_totvs_cross
SolucaoCross

Solucoes_totvs_parceiros
SolucaoParceiros

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVS

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoLogí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 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).

04. PARÂMETROS

Nome

Tipo

Descrição

TRBPED

Tabela TemporáriaContêm informações dos Pedidos selecionados para 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 possua DAI_REDESP
TRBPED->PED_REDNOMA4_NOMECaso possua 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
aRetPEArray

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


06. VERSÕES

Protheus 12.1.17 ou superiores

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

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}

...