'Nome       : OrcRub.std
'Tipo       : LST WIN
'Data       : 2000/09/21
'Versao     : 1.0
'Descricao  : Listagem de Acumulados


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0  2000/09/21 ---------------------------------------------------
'Versao base


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
Zoom para preview             [PrvZoom]=1
Opcoes para impressora WIN   [PrWinOpc]=[ORI=P]
##


'==============================================================================
#DOC - Configuracao do documento (Modo TEXTO/DOS)
'==============================================================================
Tipo                       [DocTip]=OrcAcmPer
Nome                       [DocNom]=OrcAcmPer,Por Periodo
Vias                       [DocVia]=
Personalizacao             [DocPer]=

'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]=OrcAcmPer_Cab
Listar linhas               [FxLIN]=OrcAcmPer_Lin
Listar fim                  [FxFIM]=OrcAcmPer_Fim
##


'==============================================================================
#DOC - Configuracao do documento (Modo TEXTO/DOS)
'==============================================================================
Tipo                       [DocTip]=OrcAcmMes
Nome                       [DocNom]=OrcAcmMes,Mensais
Vias                       [DocVia]=
Personalizacao             [DocPer]=

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=OrcAcmMes_Cab
Listar linhas               [FxLIN]=OrcAcmMes_Lin
Listar fim                  [FxFIM]=OrcAcmMes_Fim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
'LstMemTxt(51)	   - codigo da rubrica
'LstMemTxt(52)	   - nome da rubrica
'LstMemTxt(53)	   - codigo da rubrica formatado
'LstMemTxt(54)     - desvio em percentagem
'LstMemTxt(55)	   - tipo de acumulados
'LstMemTxt(56)	   - periodo de acumulados
'LstMemTxt(57)	   - tipo de acumulados base
'LstMemTxt(58)	   - tipo de acumulados de comparacao
'LstMemTxt(59)	   - texto juntando tipo de acumulados base e comparacao
'LstMemNum(51)	   - valor base
'LstMemNum(52)	   - valor de comparacao
'LstMemNum(53)	   - total anual para a rubrica
'LstMemNum(54)     - total periodico para a rubrica
'LstMemNum(55:66)  - total periodico para a rubrica em cada mes do ano(Janeiro:Dezembro)

Tipo     =MemTxt$(1)
Pag      =Doc_CntPag
DataExt  =FrmVal$(Sig_DtHoje,45,0)

'variaveis a listar
Cod      =Orc_Mst_Cod$                
Nom      =Orc_Mst_Nome$
CodF     =left$(OrcFrmCod$(Orc_Mst_Cod$),15)
CodF2    =MemTxt$(53)                
'TotPer   =FrmVal$(OrcTotAn(LstMemTxt(61), FrmDt$("A", Sig_DtHoje), Orc_Mst_Cod$, ),21,11.2)
TipAcm   =MemTxt$(55)
Per      =MemTxt$(56)

Vlr1     =FrmVal$(MemNum(51),21,10.2)
Vlr2     =FrmVal$(MemNum(52),21,10.2)
Desv     =MemTxt$(54)

TotAno   =FrmVal$(MemNum(53),21,10.2)
TotPer   =FrmVal$(MemNum(54),21,10.2)

Jan      =FrmVal$(MemNum(55),21,10.2)
Fev      =FrmVal$(MemNum(56),21,10.2)
Mar      =FrmVal$(MemNum(57),21,10.2)
Abr      =FrmVal$(MemNum(58),21,10.2)
Mai      =FrmVal$(MemNum(59),21,10.2)
Jun      =FrmVal$(MemNum(60),21,10.2)
Jul      =FrmVal$(MemNum(61),21,10.2)
Ago      =FrmVal$(MemNum(62),21,10.2)
Set      =FrmVal$(MemNum(63),21,10.2)
Out      =FrmVal$(MemNum(64),21,10.2)
Nov      =FrmVal$(MemNum(65),21,10.2)
Dez      =FrmVal$(MemNum(66),21,10.2)

Tco      =FrmVal$(Total(CodF),21,5.0)
##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'-----------------------------------------------------------------------------
' Funcoes para inicializacao
'-----------------------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
end sub


SUB FxFim 'funcao de finalizacao
end sub


'-----------------------------------------------------------------------------
' Listagem em modo TEXTO/DOS
'-----------------------------------------------------------------------------
SUB OrcAcmPer_Cab
FxDiv LstIde,16CPI,0
print TxTit$("TT=10CPI, LD, PT=40C, TL=16CPI","Listagem de Acumulados por Periodo")
?Tipo de Acumulados : @TipAcm                              #
?Período            : @Per                                 #
?Data               : @DataExt                                   Folha No : @Pag#
?================================================================================
?Codigo           Nome                                 Total
?================================================================================
end sub


SUB OrcAcmPer_Lin
?@CodF            @Nom                           @TotPer                        #
end sub


SUB OrcAcmPer_Fim
?================================================================================
?@Tco  rubricas                                                                  #
?================================================================================
FxDiv LstPer,SP
end sub


SUB OrcAcmMes_Cab
FxDiv LstIde,16CPI,0
print TxTit$("TT=10CPI, LD, PT=40C, TL=16CPI","Listagem de Acumulados Mensais")
?Tipo de Acumulados : @TipAcm                              #
?Data               : @DataExt                                                 Folha No : @Pag#
print string$(220,"=")
?  Codigo          Nome                              Janeiro    Fevereiro        Março        Abril         Maio        Junho        Julho       Agosto     Setembro      Outubro     Novembro     Dezembro        Total 
print string$(220,"=")
end sub


SUB OrcAcmMes_Lin
?  @CodF           @Nom                           @Jan         @Fev         @Mar         @Abr         @Mai         @Jun         @Jul         @Ago         @Set         @Out         @Nov         @Dez         @TotAno     #
end sub


SUB OrcAcmMes_Fim
print string$(220,"=")
?@Tco  rubricas                                                                                                                                                                                                          #
print string$(220,"=")
FxDiv LstPer,SP
end sub
