Histórico da Página

Ponto de entrada criado para retornar 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 se o próximo registro for de lançamento de contador (abertura de OS por exemplo)

NGUTIL05.prx

NGUTILF - Retorna os dados do Contador ( < cBemF> , < cDtCon> , < cHrCon> ) --> aArray

aArray(array_of_record)
• Array contendo os dados do abastecimento posterior.

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 aRetPEEndifcAliasQry := 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+"'"EndifcQuery += " 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