'Nome       : NOTMOE.STD
'Tipo       : LST
'Data       : 2004/05/07
'Versao     : 1.4
'Descricao  : Mapa de Notas e Moedas Euro


'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.0  2000/01/20 ---------------------------------------------------
'Versao base


'-----------------------------------------------------------------------------
' Definicao global do documento
'-----------------------------------------------------------------------------
#DEF
Caracteres invalidos             [CarInv]=#{}
Subtotalizadores                 [SbtNiv]=2
##


'-----------------------------------------------------------------------------
' Campos especificos
'-----------------------------------------------------------------------------
#ESP
Empregados a listar        [LimEmp]=00000:99999
Seccoes a listar           [LimSec]=00000:99999
##


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=NOTMOE
Nome                       [DocNom]=NotMoe_EUR_G,Mapa em Euro

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico doc.  (Moedas)  [DocEsp]=NMO=10000,5000,2500,2000,1000,250,100,25,10,5,1
     (Modos pag. validos)  [DocEsp]=PGOK=1
     (Listar Ordenados=0)  [DocEsp]=LSTZ=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=NotMoe_CabG
Listar linhas               [FxLIN]=NotMoe_LinG
Listar fim                  [FxFIM]=NotMoe_FimG
##


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

'valores das notas/moedas
NM01    =MemNum(1)
NM02    =MemNum(2)
NM03    =MemNum(3)
NM04    =MemNum(4)
NM05    =MemNum(5)
NM06    =MemNum(6)
NM07    =MemNum(7)
NM08    =MemNum(8)
NM09    =MemNum(9)
NM10    =MemNum(10)
NM11    =MemNum(11)
NM12    =MemNum(12)
NM13    =MemNum(13)

'quantidade por tipo
Q01     =FrmVal$(MemNum(21),20,5.0)
Q02     =FrmVal$(MemNum(22),20,5.0)
Q03     =FrmVal$(MemNum(23),20,5.0)
Q04     =FrmVal$(MemNum(24),20,5.0)
Q05     =FrmVal$(MemNum(25),20,5.0)
Q06     =FrmVal$(MemNum(26),20,5.0)
Q07     =FrmVal$(MemNum(27),20,5.0)
Q08     =FrmVal$(MemNum(28),20,5.0)
Q09     =FrmVal$(MemNum(29),20,5.0)
Q10     =FrmVal$(MemNum(30),20,5.0)
Q11     =FrmVal$(MemNum(31),20,5.0)
Q12     =FrmVal$(MemNum(32),20,5.0)
Q13     =FrmVal$(MemNum(33),20,5.0)

'outros valores
Total   =GpeFrmMoe$("",11,MemNum(20))


'Codigo+nome de trabalhador
Trb     =Gpe_Mst_Trb$
Nome    =Gpe_Mst_Nome$
Nome2   =left$(Gpe_Mst_Nome$,34)

'totais
T01     =FrmVal$(Total(Q01),20,5.0)
T02     =FrmVal$(Total(Q02),20,5.0)
T03     =FrmVal$(Total(Q03),20,5.0)
T04     =FrmVal$(Total(Q04),20,5.0)
T05     =FrmVal$(Total(Q05),20,5.0)
T06     =FrmVal$(Total(Q06),20,5.0)
T07     =FrmVal$(Total(Q07),20,5.0)
T08     =FrmVal$(Total(Q08),20,5.0)
T09     =FrmVal$(Total(Q09),20,5.0)
T10     =FrmVal$(Total(Q10),20,5.0)
T11     =FrmVal$(Total(Q11),20,5.0)
T12     =FrmVal$(Total(Q12),20,5.0)
T13     =FrmVal$(Total(Q13),20,5.0)
TGer    =GpeFrmMoe$("",11,Total(Total))
##


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

'-----------------------------------------------------------------------------
' Programa/Funcoes
'-----------------------------------------------------------------------------
#PGM
SUB Lst_AJT
end sub


'-----------------------------------------------------------------------------
' Formato do documento
'-----------------------------------------------------------------------------
'- Mapa de Notas e Moedas (Grafico)--------------------------------------------------
SUB FxIni 'funcao de inicializacao
Call SigLstIni
End sub

SUB NotMoe_CabG
Titulo$="Mapa de Notas e Moedas"
SigCabNorOpcTit=0
Call SigCabNor

