Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: NGUTILF - Retorna os dados do Contador
Descrição:
Programa Fonte NGUTIL05.prx Sintaxe NGUTILF - Retorna os dados do Contador ( < cBemF> , < cDtCon> , < cHrCon> ) --> aArray Parâmetros:
Retorno
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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas