'Nome       : MAPSND.STD
'Tipo       : LST
'Data       : 2004/11/24
'Versao     : 1.2
'Descricao  : Mapa para Sindicatos


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

'- Versao : 1.0a 2000/06/20 --------------------------------------------------
'Totais incorrectos
'Acumular todos os processamentos

'- Versao : 1.0b 2000/06/20 --------------------------------------------------
'Formatar valores consoante moeda da empresa

'- Versao : 1.0c 2000/06/20 --------------------------------------------------
'Mostrar o valor do vencimento e nao o valor liquido

'- Versao : 1.0d 2000/11/16 --------------------------------------------------
'Impressao em modo grafico

'- Versao : 1.0e 2000/12/04 --------------------------------------------------
'Formatar valores consoante decimais indicados pelo programa
'Nao apresentava o total

'- Versao : 1.1  2002/03/20 --------------------------------------------------
'Alteracao nos ficheiros a usar nas inclusoes

'- Versao : 1.2  2004/??/?? --------------------------------------------------
'Nao identificava correctamente o sindicato havendo varias paginas


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


'-----------------------------------------------------------------------------
' Campos especificos
'-----------------------------------------------------------------------------
#ESP
##


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=ORDGER
Nome                       [DocNom]=MAPASIND,Relação de Sindicalizados

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Ordenacao                  [DocEsp]=ORD=SIND
Lista valores 0            [DocEsp]=LstZer=0
Processamento a listar     [DocEsp]=Proc=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_Cab
Listar linhas               [FxLIN]=Lst_Lin
Listar fim                  [FxFIM]=Lst_Fim
##


#DOC
Tipo                       [DocTip]=ORDGER
Nome                       [DocNom]=MAPASIND_G,Relação de Sindicalizados

'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
Ordenacao                  [DocEsp]=ORD=SIND
Lista valores 0            [DocEsp]=LstZer=0
Processamento a listar     [DocEsp]=Proc=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_CabG
Listar linhas               [FxLIN]=Lst_LinG
Listar fim                  [FxFIM]=Lst_FimG
##


'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
Pag        = Doc_CntPag
DataDia    = FrmVal$(Sig_DtHoje,45,0)
LstTit     = PrtCmd$("[10CPILD]")+MemTxt$(1)+PrtCmd$("[10CPILN]")

Per        = GpeTabCon$("SND",Gpe_Mst_Sind,"DESC")

Cod        = Gpe_Mst_Trb$
Nome       = Gpe_Mst_Nome$
Soc        = Gpe_Mst_SindSoc
Cat        = GpeTabCon$("CAT",Gpe_Mst_Categ,"ABRV")
Venc       = GpeFrmMoe$("",11,Gpe_Mst_Vbase)
Quot       = GpeFrmMoe$("",11,GpeSomaCmv("","790",-1,"V"))
Tot        = GpeFrmMoe$("",11,Total(Quot))

JanelaCartaL1 = GpeTabCon$("SND",Gpe_Mst_Sind,"NOME")
JanelaCartaL2 = GpeTabCon$("SND",Gpe_Mst_Sind,"MORADA")
JanelaCartaL3 = GpeTabCon$("SND",Gpe_Mst_Sind,"LOC")
JanelaCartaL4 = GpeTabCon$("SND",Gpe_Mst_Sind,"CPOST")

##


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

'-----------------------------------------------------------------------------
' Formato do documento
'-----------------------------------------------------------------------------
#PGM
Sub Lst_Cab
FxDiv LstIde,10CPI,1
Print PrtCmd$("[10CPILN]");
?   @NomEmp                                                                    #
?   @MorEmp                                                                    #
?   @LocalEmp                                                                  #
?   @CPostEmp                                                                  #
?
?                                         Ex.mos Senhores:
?
?                                         @JanelaCartaL1                            #
?                                         @JanelaCartaL2                            #
?                                         @JanelaCartaL3                            #
?                                         @JanelaCartaL4                            #
?
?
?

?
?        Junto enviamos relacao dos trabalhadores sindicalizados         #
?
?Data : @DataDia                                                       Pag: @Pag
?===============================================================================
?Socio           Nome                    Categoria     Vencimento      Quota
?===============================================================================
End Sub


Sub Lst_Lin
?@Soc   @Nome                            @Cat         @Venc        @Quot       #
End Sub


Sub Lst_Fim
?===============================================================================
?                                                        Total :   @Tot        #
?===============================================================================
x=TotLpz(0)           'azerar totais
FxDiv LstPer,SP
End Sub


'--(Modo grafico)---------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
Call SigLstIni
End sub

Sub Lst_CabG
call SigEmpMorada
Call JanelaCarta2
PrWIN AJT_B,  Margem,75                      'posicao base
PrWin Tx_N, 10,0,"Junto enviamos a relação dos trabalhadores sindicalizados"
PrWIN AJT_B,  Margem,85                        'posicao base
Call DataPag_A4

Col1=0
Col2=20
Col3=80
Col4=120
Col5=150
Col6=170
Lin=2

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

PrWIN TX_CTR,  Col1,Lin,Col2,Lin,"Sócio"
PrWIN TX_CTR,  Col2,Lin,Col3,Lin,"Nome"
PrWIN TX_CTR,  Col3,Lin,Col4,Lin,"Categoria"
PrWIN TX_CTR,  Col4,Lin,Col5,Lin,"Vencimento"
PrWIN TX_CTR,  Col5,Lin,Col6,Lin,"Quota"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, Col1, 0, margemD  ,0             	'linha
PrWIN GR_LI, Col1, 7, MargemD  ,7          	'linha
PrWin COR_T ,  CorLin
End Sub


Sub Lst_LinG
PrWIN AJT_B,  Margem, 105+Doc_CntLin*4          	'posicao base
PrWIN TX_NP,    Col1,0,"N",@Soc
PrWIN TX_DMX,   Col2,0,Col3-Col2,@Nome
PrWIN TX_CTR,   Col3,0,Col4,0,@Cat
PrWIN TX_NP,    Col4,0,"N",@Venc
PrWIN TX_N,     Col5,0,@Quot
End Sub


Sub Lst_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,      10,  1                          'activar fonte
PrWIN TX_CTR, Col2,  0,Col3,0,"Total ..."
PrWIN TX_NP,  Col5,  0,"N",@Tot
x=TotLpz(0)                       'azerar totalizador
call SigLstRod
PrWin FP
End Sub
##


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