Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Carlos Augusto Pereira

Gravado em

comparado com

Nova versão 7

changes.mady.by.user Usuário desconhecido (luciene.sousa)

Gravado em

Chave

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

...

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


02. DESCRIÇÃO

Este Ponto de Entrada permite manipular a tabela temporária de pedidosPedidos, as informações de rotas, zonas e setores antes de abrir a tela para montagem da 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->PEDTRBPED→ PED_GERA   Character, Tam 1Pedido selecionado para a carga: 'S', 'N'
TRBPED->PEDTRBPED→ PED_MARCA  Character, Tam 2GetMark() ou ' '
TRBPED->PEDTRBPED→ PED_ROTA   DA8_COD
TRBPED->PEDTRBPED→ PED_ZONA  DA7_PERCUR
TRBPED->PEDTRBPED→ PED_SETOR  DA7_ROTA
TRBPED->PEDTRBPED→ PED_SEQROTDA9_SEQUEN
TRBPED->PEDTRBPED→ PED_PEDIDO C9_PEDIDO
TRBPED->PEDTRBPED→ PED_ITEM  C9_ITEM
TRBPED->PEDTRBPED→ PED_SEQLIB C9_SEQUEN
TRBPED->PEDTRBPED→ PED_CODPROB1_COD
TRBPED->PEDTRBPED→ PED_DESPRO B1_DESC
TRBPED->PEDTRBPED→ PED_FILORIFWSizeFilial()
TRBPED->PEDTRBPED→ PED_FILCLI FWSizeFilial()
TRBPED->PEDTRBPED→ PED_CODCLI A1_COD
TRBPED->PEDTRBPED→ PED_LOJA  A1_LOJA
TRBPED->PEDTRBPED→ PED_NOME   A1_NOME
TRBPED->PEDTRBPED→ PED_ENDCLI A1_END
TRBPED->PEDTRBPED→ PED_BAIRRO A1_BAIRRO
TRBPED->PEDTRBPED→ PED_MUN   A1_MUN
TRBPED->PEDTRBPED→ PED_EST   A1_EST
TRBPED->PEDTRBPED→ PED_CEP   A1_CEP
TRBPED->PEDTRBPED→ PED_CARGA  DAK_COD
TRBPED->PEDTRBPED→ PED_SEQSET DA7_SEQUEN
TRBPED->PEDTRBPED→ PED_SEQORI DA9_SEQUEN
TRBPED->PEDTRBPED→ PED_ENDPAD C9_ENDPAD
TRBPED->PEDTRBPED→ PED_VALOR  DAK_VALOR
TRBPED->PEDTRBPED→ PED_VOLUM  DAK_CAPVOL
TRBPED->PEDTRBPED→ PED_QTDLIB DAK_VALOR
TRBPED->PEDTRBPED→ PED_REDESP A4_CODCaso possua DAIhaja DAI_REDESP
TRBPED->PEDTRBPED→ PED_REDNOMA4_NOMECaso possua DAIhaja 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 Montagem de Carga.


06. VERSÕES

Protheus 12.1.17 ou superiores.

07. OBSERVAÇÃO

Não se aplica.

...

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}


Templatedocumentos


HTML
<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>