'Nome       : ImoRes.std
'Tipo       : LST
'Data       : 2014/05/07
'Versao     : 1.0
'Descricao  : Resumo do imobilizado

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   ____/__/__ --------------------------------------------------
'Versao base



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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
Especifico                 [OpcEsp]=
##


'==============================================================================
#DOC_ - Documento para contabilidade
'==============================================================================
Tipo                       [DocTip]=ImoRes
Nome                       [DocNom]=ImoRes,Resumo do Imobilizado

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=XXX=Xyz

'funcoes de listagem
Listar cabecalho            [FxCAB]=Doc_Cab
Listar linhas               [FxLIN]=Doc_Lin
Listar fim                  [FxFIM]=Doc_Fim
##



'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=ImoRes
Nome                       [DocNom]=XlsImoRes,Resumo do Imobilizado (XLS)

'formato
Saida/Impressora           [DocPrt]=NULA
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=78
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Base para documento         [FxDOC]=XlsImoRes
Listar cabecalho            [FxCAB]=XlsImoRes_Cab
Listar linhas               [FxLIN]=XlsImoRes_Lin
Listar fim                  [FxFIM]=XlsImoRes_Fim

Matriz auxiliar            [DocMat]=ImoRes.xls
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
Tipo     = MemTxt$(1)
Pag      = Doc_CntPag
Tit080   = TxTit$("TT=10CPI, LD, PT=40C",Memtxt$(1))
Tit132   = TxTit$("TT=16CPI, LD, PT=66C",Memtxt$(1))
DataExt  = FrmVal$(Sig_DtHoje,45,0)

'- dados a listar -------------------------------------------------------------
vaEntCod = entCod$                              'entidade - codigo
vaEntCov = entCov$                              'entidade - codigo formatado
vaEntIde = entIde$                              'entidade - identificacao

vaObs    = usaObs$                              'observacaoes

'conta
vaCtCod  = CTA_MST_Ct$                          'codigo da conta
vaCtNom  = CTA_MST_Nome$                        'nome


