'Nome       : OrcAcmM.std
'Tipo       : LST WIN
'Data       : 2008/09/02
'Versao     : 2.0
'Descricao  : Listagem de Acumulados Mensais

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 2.0  2008/09/02 ---------------------------------------------------
'Listagem grafica

'- 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=L]
##

'==============================================================================
#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
##


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

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=24
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]=OrcAcmMesG_Cab
Listar linhas               [FxLIN]=OrcAcmMesG_Lin
Listar fim                  [FxFIM]=OrcAcmMesG_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$
NomG     =left$(Orc_Mst_Nome$,30)
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)
##


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


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'-----------------------------------------------------------------------------
' Funcoes para inicializacao
'-----------------------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
PrWIN AJT_F, 56.7,  56.7                                    'ajuste para milimetros
PrWIN AJT_D,  10.0,   10.0                                  'deslocamento de ajuste 
PrWIN ET,  2                                                'espessura de traco 
PrWIN ORI,  "L"                                             'landscape 

Call SigLstIni
end sub


SUB FxFim 'funcao de finalizacao
end sub


'====================================================================================
'- Modo Texto ======================================================================
'====================================================================================
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


'====================================================================================
'- Modo Grafico =====================================================================
'====================================================================================
Sub OrcAcmMesG_Cab 'cabecalho
Titulo$="Listagem de Acumulados Mensais"

PrWIN COR_F, 15                                    'cor de fundo
PrWIN AJT_B ,  Margem, 11                          'posicao base
PrWin COR_T ,  CorTit
PrWIN FON   ,       9                              'activar fonte
PrWIN TX_N  ,       0,  0,SigLstInf$("EMPIDE")     'nome da empresa
PrWIN FON   ,      12,  1                          'activar fonte
PrWin FON, "BOLD+"                                 'desactivar bold
PrWIN TX_CTR,       0,  5, MargemD, 5,Titulo$      'titulo centrado
PrWin FON, "BOLD-"                                 'desactivar bold

PrWIN FON  , 9                                     'activar fonte
PrWIN TX_N ,    0, 10,"Tipo de Acumulados :"       'titulo
PrWIN TX_N ,    0, 14,"Data :"                     'data
PrWIN TX_N ,  170, 14,"Folha No :"                 'folha

PrWin COR_T ,  CorLin
PrWIN TX_N,   33, 10,@TipAcm                       'tipo de acumulados
PrWIN TX_N,   11, 14,@DataExt                      'listar data
PrWIN TX_N,  185, 14,@Pag                          'numero da folha
End Sub

Col01=  2
Col02= 30
Col03= 65
Col04= 77
Col05= 89
Col06=101
Col07=113
Col08=125
Col09=138
Col10=149
Col11=161
Col12=173
Col13=184
Col14=196
Col15=210

PrWIN AJT_B,  Margem, 30                            'posicao base
PrWIN FON  , 6,1                                    'fonte para texto

MargemD=220

PrWIN COR_T,   CorTraco                             'cor para titulos
PrWIN GR_LI, 0, 0, MargemD, 0                       'linha
PrWIN GR_LI, 0, 5, MargemD, 5                       'linha

PrWIN COR_T,   CorTit                               'cor para titulos
PrWin FON,"BOLD+"                                   'activar bold
PrWIN TX_N,Col01,  1.5, "Código"
PrWIN TX_N,Col02,  1.5, "Nome"
PrWIN TX_N,Col03,  1.5, "Jan"
PrWIN TX_N,Col04,  1.5, "Fev"
PrWIN TX_N,Col05,  1.5, "Mar"
PrWIN TX_N,Col06,  1.5, "Abr"
PrWIN TX_N,Col07,  1.5, "Mai"
PrWIN TX_N,Col08,  1.5, "Jun"
PrWIN TX_N,Col09,  1.5, "Jul"
PrWIN TX_N,Col10,  1.5, "Ago"
PrWIN TX_N,Col11,  1.5, "Set"
PrWIN TX_N,Col12,  1.5, "Out"
PrWIN TX_N,Col13,  1.5, "Nov"
PrWIN TX_N,Col14,  1.5, "Dez"
PrWIN TX_N,Col15,  1.5, "Total"

InicioEscrita=32
PrWIN COR_T,   CorLin                               'cor para linhas
PrWin FON,"BOLD-"                                   'desactivar bold
end sub


Sub OrcAcmMesG_Lin 'linha
LCol01=  2
LCol02= 20
LCol03= 58
LCol04= 70
LCol05= 82
LCol06= 94
LCol07=106
LCol08=118
LCol09=130
LCol10=142
LCol11=154
LCol12=166
LCol13=178
LCol14=190
LCol15=206

PrWIN AJT_B, Margem, InicioEscrita+Doc_CntLin*4     'posicao base
PrWIN TX_N, LCol01, 0, @CodF
PrWIN TX_N, LCol02, 0, @NomG
PrWIN TX_NP,LCol03, 0, "N",@Jan
PrWIN TX_NP,LCol04, 0, "N",@Fev
PrWIN TX_NP,LCol05, 0, "N",@Mar
PrWIN TX_NP,LCol06, 0, "N",@Abr
PrWIN TX_NP,LCol07, 0, "N",@Mai
PrWIN TX_NP,LCol08, 0, "N",@Jun
PrWIN TX_NP,LCol09, 0, "N",@Jul
PrWIN TX_NP,LCol10, 0, "N",@Ago
PrWIN TX_NP,LCol11, 0, "N",@Set
PrWIN TX_NP,LCol12, 0, "N",@Out
PrWIN TX_NP,LCol13, 0, "N",@Nov
PrWIN TX_NP,LCol14, 0, "N",@Dez
PrWIN TX_NP,LCol15, 0, "N",@TotAno
end sub


Sub OrcAcmMesG_Fim 'fim de listagem
'PrWIN COR_T,   CorTraco                            'cor para titulos
'PrWIN AJT_B,Margem,267                 		   'posicao base
'PrWIN GR_LI,     0, 0, MargemD-10, 0              'linha
'PrWIN TX_N,      0, 0.5, @Tco
'PrWIN TX_N,     10, 0.5, "Rubricas"

PrWIN AJT_B,Margem,272                 		   'posicao base
PrWIN GR_LI,     0,  0, MargemD-10, 0              'linha
call SigLstRod
PrWin FP
end sub
##


'==============================================================================
#INC - Inclusao de funcoes
'==============================================================================
Funcoes comuns                    =[SIG_Dir.Div],LsComPgm.std
##
