'Nome       : CobOrc.par
'Tipo       : LST
'Data       : 2006/05/07
'Versao     : 1.0
'Descricao  : Contrato

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   2005/??/?? --------------------------------------------------
'Versao base


'==============================================================================
#DEF - Definicao global do documento
'==============================================================================
Caracteres invalidos             [CarInv]=#
##


'==============================================================================
#DOC - Contrato
'==============================================================================
Tipo                       [DocTip]=VBS_ESP
Nome                       [DocNom]=CobOrc,Orcamento

'formato
Impressora                 [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Funcao VBS                  [FxVbs]=DocCri
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=
Listar fim                  [FxFIM]=

Matriz auxiliar            [DocMat]=CobOrc.doc

'parametros especificos
Grupo de documentos        [DocEsp]=DocGrp=CON
Saida - Directorio         [DocEsp]=SaiDir=[EMP_EXT]\dWord\Cob
Saida - Nome               [DocEsp]=SaiNom=[NUM:6]_[SER]_Orc.doc
##


'==============================================================================
#DOC - Contrato
'==============================================================================
Tipo                       [DocTip]=VBS_ESP
Nome                       [DocNom]=CobOrc2,Orcamento 2

'formato
Impressora                 [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Funcao VBS                  [FxVbs]=DocCri
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=
Listar fim                  [FxFIM]=

Matriz auxiliar            [DocMat]=CobOrc.doc

'parametros especificos
Grupo de documentos        [DocEsp]=DocGrp=CON
Saida - Directorio         [DocEsp]=SaiDir=[EMP_EXT]\dWord\Cob
Saida - Nome               [DocEsp]=SaiNom=[SER]_[NUM:6]_Orc.doc
##


'==============================================================================
#DOC - Contrato
'==============================================================================
Tipo                       [DocTip]=VBS_ESP
Nome                       [DocNom]=CobCon3,Orcamento 3

'formato
Impressora                 [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Funcao VBS                  [FxVbs]=DocCri
Listar cabecalho            [FxCAB]=
Listar linhas               [FxLIN]=
Listar fim                  [FxFIM]=

Matriz auxiliar            [DocMat]=CobOrc.doc

'parametros especificos
Grupo de documentos        [DocEsp]=DocGrp=CON
Saida - Directorio         [DocEsp]=SaiDir=[EMP_EXT]\dWord\Cob
Saida - Nome               [DocEsp]=SaiNom=Orc[SER]_[NUM:6].doc
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
Pag      = Doc_CntPag
DataExt  = FrmVal$(Sig_DtHoje,45,0)
#


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------------->'Comentario (58)
'---------------------------------------------------->'Comentario (55)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)
Sub FxIni 'inicializacao base
cnt=0                                  'limpar contador
end sub


'------------------------------------------------------------------------------
'- Orcamento ------------------------------------------------------------------
'------------------------------------------------------------------------------
Sub OrcDocCri 'criar documento
mat$ = DocFicMat$("AUT")               'endereco do ficheiro matriz
doc$ = VBS_DocFicCri$("")              'documento a criar

res = WordPrp(0)                       'preparar WORD
res = WordOpcVis(0, 0)                 'registar opcoes de visualizacao
res = WordDocCriCop(mat$, doc$, 1)     'criar documento

call LstSisRub                         'listar rubricas

'terminar
res = WordDocGrv(doc$)                 'guardar
'res = WordVer(0)                       'mostrar
res = WordVer(1)                       'mostrar maximizado
res = WordLib(0)                       'terminar acesso a WORD
end sub


Sub LstSisRub 'listar rubricas
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------->'Comentario (52)
res = WordDocMvp("F")                              'mover posicao
res = WordInsPag(1)                                'criar nova pagina

res = WordInsLin(1)                                'inserir linhas
nli = 2                                            'numero de linhas
nco = 3                                            'numero de colunas
tit$="Orçamento"                                   'titulo
res = WordTabCri(tit$, nli, nco)                   'criar tabela
res = WordTabColDx(1, 1.0)                         'largura da coluna
res = WordTabColDx(2, 4.5)                         'largura da coluna
res = WordTabColDx(3, 1.0)                         'largura da coluna
res = WordTabCelAli(li, 3, ">")                    'alinhamento

res = WordTabTit(1, tit$)                          'titulo
res = WordTabCelFon(1, 1, ",20,")                  'fonte para titulo

num = CobLstRubPrp("")                             'numero de rubricas

li = 1                                             'linha a usar
for i = 1 to num
exi = CobLstRubPrpIdx(i)                           'preparar rubrica
if exi = 1 then                                    'existe ?
   fon$ = ",,B+"                                   'fonte
   
   niv = Cob_OrcRub_Niv                            'nivel da rubrica
   rub$= Cob_OrcRub_Rub$                           'rubrica
   ide$= CobLstRubIde$(i)                          'identificacao da rubrica
   des$= Cob_OrcRub_Des$                           'descricao
   vto = Cob_OrcRub_CliVto                         'valor total
   vtx$= FrmNum$(12.2, vto)                        'formatar valor

   res = WordTabInsLin(1)                          'juntar linha
   li = li + 1                                     'contar linha

   for co = 1 to nco
   res = WordTabCelFon(li, co, fon$)               'fonte
   next
   res = WordTabCelAli(li, 3, ">")                 'alinhamento

   res = WordTabCelTxt(li, 1, rub$)                'listar rubrica
   res = WordTabCelTxt(li, 2, ide$)                'listar identificacao
   res = WordTabCelTxt(li, 3, vtx$)                'listar valor

   'descricao
   res = WordTabInsLin(1)                          'juntar linha
   li = li + 1                                     'contar linha

   res = WordTabCelLinMrg(li, 2, nco)              'merge de colunas 
   res = WordTabCelTxt(li, 2, des$)                'listar descricao
end if
next


'total
res = WordTabInsLin(1)                             'juntar linha
li = li + 2                                        'linha a usar
for co = 1 to nco
res = WordTabCelFon(li, co, fon$)                  'fonte
next

fon$ = ",12,B+I+"                                  'fonte
exi = CobLstRubPrpIdx(0)                           'preparar rubrica (totais)

vto = Cob_OrcRub_CliVto                            'valor do orcamento
vtx$= FrmNum$(12.2, vto)                           'formatar  valor

res = WordTabCelTxt(li, 1, "")                     'limpar celula
res = WordTabCelTxt(li, 2, "Total do Orçamento")   'listar identificacao
res = WordTabCelTxt(li, 3, vtx$)                   'listar total

res = WordInsLin(1)                                'inserir linha
end sub

##


'==============================================================================
#VBS - VbScript
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'---------------------------------------------->'Comentario (49)
'------------------------------------->'Comentario (40)


'------------------------------------------------------------------------------
'FXDOC - Funcoes para documento
'------------------------------------------------------------------------------
Sub FxIni 'inicializar
msgbox "FxIni >?<"
end sub


Sub FxFim 'terminar
'msgbox "FxFim >?<"
end sub


Sub DocCri 'criar documento
with CobDoc
.VbsDocFic fic                         'ficheiro do documento
end with

'msgbox "DocCri >" & fic & "<"

with FxPre
.FxDoc "OrcDocCri"                     'criar documento
end with
end sub


Function DocFicCri(arg) 'ficheiro para documento a criar
'arg        - argumento (nao usado)

with CobDoc
.VbsDocFic fic                         'ficheiro do documento
end with

DocFicCri = fic                        'devolver resultado
end function

##