'resumo
vaBemNum = FrmNum$((06.0,vaBemNum)              'bens - numero
vaBemVpa = FrmNum$((12.2,vaBemVpa)              'bens - valor amortizavel

vaAciVsi = FrmNum$((12.2,vuAciVsi)              'activo imobilizado - saldo inicial
vaAciRea = FrmNum$((12.2,vuAciRea)              'activo imobilizado - reavaliacao
vaAciAum = FrmNum$((12.2,vuAciAum)              'activo imobilizado - aumentos
vaAciAli = FrmNum$((12.2,vuAciAli)              'activo imobilizado - alienacoes
vaAciAba = FrmNum$((12.2,vuAciAba)              'activo imobilizado - abates
vaAciVsf = FrmNum$((12.2,vuAciVsf)              'activo imobilizado - saldo final

vaAmpVsi = FrmNum$((12.2,vuAmpVsi)              'amortizacoes/provisoes - saldo inicial
vaAmpRef = FrmNum$((12.2,vuAmpRef)              'amortizacoes/provisoes - reforco
vaAmpReg = FrmNum$((12.2,vuAmpReg)              'amortizacoes/provisoes - regularizacoes
vaAmpVsf = FrmNum$((12.2,vuAmpVsf)              'amortizacoes/provisoes - saldo final


'- diversos -------------------------------------------------------------------
'contagem
toNrg    = FrmNum$(9.0,TotCnt("vaCtCod",0))     'numero de registos - total
s1Nrg    = FrmNum$(9.0,TotCnt("vaCtCod",1))     'numero de registos - subtotal 1
s2Nrg    = FrmNum$(9.0,TotCnt("vaCtCod",2))     'numero de registos - subtotal 2

'resumo
toBemNum = FrmNum$(6.3,Total("vaBemNum",0))     'bens/numero - total
s1BemNum = FrmNum$(6.3,Total("vaBemNum",1))     'bens/numero - subtotal 1

toBemVpa = FrmNum$(12.2,Total("vaBemVpa",0))    'bens/valor amortizavel - total
s1BemVpa = FrmNum$(12.2,Total("vaBemVpa",1))    'bens/valor amortizavel - subtotal 1


'totais
toAciVsi = FrmNum$((12.2,Total("vaAciVsi",0))   'activo imobilizado - saldo inicial
toAciRea = FrmNum$((12.2,Total("vaAciRea",0))   'activo imobilizado - reavaliacao
toAciAum = FrmNum$((12.2,Total("vaAciAum",0))   'activo imobilizado - aumentos
toAciAli = FrmNum$((12.2,Total("vaAciAli",0))   'activo imobilizado - alienacoes
toAciAba = FrmNum$((12.2,Total("vaAciAba",0))   'activo imobilizado - abates
toAciVsf = FrmNum$((12.2,Total("vaAciVsf",0))   'activo imobilizado - saldo final

toAmpVsi = FrmNum$((12.2,Total("vaAmpVsi",0))   'amortizacoes/provisoes - saldo inicial
toAmpRef = FrmNum$((12.2,Total("vaAmpRef",0))   'amortizacoes/provisoes - reforco
toAmpReg = FrmNum$((12.2,Total("vaAmpReg",0))   'amortizacoes/provisoes - regularizacoes
toAmpVsf = FrmNum$((12.2,Total("vaAmpVsf",0))   'amortizacoes/provisoes - saldo final

##


'==============================================================================
#INC - Variaveis comuns
'==============================================================================
Variaveis  comuns                 =[SIG_Dir.Div],LsComVar.std
##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'- +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
'- (13) --->'Comentario
'- (25) --------------->'Comentario
'- (28) ------------------>'Comentario
'- (40) ------------------------------>'Comentario
'- (43) --------------------------------->'Comentario
'- (46) ------------------------------------>'Comentario
'- (49) --------------------------------------->'Comentario
'- (52) ------------------------------------------>'Comentario
'- (55) --------------------------------------------->'Comentario
'- (58) ------------------------------------------------>'Comentario
'- (61) --------------------------------------------------->'Comentario
'- (64) ------------------------------------------------------>'Comentario
'- (67) --------------------------------------------------------->'Comentario
'- (70) ------------------------------------------------------------>'Comentario


'-----------------------------------------------------------------------------
' Funcoes para inicializacao
'-----------------------------------------------------------------------------
SUB FxIni 'inicializacao base
cnt=0                                  'limpar contador
Call SigLstIni
end sub


SUB FxFim 'funcao de finalizacao
'nada a executar
end sub


Sub Lst_AJT 'ajuste
'nada a excutar
end sub



'=============================================================================
'- Comum ---------------------------------------------------------------------
'=============================================================================
'-----------------------------------------------------------------------------
'- [VAR] - Variaveis ---------------------------------------------------------
'-----------------------------------------------------------------------------
Sub Com_Var_Con 'consultar variaveis
vuCtuCod$  = VarCom$("CT_Cod")                     'conta - codigo
vuCtuNom$  = VarCom$("CT_Nom")                     'conta - nome
'- (52) ------------------------------------------>'Comentario

'valores anteriores
vuAntBemNum = VarCom("ANT_BemNum")                 'bens - numero
vuAntBemVpa = VarCom("ANT_BemVpa")                 'bens - valor amortizavel
vuAntBemLiq = VarCom("ANT_BemLiq")                 'bens - valor liquido

vuAntAmoNum = VarCom("ANT_AmoNum")                 'amortizacao - numero
vuAntAmoVal = VarCom("ANT_AmoVal")                 'amortizacao - valor

vuAntAqiNum = VarCom("ANT_AqiNum")                 'aquisicao - numero
vuAntAqiVal = VarCom("ANT_AqiVal")                 'aquisicao - valor

vuAntReaNum = VarCom("ANT_ReaNum")                 'reavaliacao - numero
vuAntReaVal = VarCom("ANT_ReaVal")                 'reavaliacao - valor

vuAntRevNum = VarCom("ANT_RevNum")                 'revalorizacao - numero
vuAntRevVal = VarCom("ANT_RevVal")                 'revalorizacao - valor

vuAntAliNum = VarCom("ANT_AliNum")                 'alienado - numero
vuAntAliVal = VarCom("ANT_AliVal")                 'alienado - valor

vuAntAbaNum = VarCom("ANT_AbaNum")                 'abatido - numero
vuAntAbaVal = VarCom("ANT_AbaVal")                 'abatido - valor

'valores do periodo
vuPerBemNum = VarCom("PER_BemNum")                 'bens - numero
vuPerBemVpa = VarCom("PER_BemVpa")                 'bens - valor amortizavel
vuPerBemLiq = VarCom("PER_BemLiq")                 'bens - valor liquido

vuPerAmoNum = VarCom("PER_AmoNum")                 'amortizacao - numero
vuPerAmoVal = VarCom("PER_AmoVal")                 'amortizacao - valor

vuPerAqiNum = VarCom("PER_AqiNum")                 'aquisicao - numero
vuPerAqiVal = VarCom("PER_AqiVal")                 'aquisicao - valor

vuPerReaNum = VarCom("PER_ReaNum")                 'reavaliacao - numero
vuPerReaVal = VarCom("PER_ReaVal")                 'reavaliacao - valor

vuPerRevNum = VarCom("PER_RevNum")                 'revalorizacao - numero
vuPerRevVal = VarCom("PER_RevVal")                 'revalorizacao - valor

vuPerAliNum = VarCom("PER_AliNum")                 'alienado - numero
vuPerAliVal = VarCom("PER_AliVal")                 'alienado - valor

vuPerAbaNum = VarCom("PER_AbaNum")                 'abatido - numero
vuPerAbaVal = VarCom("PER_AbaVal")                 'abatido - valor

'valores acumulados
vuAcmBemNum = VarCom("ACM_BemNum")                 'bens - numero
vuAcmBemVpa = VarCom("ACM_BemVpa")                 'bens - valor amortizavel
vuAcmBemLiq = VarCom("ACM_BemLiq")                 'bens - valor liquido

vuAcmAmoNum = VarCom("ACM_AmoNum")                 'amortizacao - numero
vuAcmAmoVal = VarCom("ACM_AmoVal")                 'amortizacao - valor

vuAcmAqiNum = VarCom("ACM_AqiNum")                 'aquisicao - numero
vuAcmAqiVal = VarCom("ACM_AqiVal")                 'aquisicao - valor

vuAcmReaNum = VarCom("ACM_ReaNum")                 'reavaliacao - numero
vuAcmReaVal = VarCom("ACM_ReaVal")                 'reavaliacao - valor

vuAcmRevNum = VarCom("ACM_RevNum")                 'revalorizacao - numero
vuAcmRevVal = VarCom("ACM_RevVal")                 'revalorizacao - valor

vuAcmAliNum = VarCom("ACM_AliNum")                 'alienado - numero
vuAcmAliVal = VarCom("ACM_AliVal")                 'alienado - valor

vuAcmAbaNum = VarCom("ACM_AbaNum")                 'abatido - numero
vuAcmAbaVal = VarCom("ACM_AbaVal")                 'abatido - valor
end sub


'------------------------------------------------------------------------------
'- [XLS] - Listar para EXCEL --------------------------------------------------
'------------------------------------------------------------------------------
Sub Com_Xls_DocIni 'inicializar documento
xlsOpcNfi$ = "RND:" + comXlsFic$                   'nome do ficheiro a gerar
xlsOpcWks$ = ""                                    'nome da woorksheet

'msgbox "", "VOM/XLS", xlsOpcNfi$

call XlsComDoc_IniMat                              'inicializar documento por matriz

'preparacao especifica
res = XlsWks("Valores")                            'activar worksheet

'preparar cabecalho
empNum$ = Emp_Inf_Cod$                             'numero da empresa
empNom$ = Emp_Inf_Nome$                            'nome da empresa
lstTit$ = comCabTit$                               'titulo da listagem
lstTip$ = MemTxt$(2)                               'tipo da listagem
lstDt$  = FrmDt$("EXT", Sig_DtHoje)                'data para listagem

res = XlsIdeLst("Emp_Num" , empNum$)               'numero da empresa
res = XlsIdeLst("Emp_Nome", empNom$)               'nome da empresa
res = XlsIdeLst("Lst_Tit" , lstTit$)               'titulo da listagem
res = XlsIdeLst("Lst_Tipo", lstTip$)               'tipo da listagem
res = XlsIdeLst("Lst_Data", lstDt$)                'data

call XlsComLin_Ini                                 'iniciar linhas

'definicao das colunas
coNrg    = 2                                       'numero de registos - total
coNrs    = 3                                       'numero de registos - subtotal

coCod    = 2                                       'codigo
coNom    = 3                                       'nome

coCtuCod = coCod                                   'conta - codigo
coCtuNom = coNom                                   'conta - nome

coBemNum = 4                                       'bens - numero

coAciVsi = 5                                       'activo imobilizado - saldo inicial
coAciRea = 6                                       'activo imobilizado - reavaliacao
coAciAum = 7                                       'activo imobilizado - aumentos
coAciAli = 8                                       'activo imobilizado - alienacoes
coAciAba = 9                                       'activo imobilizado - abates
coAciVsf = 10                                      'activo imobilizado - saldo final

coAmpVsi = 11                                      'amortizacoes/provisoes - saldo inicial
coAmpRef = 12                                      'amortizacoes/provisoes - reforco
coAmpReg = 13                                      'amortizacoes/provisoes - regularizacoes
coAmpVsf = 14                                      'amortizacoes/provisoes - saldo final
end sub


Sub Com_Xls_DocFim 'terminar documento
'res = XlsWksAct("A", 1)                            'activar worksheet
call XlsComDoc_Fim                                 'terminar/mostrar documento
end sub


Sub Com_Xls_IncLin 'incrementar linha
'call XlsComLin_Inc                                 'incrementar linha
call XlsComLin_IncRep                              'incrementar linha + repor formato normal

zon$ = XlsZon$(liUsa, coCod,liUsa, coNom)          'zona
'zon$= XlsZonNum$("L", liUsa)                      'zona da linha
res = XlsAli(zon$, "<")                            'alinhamento
end sub


Sub Com_Xls_LinSep 'linha de separacao
call XlsVnd_IncLin                                 'incrementar linha
end sub


Sub Com_Xls_LstLinIde 'listar linha - identificacao (codigo e nome)
res = XlsLst(liUsa, coCod, vaCod$)                 'codigo
res = XlsLst(liUsa, coNom, vaNom$)                 'nome
end sub


Sub Com_Xls_LstLinCtu 'listar linha - conta
res = XlsLst(liUsa, coCtuCod, ctuCod$)             'codigo
res = XlsLst(liUsa, coCtuNom, ctuNom$)             'nome
end sub


Sub Com_Xls_LstLinRes 'listar linha - resumo
'vuBemNum = vuPerBemNum                             'bens/numero
'vuBemVpa = vuPerBemVpa                             'bens/valor amortizavel

vuBemNum = vuAcmBemNum                             'bens/numero
vuBemVpa = vuAcmBemVpa                             'bens/valor amortizavel

vuAciVsi = vuAntAqiVal                             'activo imobilizado - saldo inicial
vuAciRea = vuPerReaVal                             'activo imobilizado - reavaliacao
vuAciAum = vuPerAqiVal                             'activo imobilizado - aumentos
vuAciAli = vuPerAliVal                             'activo imobilizado - alienacoes
vuAciAba = vuPerAbaVal                             'activo imobilizado - abates
vuAciVsf = vuAciVsi + vuAciRea + vuAciAum - vuAciAli - vuAciAba      'activo imobilizado - saldo final
'- (70) ------------------------------------------------------------>'Comentario

vuAmpVsi = vuAntAmoVal                             'amortizacoes/provisoes - saldo inicial
vuAmpRef = vuPerAmoVal                             'amortizacoes/provisoes - reforco
vuAmpReg = vuPerAliVal + vuPerAbaVal               'amortizacoes/provisoes - regularizacoes
vuAmpVsf = vuAmpVsi + vuAmpRef - vuAmpReg                            'amortizacoes/provisoes - saldo final
'- (70) ------------------------------------------------------------>'Comentario

res = XlsLst(liUsa, coBemNum, vuBemNum)            'bens/numero
'res = XlsLst(liUsa, coBemVpa, vuBemVpa)            'bens/valor amortizavel

res = XlsLst(liUsa, coAciVsi, vuAciVsi)            'activo imobilizado - saldo inicial
res = XlsLst(liUsa, coAciRea, vuAciRea)            'activo imobilizado - reavaliacao
res = XlsLst(liUsa, coAciAum, vuAciAum)            'activo imobilizado - aumentos
res = XlsLst(liUsa, coAciAli, vuAciAli)            'activo imobilizado - alienacoes
res = XlsLst(liUsa, coAciAba, vuAciAba)            'activo imobilizado - abates
res = XlsLst(liUsa, coAciVsf, vuAciVsf)            'activo imobilizado - saldo final

res = XlsLst(liUsa, coAmpVsi, vuAmpVsi)            'amortizacoes/provisoes - saldo inicial
res = XlsLst(liUsa, coAmpRef, vuAmpRef)            'amortizacoes/provisoes - reforco
res = XlsLst(liUsa, coAmpReg, vuAmpReg)            'amortizacoes/provisoes - regularizacoes
res = XlsLst(liUsa, coAmpVsf, vuAmpVsf)            'amortizacoes/provisoes - saldo final

'- (52) ------------------------------------------>'Comentario

res = AcmExe("vaBemNum", vuBemNum)                 'acumular - bens/numero
res = AcmExe("vaBemVpa", vuBemVpa)                 'acumular - bens/valor amortizavel

res = AcmExe("vaAciVsi", vuAciVsi)                 'activo imobilizado - saldo inicial
res = AcmExe("vaAciRea", vuAciRea)                 'activo imobilizado - reavaliacao
res = AcmExe("vaAciAum", vuAciAum)                 'activo imobilizado - aumentos
res = AcmExe("vaAciAli", vuAciAli)                 'activo imobilizado - alienacoes
res = AcmExe("vaAciAba", vuAciAba)                 'activo imobilizado - abates
res = AcmExe("vaAciVsf", vuAciVsf)                 'activo imobilizado - saldo final

res = AcmExe("vaAmpVsi", vuAmpVsi)                 'amortizacoes/provisoes - saldo inicial
res = AcmExe("vaAmpRef", vuAmpRef)                 'amortizacoes/provisoes - reforco
res = AcmExe("vaAmpReg", vuAmpReg)                 'amortizacoes/provisoes - regularizacoes
res = AcmExe("vaAmpVsf", vuAmpVsf)                 'amortizacoes/provisoes - saldo final
end sub


Sub Com_Xls_LstTot 'listar totais
call XlsComLin_Fim                                 'fim de linhas

vNrg    = TotCnt("vaCtuCod", 0)                    'numero de registos
vBemNum = Total("vaBemNum", 0)                     'bens/numero
vBemVpa = Total("vaBemVpa", 0)                     'bens/valor amortizavel

vAciVsi = Total("vaAciVsi", 0)                     'activo imobilizado - saldo inicial
vAciRea = Total("vaAciRea", 0)                     'activo imobilizado - reavaliacao
vAciAum = Total("vaAciAum", 0)                     'activo imobilizado - aumentos
vAciAli = Total("vaAciAli", 0)                     'activo imobilizado - alienacoes
vAciAba = Total("vaAciAba", 0)                     'activo imobilizado - abates
vAciVsf = Total("vaAciVsf", 0)                     'activo imobilizado - saldo final

vAmpVsi = Total("vaAmpVsi", 0)                     'amortizacoes/provisoes - saldo inicial
vAmpRef = Total("vaAmpRef", 0)                     'amortizacoes/provisoes - reforco
vAmpReg = Total("vaAmpReg", 0)                     'amortizacoes/provisoes - regularizacoes
vAmpVsf = Total("vaAmpVsf", 0)                     'amortizacoes/provisoes - saldo final


'listar
liUsa = linFim                                     'linha a usar

call XlsComLin_ActBI                               'activar linha em BOLD+ITALICO
res = XlsLst(liUsa, coNrg, vNrg)                   'numero de registos
res = XlsLst(liUsa, coBemNum, vBemNum)             'total - bens/numero
'res = XlsLst(liUsa, coBemVpa, vBemVpa)            'total - bens/valor amortizavel

res = XlsLst(liUsa, coAciVsi, vAciVsi)             'activo imobilizado - saldo inicial
res = XlsLst(liUsa, coAciRea, vAciRea)             'activo imobilizado - reavaliacao
res = XlsLst(liUsa, coAciAum, vAciAum)             'activo imobilizado - aumentos
res = XlsLst(liUsa, coAciAli, vAciAli)             'activo imobilizado - alienacoes
res = XlsLst(liUsa, coAciAba, vAciAba)             'activo imobilizado - abates
res = XlsLst(liUsa, coAciVsf, vAciVsf)             'activo imobilizado - saldo final

res = XlsLst(liUsa, coAmpVsi, vAmpVsi)             'amortizacoes/provisoes - saldo inicial
res = XlsLst(liUsa, coAmpRef, vAmpRef)             'amortizacoes/provisoes - reforco
res = XlsLst(liUsa, coAmpReg, vAmpReg)             'amortizacoes/provisoes - regularizacoes
res = XlsLst(liUsa, coAmpVsf, vAmpVsf)             'amortizacoes/provisoes - saldo final
end sub


'==============================================================================
'- [TXT] - Listar em modo texto -----------------------------------------------
'==============================================================================
SUB Doc_Cab
FxDiv LstIde,16CPI,0
print TxTit$("TT=10CPI, LD, PT=40C, TL=10CPI","Contabilização")
?Data : @DataExt                                                 Folha No : @Pag#
?+------------------------------------------------------------------------------+#
?|    Conta    |         Descrição            |     Debito     |     Credito    |
?+------------------------------------------------------------------------------+#
'| 123456789.12|123456789.123456789.123456789.|1,123,456,789.00|1,123,456,789.00|
end sub


SUB Doc_Lin
?| @CtCod      |@CtIde                        |@CtDeb          |@CtCre          |
end sub


SUB Doc_FimAjt
?+==============================================================================+#
FxDiv LstPer,SP
end sub


SUB Doc_Fim
?+==============================================================================+#
?|                  Totais                    |@totDeb         |@totCre         |
?+==============================================================================+#
FxDiv LstPer,SP
'Print PrtCmd("[SP]");
end sub


SUB Doc_LinCcuIde 'identificar centro de custo
?|             |                              |                |                |
?|             |Centro de custo: @CcuNum      |                |                |
totCcu=0
end sub


SUB Doc_LinCcuVal 'valor para centro de custo
?| @CtCod      |@CtIde                        |@CcuVal         |                |
totCcu=totCcu+MemNum(72)
end sub


SUB Doc_LinCcuTot 'total do centro de custo
?|             |     Total do Centro de custo |@CcuTot         |                |
?|             |                              |                |                |
end sub



'==============================================================================
'- [XLS] - Listar para XLS ----------------------------------------------------
'==============================================================================
'------------------------------------------------------------------------------
'- [XLS] - Resumo de imobilizado ----------------------------------------------
'------------------------------------------------------------------------------
Sub XlsImoRes_DocIni 'inicializar documento
comXlsFic$ = "ImoRes.xls"                          'nome do ficheiro
comCabTit$ = "Resumo de Imobilizado"               'titulo

call Com_Xls_DocIni                                'inicializar documento

'msgbox "", "XLS", "DocIni"
end sub


Sub XlsImoRes_DocFim 'terminar documento
'msgbox "", "XLS", "DocFim"
call Com_Xls_DocFim                                'terminar documento
end sub


Sub XlsImoRes_Lin 'linha
call Com_Var_Con                                   'consultar variaveis
call Com_Xls_IncLin                                'incrementar linha	

vaCod$  = vuCtuCod$                                'codigo
vaNom$  = vuCtuNom$                                'nome

'listar
call Com_Xls_LstLinIde                             'listar identificacao (codigo e nome)
call Com_Xls_LstLinRes                             'listar resumo
end sub


Sub XlsImoRes_Fim 'terminar
call Com_Xls_LstTot                                'listar totais
end sub

##


'==============================================================================
#INC - Funcoes comuns
'==============================================================================
Funcoes comuns                         =[SIG_Dir.Div],LsComPgm.std
Funcoes comuns XLS                     =[SIG_LST_DIR.XLS],XlsCom_Pgm.inc
##
