Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Rafael Stefano Holland Rondon

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Rafael Stefano Holland Rondon

Gravado em

Chave

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

...

03. PARÂMETROS


NomeDescrição
cCliOriCódigo do cliente original (padrão do parâmetro MV_RESCLIP)
cLojaOriCódigo da loja original (padrão do parâmetro MV_RESCLIP)
cParticCódigo do participante viajante 
aRegrasContém o array com as regras do padrão

aLegendas

Contém array com as legendas e descrição.


04. RETORNO


NomeDescrição

aRet

Array com a regra e a legenda

aCliDest

Código do cliente/loja destino, ou seja, que irá sobrepor o cliente/loja original.

Estrutura do vetorarray:
1º posição: Código do clienteRegra

2ª posição: Código da lojaCor da Legenda

Exemplo:

aAdd(aRet,{"!Empty(E1_PORTADO)","BR_LARANJA"})


05. EXEMPLO DE UTILIZAÇÃO

...

Bloco de código
languagejava
themeMidnight
titleFN677CLIP
#Include#INCLUDE "ProtheusPROTHEUS.chCH"

Static _aCliParts   := NIL

User Function FN677CLIPF040URET()

Local aCliDestaRet := Array(2)  // [1] - Cliente, [2] - Loja
Local cCliOri  := ParamIXB[1]
Local cLojaOri := ParamIXB[2]
Local cPartic  := ParamIXB[3]
Local nY       := 0

If _aCliParts == NIL
    _aCliParts := {} 
    // [1] - Partipante, [2] - Cliente, [3] - Loja
    Aadd(_aCliParts,{"005428","002   ","01"})
If FunName() $ "FINA040|FINA740"	
    AaddaAdd(_aCliPartsaRet,{"005445!Empty(E1_PORTADO)","005   ","01"BR_LARANJA"})
EndIfEndif

If nY := AScan(_aCliParts,{|x| x[1] == cPartic })
    aCliDest[1] := _aCliParts[nY,2]
    aCliDest[2] := _aCliParts[nY,3]
Else
    aCliDest[1] := cCliOri
    aCliDest[2] := cLojaOri
EndIf

Return aCliDestReturn aRet



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>