'Nome       : CasCri.Emp
'Tipo       : PAR
'Data       : 2000/02/14
'Versao     : 1.0a
'Descricao  : Actualizar empresa para Controlo de assistencia

Versao de Actualizacao  [ActVer]=
Tipo de Atualizacao     [ActTip]=MOD
Modulo destinado        [ActCmo]=CAS
Descricao               [ActInf]=Criacao de Diarios+
                                +Opcoes de especificos para Modulo ENC


'== Sequencia de Actualizacao ==

'definir directorios origem/destino
Vardef, DirDst,    FIC, "[SIG_DIR.EMP],[EMPDST]"
Vardef, DirDstEmp, FIC, "[DIRDST],Cemp"
Vardef, DirDstEnc, FIC, "[DIRDST],Enc"
Vardef, DirDstCas, FIC, "[DIRDST],Cas"


DbDes, "[EmpDstLocBas]\Cemp\Cemp.Mdb"
TbDes, EmpTdo, Tdo

'diarios a criar
RgCri, 0, 0, 0, 0,CA, Contractos de Assistencia  ,CoAss. ,0,CA.[ANO],[FRM=46][SER=[ANO]][AUT=S][NUM=?][MAX=0]
RgCri, 0, 0, 0, 0,F2, Facturas (CAS)             ,Fac.,   0,F2.[ANO],[FRM=46][SER=[ANO]][AUT=S][NUM=?][MAX=0]
RgCri, 0, 0, 0, 0,PI, Pedido de intervenção      ,Intrv., 0,PI.[ANO],[FRM=46][SER=[ANO]][AUT=S][NUM=?][MAX=0]


'copiar opcoes especificas
FicCop,  "[DirDstCas]\Esp\EncOpc.Par"      ,"[DirDstEmp]\EncOpc.Par"

'eliminar opcoes especificas do directorio CAS para evitar confusao
DirEli,  "[DirDstCas]\Esp"