Histórico da Página

01. DADOS GERAIS

02. DESCRIÇÃO

Este Ponto de Entrada permite incluir campos na tela Sequência de Entrega, da rotina de Montagem de Carga (OMSA200manipular 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 da abertura da tela Sequência de Entrega, acessível pela rotina de de abrir a rotina OMSA200 (Montagem de Carga, opção Seq. Ent).

04. PARÂMETROS

Informações da Tabela Temporária

Informações do Array aArrayRota

Informações do Array aArrayZona

Informações do Array aArraySetor

05. RETORNO

06. VERSÕES

Protheus 12.1.17 ou superiores.

07. OBSERVAÇÃO

Não se aplica.

08. EXEMPLO

------

#INCLUDE "PROTHEUS.CH"

User Function OM200AdCOM200GR2()
Local aRet          := {}
Local aArray      := PARAMIXB[1] //-- Conteúdo do campo.
Local aHeaders Local aArrayRota := PARAMIXB[2] //-- Cabeçalho do campo.
Local bLine 
        Local aArrayZona := PARAMIXB[3] //-- Condição para inserir conteúdo no campo.
//-- Objetos de Status.
Local oLiberado
        Local aArraySetor := PARAMIXB[4] Local oCalend    := PARAMIXB[5]
Local oHorario   := PARAMIXB[6]
Local oVeiculo   := PARAMIXB[7]
Local oPedMan  := PARAMIXB[8]

        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→Local oDown      := LoadBitmap( GetResources(), "TRIDOWN" )
Local oUp           := LoadBitmap( GetResources(), "TRIUP" )
Local aAreaPE     := GetArea()
Local nX := 0For nX := 1 To Len(aArray)
      SA1->(DbSetOrder(1))
           If SA1->If TRBPED→(DbSeek(xFilialFwxFilial('SC5')+"SA1")+aArray[nX][6]+aArray[nX][7]000026"))
                  AAdd(aArray[nX],Alltrim(SA1→A1_INSCR) RecLock("TRBPED",.F.)
               TRBPED→PED_ENDCLI := "Endereço de teste"
              AAdd(aArray[nX],Alltrim(SA1→A1_CEP TRBPED→(MsUnlock())
           EndIF

Next nX

AAdd(aHeaders, RetTitle("A1_INSCR"))
AAdd(aHeaders, RetTitle("A1_CEP"))
bLine:={||{Iif(oPedMan:aArray[oPedMan:nAT,18]==1,oLiberado,; Iif(oPedMan:aArray[oPedMan:nAT,18]==2,oVeiculo,;
                Iif(oPedMan:aArray[oPedMan:nAT,18]==3,oHorario,;
                Iif(oPedMan:aArray[oPedMan:nAT,18]==4,oCalend,oLiberado)))),;
                oDown, oUp,;
                oPedMan:aArray[oPedMan:nAT,1 ],;
                oPedMan:aArray[oPedMan:nAT,2 ],;
                oPedMan:aArray[oPedMan:nAT,5 ],;
                oPedMan:aArray[oPedMan:nAT,19],;
                oPedMan:aArray[oPedMan:nAT,16],;
                oPedMan:aArray[oPedMan:nAT,17],;
                oPedMan:aArray[oPedMan:nAT,20],;
                oPedMan:aArray[oPedMan:nAT,6 ],;
                oPedMan:aArray[oPedMan:nAT,7 ],;
                oPedMan:aArray[oPedMan:nAT,8 ],;
                oPedMan:aArray[oPedMan:nAT,9 ],;
                oPedMan:aArray[oPedMan:nAT,10],;
                oPedMan:aArray[oPedMan:nAT,11],;
                oPedMan:aArray[oPedMan:nAT,30],; //Referência para exibição da Inscrição Estadual. Deve se iniciar a partir do 30, pois o array padrão possui 29 posições.
                oPedMan:aArray[oPedMan:nAT,31]}} //Referência para exibição do CEP.

AAdd(aRet,aArray)
AAdd(aRet, aHeaders)
AAdd(aRet, bLine)
RestArea(aAreaPE)

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}Return(aRet)

------

<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>