Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: NGUTILF - Retorna os dados do Contador
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
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)
Programa Fonte 
NGUTIL05.prx
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cBemF Caracter Código do bem para o qual está sendo feito o abastecimento. X
cDtCon Data Data em qual está sendo feito o abastecimento X
cHrCon Caracter Hora na qual está sendo feito o abastecimento X
Retorno
    aArray(array_of_record)
  • Array contendo os dados do abastecimento posterior.
Exemplos 
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