Col1=0
Col2=10
esp=11
Col3 =55
Col4 =Col3+(esp*1)
Col5 =Col3+(esp*2)
Col6 =Col3+(esp*3)
Col7 =Col3+(esp*4)
Col8 =Col3+(esp*5)
Col9 =Col3+(esp*6)
Col10=Col3+(esp*7)
Col11=Col3+(esp*8)
Col12=Col3+(esp*9)
Col13=Col3+(esp*10)
Col14=Col3+(esp*11)   'total
Col15=MargemD-10

PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN FON  ,   9,   1                        	'activar fonte
PrWIN AJT_B,  Margem, 30                    	'posicao base

Lin=2
PrWIN TX_CTR,Col1,Lin,Col3,Lin,"Trabalhador"
PrWIN TX_N,  Col3,Lin ,@NM01
PrWIN TX_N,  Col4,Lin ,@NM02
PrWIN TX_N,  Col5,Lin ,@NM03
PrWIN TX_N,  Col6,Lin ,@NM04
PrWIN TX_N,  Col7,Lin ,@NM05
PrWIN TX_N,  Col8,Lin ,@NM06
PrWIN TX_N,  Col9,Lin ,@NM07
PrWIN TX_N,  Col10,Lin,@NM08
PrWIN TX_N,  Col11,Lin,@NM09
PrWIN TX_N,  Col12,Lin,@NM10
PrWIN TX_N,  Col13,Lin,@NM11
PrWIN TX_N,  Col14,Lin,"Total"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, Col1, 0, Col15, 0               	'linha
PrWIN GR_LI, Col1, 7, col15,7               	'linha

PrWin COR_T ,  CorLin
end sub


SUB NotMoe_LinG
Ajtv=4
PrWIN AJT_B,  Margem, 35+Doc_CntLin*4          	'posicao base
PrWIN TX_N,     Col1,0,@Trb
PrWIN TX_DMX,   Col2,0,Col3-Col2,@Nome

PrWIN TX_NP,     Col3     ,0,"N",@Q01
PrWIN TX_NP,     Col4-ajtV,0,"N",@Q02
PrWIN TX_NP,     Col5-ajtV,0,"N",@Q03
PrWIN TX_NP,     Col6-ajtV,0,"N",@Q04
PrWIN TX_NP,     Col7-ajtV,0,"N",@Q05
PrWIN TX_NP,     Col8-ajtV,0,"N",@Q06
PrWIN TX_NP,     Col9-ajtV,0,"N",@Q07
PrWIN TX_NP,    Col10-ajtv,0,"N",@Q08
PrWIN TX_NP,    Col11-ajtv,0,"N",@Q09
PrWIN TX_NP,    Col12-ajtv,0,"N",@Q10
PrWIN TX_NP,    Col13-ajtv,0,"N",@Q11
PrWIN TX_NP,    Col14-ajtv,0,"N",@Total
end sub


SUB NotMoe_FimG
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,265                 		'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWIN AJT_B,Margem,267                 		'posicao base
PrWIN COR_T,     CorTotGer                      'cor para totais
PrWIN FON,      9,  1                          'activar fonte
PrWIN TX_CTR, Col2,  0,Col3,0,"Totais .."
PrWIN TX_NP,  Col3,  0,"N",@T01
PrWIN TX_NP,  Col4,  0,"N",@T02
PrWIN TX_NP,  Col5,  0,"N",@T03
PrWIN TX_NP,  Col6,  0,"N",@T04
PrWIN TX_NP,  Col7,  0,"N",@T05
PrWIN TX_NP,  Col8,  0,"N",@T06
PrWIN TX_NP,  Col9,  0,"N",@T07
PrWIN TX_NP,  Col10,  0,"N",@T08
PrWIN TX_NP,  Col11,  0,"N",@T09
PrWIN TX_NP,  Col12,  0,"N",@T10
PrWIN TX_NP,  Col13,  0,"N",@T11
PrWIN TX_NP,  Col14,  0,"N",@TGer
x=TotLpz(0)                       'azerar totalizadores
call SigLstRod
PrWin FP
end sub
##


#INC
Funcoes comuns                    =[SIG_Dir.Div],LsComPgm.std
##
