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. | ||||||||
Retorno: |
|
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 )