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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas