Histórico da Página
...
Bloco de código | ||
---|---|---|
| ||
User Function MNTA4352() Local cQuery Local cAliasQry := GetNextAlias() Local nRetorno := ParamIXB[1] cAliasQry := GetNextAlias() cQuery := " SELECT CP_PREREQU FROM " + RetSqlName( "SCP" ) cQuery += " WHERE SUBSTRING(CP_OP, 1, 6) = '" + STJ->TJ_ORDEM + "'" cQuery += " AND CP_PREREQU = 'S' " cQuery += " AND D_E_L_E_T_ <> '*' " cQuery := ChangeQuery(cQuery) dbUseArea( .T., "TOPCONN", TCGENQRY(,, cQuery), cAliasQry, .F., .T.) dbSelectArea( cAliasQry ) If (cAliasQry)->CP_PREREQU == "S" MsgInfo( "A O.S. n�onão poder�poderá ser finalizada pois existe uma S.A para o produto." ) nRetorno := 2 EndIf (cAliasQry)->( dbCloseArea() ) Return nRetorno |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas