BlackTDN Search

segunda-feira, 30 de julho de 2012

BlackTDN :: ADVPL ~ Strongly Typed Variables : ParamType Extended

Baseado na idéia original “Strongly Typed Variables  (c) 1996-1997 by Bryan Duchesne” BlackTDN disponibiliza uma versão adaptada para o ADVPL. A base para a versão “eXtended” foi o include ParmType.ch da própria TOTVS. Alguns ajustes foram necessários dentre eles: Substituir  “List match marker” por “Regular match marker” na atribuição de variável do tipo Objeto e na verificação de exceção.
 
-  Regular match marker:
Matches the next legal expression in the input text.  The regular match marker, a simple label, is the most general and, therefore, the most likely match marker to use for a command argument. Because of its generality, it is used with the regular result marker, all of the stringify result markers, and the blockify result marker.
-  List match marker:
Matches a comma-separated list of legal expressions.  If no input text matches the match marker, the specified marker name contains nothing. You must take care in making list specifications because extra commas will cause unpredictable and unexpected results.
 
Em função dessas alterações uma particularidade, em relação ao exemplo postado em BlackTDN :: ADVPL ~ PARAMTYPE, é a passagem do nome da Classe a ser usada na atribuição. Como ParmType.ch usa “List match marker” o nome da classe é passada como “Literal” sendo resolvida pelo pré-processador. Já em ParamTypeX.ch a classe a ser utilizada, considerando o uso de “Regular match marker”, deverá ser passada como uma “String”.
 
Denominamos o novo arquivo de cabeçalho de ParamTypeX.ch. Com ele poderemos, além validar a atribuição dos valores formais em uma função, validar os valores atribuídos a variáveis. Nesta primeira versão de ParamTypeX não nos preocupamos em salvar o conteúdo atribuído às variáveis para uso com depuração em tempo de execução deixaremos isso para uma versão futura.
 
Um uso para ParamTypeX.ch poderá ser visto a seguir:
 
   1: #ifdef TOTVS
   2:     #include "TOTVS.CH"
   3: #else    
   4:     #include "protheus.ch"
   5: #endif
   6:  
   7: /*
   8:     Programa : StronglyTypedVar.prg
   9:     Função   : STypedVar
  10:     Autor    : Marinaldo de Jesus [ http://www.blacktdn.com.br ]
  11:     Data     : 29/07/2012
  12:     Uso      : Strongly Typed Variables
  13: */
  14: User Function STypedVar()
  15:  
  16:     // declare your variables as strongly typed
  17:     LOCAL bError AS BLOCK VALUE {|e|MsgRun(e:Description,"Exception: "+IF(Empty(ProcName(3)),ProcName(2),ProcName(3)),{||Sleep(1000)})}
  18:     LOCAL bErrorBlock AS BLOCK
  19:  
  20:     LOCAL alcVar1 AS ARRAY VALUE Array(10)
  21:     LOCAL alcVar2 AS ARRAY
  22:      
  23:     LOCAL blcVar1 AS BLOCK VALUE { || .T. }
  24:     LOCAL blcVar2 AS BLOCK
  25:      
  26:     LOCAL clcVar1 AS CHARACTER VALUE "cVar1"
  27:     LOCAL clcVar2 AS CHARACTER
  28:      
  29:     LOCAL nlcVar1 AS NUMERIC VALUE 15
  30:     LOCAL nlcVar2 AS NUMERIC
  31:      
  32:     LOCAL dlcVar1 AS DATE VALUE Date()
  33:     LOCAL dlcVar2 AS DATE
  34:      
  35:     LOCAL llcVar1 AS LOGICAL VALUE .T.
  36:     LOCAL llcVar2 AS LOGICAL
  37:      
  38:     LOCAL olcVar1 AS OBJECT CLASS "FWFORMBROWSE" VALUE FWFORMBROWSE():New()
  39:     LOCAL olcVar2 AS OBJECT VALUE TFTPClient():New() //Generic Object
  40:           
  41:     STATIC astVar1 AS ARRAY VALUE Array(10)
  42:     STATIC astVar2 AS ARRAY
  43:      
  44:     STATIC bstVar1 AS BLOCK VALUE { || .T. }
  45:     STATIC bstVar2 AS BLOCK
  46:      
  47:     STATIC cstVar1 AS CHARACTER VALUE "cVar1"
  48:     STATIC cstVar2 AS CHARACTER
  49:      
  50:     STATIC nstVar1 AS NUMERIC VALUE 15
  51:     STATIC nstVar2 AS NUMERIC
  52:      
  53:     STATIC dstVar1 AS DATE VALUE Date()
  54:     STATIC dstVar2 AS DATE
  55:      
  56:     STATIC lstVar1 AS LOGICAL VALUE .T.
  57:     STATIC lstVar2 AS LOGICAL
  58:      
  59:     STATIC ostVar1 AS OBJECT CLASS "FWFORMBROWSE" VALUE FWFORMBROWSE():New()
  60:  
  61:     PRIVATE aptVar1 AS ARRAY VALUE Array(10)
  62:     PRIVATE aptVar2 AS ARRAY
  63:      
  64:     PRIVATE bptVar1 AS BLOCK VALUE { || .T. }
  65:     PRIVATE bptVar2 AS BLOCK
  66:      
  67:     PRIVATE cptVar1 AS CHARACTER VALUE "cVar1"
  68:     PRIVATE cptVar2 AS CHARACTER
  69:     
  70:     PRIVATE nptVar1 AS NUMERIC VALUE 15
  71:     PRIVATE nptVar2 AS NUMERIC
  72:      
  73:     PRIVATE dptVar1 AS DATE VALUE Date()
  74:     PRIVATE dptVar2 AS DATE
  75:     
  76:     PRIVATE lptVar1 AS LOGICAL VALUE .T.
  77:     PRIVATE lptVar2 AS LOGICAL
  78:      
  79:     PRIVATE optVar1 AS OBJECT CLASS "FWFORMBROWSE" VALUE FWFORMBROWSE():New()
  80:     
  81:     PUBLIC apbVar1 AS ARRAY VALUE Array(10)
  82:     PUBLIC apbVar2 AS ARRAY
  83:      
  84:     PUBLIC bpbVar1 AS BLOCK VALUE { || .T. }
  85:     PUBLIC bpbVar2 AS BLOCK
  86:      
  87:     PUBLIC cpbVar1 AS CHARACTER VALUE "cVar1"
  88:     PUBLIC cpbVar2 AS CHARACTER
  89:      
  90:     PUBLIC npbVar1 AS NUMERIC VALUE 15
  91:     PUBLIC npbVar2 AS NUMERIC
  92:      
  93:     PUBLIC dpbVar1 AS DATE VALUE Date()
  94:     PUBLIC dpbVar2 AS DATE
  95:     
  96:     PUBLIC lpbVar1 AS LOGICAL VALUE .T.
  97:     PUBLIC lpbVar2 AS LOGICAL
  98:     
  99:     PUBLIC opbVar1 AS OBJECT CLASS "FWFORMBROWSE" VALUE FWFORMBROWSE():New()
 100:     
 101:     //This command replaces the traditional := assignment
 102:     ASSIGN alcVar1 := Array(10)
 103:     ASSIGN blcVar1 := { || .T. }
 104:     ASSIGN clcVar1 := "ASSIGN cVar1"
 105:     ASSIGN nlcVar1 := 20
 106:     ASSIGN dlcVar1 := MsDate()
 107:     ASSIGN llcVar1 := .F.
 108:     ASSIGN olcVar1 := FWFORMBROWSE():New()
 109:      
 110:     ASSIGN astVar1 := Array(10)
 111:     ASSIGN bstVar1 := { || .T. }
 112:     ASSIGN cstVar1 := "ASSIGN cVar1"
 113:     ASSIGN nstVar1 := 20
 114:     ASSIGN dstVar1 := MsDate()
 115:     ASSIGN lstVar1 := .F.
 116:     ASSIGN ostVar1 := FWFORMBROWSE():New()
 117:      
 118:     ASSIGN aptVar1 := Array(10)
 119:     ASSIGN bptVar1 := { || .T. }
 120:     ASSIGN cptVar1 := "ASSIGN cVar1"
 121:     ASSIGN nptVar1 := 20
 122:     ASSIGN dptVar1 := MsDate()
 123:     ASSIGN lptVar1 := .F.
 124:     ASSIGN optVar1 := FWFORMBROWSE():New()
 125:      
 126:     ASSIGN apbVar1 := Array(10)
 127:     ASSIGN bpbVar1 := { || .T. }
 128:     ASSIGN cpbVar1 := "ASSIGN cVar1"
 129:     ASSIGN npbVar1 := 20
 130:     ASSIGN dpbVar1 := MsDate()
 131:     ASSIGN lpbVar1 := .F.
 132:     ASSIGN opbVar1 := FWFORMBROWSE():New()
 133:      
 134:     //Ao Tentar Atribuir uma valor diferente do que o esperado ocorrera uma Excecao
 135:  
 136:     ASSIGN bErrorBlock := ErrorBlock(bError)
 137:     
 138:     BEGIN SEQUENCE
 139:         ASSIGN alcVar1 := 1
 140:     END SEQUENCE
 141:  
 142:     BEGIN SEQUENCE
 143:         ASSIGN blcVar1 := .T.
 144:     END SEQUENCE
 145:  
 146:     BEGIN SEQUENCE
 147:          ASSIGN clcVar1 := 10
 148:     END SEQUENCE
 149:  
 150:     BEGIN SEQUENCE
 151:          ASSIGN nlcVar1 := "10"
 152:     END SEQUENCE
 153:  
 154:     BEGIN SEQUENCE
 155:          ASSIGN llcVar1 := 0
 156:     END SEQUENCE
 157:  
 158:     BEGIN SEQUENCE
 159:          ASSIGN olcVar1    := FWBROWSE():NEW() //Espera "FWFORMBROWSE"
 160:     END SEQUENCE
 161:  
 162:     BEGIN SEQUENCE
 163:         ASSIGN olcVar2    := TSocketClient():New() 
 164:     END SEQUENCE    
 165:  
 166:     ASSIGN bError := { |e| MsgInfo( e:Description , "Exception: " + ProcName(3) ) }
 167:  
 168:     ErrorBlock( bError )
 169:  
 170:     BEGIN SEQUENCE
 171:         ParamType()
 172:     END SEQUENCE
 173:  
 174:     ErrorBlock( bErrorBlock )
 175:  
 176: Return( NIL )
 177:  
 178: /*
 179:     Programa : StronglyTypedVar.prg
 180:     Função   : ParamType
 181:     Autor    : Marinaldo de Jesus [ http://www.blacktdn.com.br ]
 182:     Data     : 29/07/2012
 183:     Uso      : Strongly Typed Variables
 184: */
 185: Static Function ParamType(cVar,nVar,lVar,dVar,bVar,uVar,aVar,oVar1,oVar2)
 186:  
 187:     PARAMTYPE 1 VAR cVar  AS CHARACTER                   OPTIONAL DEFAULT ""
 188:     PARAMTYPE 2 VAR nVar  AS NUMERIC                     OPTIONAL DEFAULT 0
 189:     PARAMTYPE 3 VAR lVar  AS LOGICAL                     OPTIONAL DEFAULT .T.
 190:     PARAMTYPE 4 VAR dVar  AS DATE                        OPTIONAL DEFAULT Date()
 191:     PARAMTYPE 5 VAR bVar  AS BLOCK                       OPTIONAL DEFAULT { || .F. }
 192:     PARAMTYPE 6 VAR uVar  AS CHARACTER,NUMERIC           OPTIONAL DEFAULT "0"
 193:     PARAMTYPE 7 VAR aVar  AS ARRAY                       OPTIONAL DEFAULT Array(0)
 194:     PARAMTYPE 8 VAR oVar1 AS OBJECT CLASS "FWFORMBROWSE" OPTIONAL DEFAULT FWFORMBROWSE():New()
 195:     PARAMTYPE 9 VAR oVar2 AS OBJECT                      OPTIONAL DEFAULT TSocketClient():New()
 196:  
 197:     ASSIGN cVar  := cVar
 198:     ASSIGN nVar  := nVar 
 199:     ASSIGN lVar  := lVar
 200:     ASSIGN dVar  := dVar
 201:     ASSIGN bVar  := bVar
 202:     ASSIGN uVar  := uVar
 203:     ASSIGN aVar  := aVar
 204:     ASSIGN oVar1 := oVar2 //Espera "FWFORMBROWSE"
 205:     ASSIGN oVar2 := oVar1
 206:  
 207: Return( NIL )
 208:  
 209: #include "paramtypex.ch"

 

 

 

ParamTypeX.ch e o arquivo de exemplo poderão ser obtidos ao clicar aqui.



[]s
иαldσ dj

Nenhum comentário:

Postar um comentário