Linha Microsiga Protheus

Árvore de páginas

01. VISÃO GERAL

O ponto de entrada OG262S2() esta disponível na rotina de calculo de Serviço Armazenagem (OGA262). Este ponto de entrada permite descartar a cobrança de um serviço calculado.


Localização:

OG262S2()

Programa Fonte:

OGA262 - Cálculo Serviço

Função:

Permite não gravar o serviço calculado. 
Exemplo de Uso: Somente cobrar serviço para romaneio que já foi desolvido.

Retorno:

Nome

Tipo

Descrição

Obrigatório

OG262S2

Logico

Não envia parâmetros.

Deverá retornar um valor logico para gravar o valor do serviço .

não


02. EXEMPLO DE UTILIZAÇÃO

Abaixo segue exemplo.


User Function OG262S2()
Local lRet      := .t.
Local cAliasNJR := PARAMIXB[1]
Local cAliasNKQ := PARAMIXB[2]
Local cAliasNJM := PARAMIXB[3]


BeginSql Alias cAliasQry
SELECT NJM.NJM_TIPO,
    (SELECT COUNT( NJMAUX.NJM_CODROM) FROM %Table:NJM%  NJMAUX
    INNER JOIN %Table:SD2% SD2 ON SD2.D2_FILIAL = NJMAUX.NJM_FILIAL AND SD2.D2_SERIORI = NJM.NJM_DOCSER AND SD2.D2_NFORI = NJM.NJM_DOCNUM AND SD2.D_E_L_E_T_ = ' '
    WHERE NJMAUX.NJM_FILIAL = NJM.NJM_FILIAL
    AND NJMAUX.NJM_CODENT = NJM.NJM_CODENT    AND NJMAUX.NJM_LOJENT = NJM.NJM_LOJENT
    AND NJMAUX.NJM_DOCNUM = SD2.D2_DOC
    AND NJMAUX.NJM_DOCSER = SD2.D2_SERIE
    AND NJMAUX.NJM_TIPO = '6'
    AND NJMAUX.D_E_L_E_T_ = ' ' )   AS NrRomDev
  FROM %Table:NJM%  NJM
  WHERE NJM.NJM_CODROM =  %exp:(pcAliasNJM)->NJM_CODROM% 
  AND   NJM.NJM_TIPO = '3'   //Romaneio de entrada
  AND   NJM.D_E_L_E_T_ = ' '
EndSQL   

lRet  :=  .F.


Return( lRet )