UISCHEZO

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

/*
Funcao : UISCHEZO
Parametros : Objeto de update PAI
Retorno : Nenhum
Objetivos : Atualização de dicionários e helps
Autor : André Ceccheto Balieiro
Data/Hora : 10/05/2010 as 16:45
Revisao : 
Obs. : 
*/
*----------------------*
User Function UISCHEZO(o)
*----------------------*
If FindFunction("AVUpdate01")
 oUpd := AVUpdate01():New()
 oUpd:aChamados := { {EIC,{|o|UISCHEZO(o)}} }
 oUpd:Init(o)
Else
 MsgStop("Esse ambiente não está preparado para executar este update. Favor entrar em contato com o helpdesk Average.")
EndIf
Return .T. 
*-------------------------*
Static Function UISCHEZO(o)
*-------------------------*
 // "X3_ARQUIVO" ,"X3_ORDEM" ,"X3_CAMPO" ,"X3_TIPO" ,"X3_TAMANHO" ,"X3_DECIMAL" ,"X3_TITULO" ,"X3_TITSPA" ,"X3_TITENG" ,"X3_DESCRIC" ,"X3_DESCSPA" ,"X3_DESCENG" ,"X3_PICTURE" ,"X3_VALID" ,"X3_USADO" ,"X3_RELACAO" ,"X3_F3" ,"X3_NIVEL" ,"X3_RESERV" ,"X3_CHECK" ,"X3_TRIGGER" ,"X3_PROPRI" ,"X3_BROWSE" ,"X3_VISUAL" ,"X3_CONTEXT","X3_OBRIGAT" ,"X3_VLDUSER","X3_CBOX" ,"X3_CBOXSPA" ,"X3_CBOXENG" ,"X3_PICTVAR" ,"X3_WHEN" ,"X3_INIBRW" ,"X3_GRPSXG" ,"X3_FOLDER" ,"X3_PYME" ,"X3_CONDSQL","X3_CHKSQL","X3_IDXSRV","X3_ORTOGRA","X3_IDXFLD","X3_TELA"
 Aadd(o:aSX3,{"SYV" , "02" ,"YV_MACHINE" , ,30 , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , })
 Aadd(o:aSX3,{"SYX" , "02" ,"YX_MACHINE" , ,30 , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , })
Return NIL