01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:

NGUTILF()

País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado no programa de Funções de Contador (MNTUTIL_CONTADOR) que retorna os dados do contador posterior ao abastecimento que está sendo feito, para que considere apenas os registros de abastecimento. Dessa forma não irá retornar os dados de contador de o próximo registro for de lançamento de contador (abertura de OS, por exemplo).

Programa Fonte:

MNTUTIL_CONTADOR.prw

Função:

NGUTILF()

Retorno:

NomeTipoDescriçãoObrigatório

 MNTUTIL_CONTADOR.prw

Array

Retorna os campos de usuário

X

03. DEMAIS INFORMAÇÕES

#Include 'Protheus.ch'
 
User Function NGUTILF()
 
    Local _cGetDB := TcGetDb()
    Local cBemPE := ParamIXB[1]
    Local dDatPE := ParamIXB[2]
    Local cHorPE := ParamIXB[3]
     
    aRetPE := {}
     
    If FunName() != "MNTA655" .AND. FunName() != "MNTA656" 
        Return aRetPE
    EndIf
     
    cAliasQry := GetNextAlias()
    cQuery := " SELECT STP.TP_DTLEITU, STP.TP_HORA, STP.TP_POSCONT "
    cQuery += " FROM " + RetSqlName("STP")+" STP "
    cQuery += " WHERE STP.TP_CODBEM  = '"+cBemPE+"'"
    If Upper(_cGetDB) == "ORACLE" .Or. "DB2" $ Upper(_cGetDB)  
        cQuery += " AND STP.TP_DTLEITU || STP.TP_HORA > '"+DTOS(dDatPE)+cHorPE+"'"
    Else   
        cQuery += " AND STP.TP_DTLEITU + STP.TP_HORA > '"+DTOS(dDatPE)+cHorPE+"'"
    Endif
    cQuery += " AND   STP.TP_TIPOLAN = 'A' "
    cQuery += " AND   STP.D_E_L_E_T_ <> '*' "
    cQuery += " ORDER BY STP.TP_DTLEITU, STP.TP_HORA "
    cQuery := ChangeQuery(cQuery)
    dbUseArea( .T., "TOPCONN", TCGENQRY(,,cQuery),cAliasQry, .F., .T.)
    dbGotop()
    If !Eof()  
        AADD(aRetPE,{(cAliasQry)->TP_POSCONT,"A",STOD((cAliasQry)->TP_DTLEITU),(cAliasQry)->TP_HORA})
    Else   
        AADD(aRetPE,{0,' ',CTOD('  /  /  '),'  :  '})
    Endif(cAliasQry)->(dbCloseArea())
     
Return aRetPE


04. ASSUNTOS RELACIONADOS