Histórico da Página

//P_E**************************************************************************************
//P_E - Ponto de Entrada para validação da inclusão e exclusão da solicitação de transferência
//P_E - Parâmetros : nOpc, cCBASE, cItem, cGeraNF, cClasNFE, cTESNFS, cTESNF, cNota, cSerie,
//P_E   cCondPg, cHistSol, cCCustoDst , cLocalDst, cFilDest      
//P_E - Retorno : .F. - Deve bloquear a linha de digitação e .T. - Liberar a linha digitada.
//P_E****************************************************************************************

User Function AF125OKT 

Local nOpc := paramixb[1]

Local cCBASE := paramixb[2]

Local cItem := paramixb[3]

Local cGeraNF := paramixb[4]

Local cClasNFE := paramixb[5]

Local cTESNFS := paramixb[6]

Local cTESNFE := paramixb[7]

Local cNota := paramixb[8]

Local cSerie := paramixb[9]

Local cCondPg := paramixb[10]

Local cHistSol := paramixb[11]

Local cCCustoDst := paramixb[12]

Local cLocalDst := paramixb[13]

Local cFilDest := paramixb[14]

//Exemplo de customização !!!
Local lRet := .T.

    If GDFieldGet('N1_CBASE') == '000001'
        Help(NIL, NIL, "Ponto de Entrada - AF125OKT ", NIL, "Este bem de ativo não pode ser transferido.", 1, 0, NIL, NIL, NIL, NIL, NIL, {"Informar outro Bem"})
        lRet := .F.
   EndIf
	Alert("EXECUTADO PONTO DE ENTRADA AF125OKT")

//Exemplo de customização !!!


Return lRet