'Nome       : GpeLsDiv.STD
'Tipo       : LST
'Data       : 2016/07/13
'Versao     : 1.4
'Descricao  : Configuracoes para listagens diversas GPE

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.1  2000/01/25 ---------------------------------------------------
'Versao base

'- Versao : 1.1a 2000/03/08 ---------------------------------------------------
'Listar tabela de IRS

'- Versao : 1.1a 2000/11/02 ---------------------------------------------------
'Alteracoes na tabela de habilitacoes, Sit. Profissao

'- Versao : 1.1b 2000/11/20 ---------------------------------------------------
'Alterado o tipo de letra para os titulos (modo texto)

'- Versao : 1.2  2001/06/20 ---------------------------------------------------
'Permitir listar as tabelas oficiais

'- Versao : 1.3  2002/10/24 ---------------------------------------------------
'Tabela  de categorias - mostrar codigo IRCT
'Tabela  de profissoes - mostrar codigo CNP

'- Versao : 1.3a 2005/10/21 ---------------------------------------------------
'Correcção ortográfica

'- Versao : 1.3b 2006/11/21 ---------------------------------------------------
'Permitir impressao grafica das tabelas

'- Versao : 1.3c 2007/01/11 ---------------------------------------------------
'Na impressao tabela de categorias, apresentava codigo IRCT sobreposto

'- Versao : 1.3d 2008/02/07 ---------------------------------------------------
'Ajuste na impressão grafica das tabelas irs
'Impressão grafica da tabela de codigos de movimento

'- Versao : 1.3e 2016/04/22 ---------------------------------------------------
'Ajuste na impressao da tabela de categorias

'- Versao : 1.4  2016/07/13 ---------------------------------------------------
'Ajuste na impressao da tabela de IRS (modo grafico)


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


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


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=EST,Tabela de Estabelecimentos

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=2
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1

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

'------------------------------------------------------------------------------
#DOC - Configuracao do documento
'------------------------------------------------------------------------------
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=EST_G,Tabela de Estabelecimentos

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=3
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lstg_Cab
Listar linhas               [FxLIN]=Estg_Lin
Listar fim                  [FxFIM]=lstg_Fim
##



'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=CSS,Centros de Segurança Social

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=3
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1

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

'------------------------------------------------------------------------------
#DOC - Configuracao do documento
'------------------------------------------------------------------------------
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=CSS_G,Centros de Segurança Social

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=4
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lstg_Cab
Listar linhas               [FxLIN]=Cssg_Lin
Listar fim                  [FxFIM]=lstg_Fim
##



'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=SND,Tabela de Sindicatos

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=4
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1

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

'------------------------------------------------------------------------------
#DOC - Configuracao do documento
'------------------------------------------------------------------------------
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=SND_G,Tabela de Sindicatos

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=5
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lstg_Cab
Listar linhas               [FxLIN]=SndG_Lin
Listar fim                  [FxFIM]=lstg_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=SEG,Tabela de Seguros

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=3
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1

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


'------------------------------------------------------------------------------
#DOC - Configuracao do documento
'------------------------------------------------------------------------------
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=SEG_G,Tabela de Seguros

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=4
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lstg_Cab
Listar linhas               [FxLIN]=SegG_Lin
Listar fim                  [FxFIM]=Lstg_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=BNC,Tabela de Bancos

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=2
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1

'funcoes de listagem
Listar cabecalho            [FxCAB]=Bnc_Cab
Listar linhas               [FxLIN]=Bnc_Lin
Listar fim                  [FxFIM]=lst_fim
##

'------------------------------------------------------------------------------
#DOC - Configuracao do documento
'------------------------------------------------------------------------------
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=BNC_G,Tabela de Bancos

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=4
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1

'funcoes de listagem
Listar cabecalho            [FxCAB]=lstg_Cab
Listar linhas               [FxLIN]=Bncg_Lin
Listar fim                  [FxFIM]=lstg_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=CAT,Tabela de Categorias

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Cat_Cab
Listar linhas               [FxLIN]=Cat_Lin
Listar fim                  [FxFIM]=lst_fimcsep
##

'------------------------------------------------------------------------------
#DOC - Configuracao do documento
'------------------------------------------------------------------------------
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=CAT_G,Tabela de Categorias

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=59
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Catg_Cab
Listar linhas               [FxLIN]=Catg_Lin
Listar fim                  [FxFIM]=lstg_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=SEC,Tabela de Secções

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Sec_Cab
Listar linhas               [FxLIN]=Sec_Lin
Listar fim                  [FxFIM]=Lst_FimCsep
##


'------------------------------------------------------------------------------
#DOC - Configuracao do documento
'------------------------------------------------------------------------------
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=SEC_G,Tabela de Secções

'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

'funcoes de listagem
Listar cabecalho            [FxCAB]=SecG_Cab
Listar linhas               [FxLIN]=SecG_Lin
Listar fim                  [FxFIM]=lstG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=HAB,Tabela de Habilitações

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Hab_Cab
Listar linhas               [FxLIN]=Hab_Lin
Listar fim                  [FxFIM]=Lst_FimCsep
##


'------------------------------------------------------------------------------
#DOC - Configuracao do documento
'------------------------------------------------------------------------------
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=HAB_G,Tabela de Habilitações

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=58
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Habg_Cab
Listar linhas               [FxLIN]=Habg_Lin
Listar fim                  [FxFIM]=lstg_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=SIT,Situações na Profissão

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Sit_Cab
Listar linhas               [FxLIN]=Sit_Lin
Listar fim                  [FxFIM]=lst_fimCsep
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=PROF,Tabela de Profissões

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Prof_Cab
Listar linhas               [FxLIN]=Prof_Lin
Listar fim                  [FxFIM]=Lst_FimCsep
##


'------------------------------------------------------------------------------
#DOC - Configuracao do documento
'------------------------------------------------------------------------------
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=PROF_G,Tabela de Profissões

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=58
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Profg_Cab
Listar linhas               [FxLIN]=Profg_Lin
Listar fim                  [FxFIM]=lstg_Fim
##

'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=CMV
Nome                       [DocNom]=CMV,Códigos de Movimento

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Cmv_Cab
Listar linhas               [FxLIN]=Cmv_Lin
Listar fim                  [FxFIM]=Lst_FimCsep
##

'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=CMV
Nome                       [DocNom]=CMV_G,Códigos de Movimento

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=57
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=cmvg_Cab
Listar linhas               [FxLIN]=cmvg_Lin
Listar fim                  [FxFIM]=lstg_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=IRS
Nome                       [DocNom]=IRS,Tabela de IRS

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Irs_Cab
Listar linhas               [FxLIN]=Irs_Lin
Listar fim                  [FxFIM]=Lst_FimCsep
##


'------------------------------------------------------------------------------
#DOC - Configuracao do documento
'------------------------------------------------------------------------------
Tipo                       [DocTip]=IRS
Nome                       [DocNom]=IRS_G,Tabela de IRS

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=55
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Irsg_Cab
Listar linhas               [FxLIN]=Irsg_Lin
Listar fim                  [FxFIM]=Irsg_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=2098,Decreto Lei 20/98

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Tof_Cab
Listar linhas               [FxLIN]=Tof_Lin
Listar fim                  [FxFIM]=Lst_fimcSep
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=TCTR,Tipo de Contrato

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Tof_Cab
Listar linhas               [FxLIN]=Tof_Lin
Listar fim                  [FxFIM]=lst_FimCsep
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TDIV
Nome                       [DocNom]=DTRB,Duração de trabalho

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Tof_Cab
Listar linhas               [FxLIN]=Tof_Lin
Listar fim                  [FxFIM]=lst_FimCsep
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=TOF
Nome                       [DocNom]=NIVQ,Níveis de Qualificação

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=NivQ_Cab
Listar linhas               [FxLIN]=NivQ_Lin
Listar fim                  [FxFIM]=Lst_FimCsep
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
Pag        = Doc_CntPag
DataExt    = FrmVal$(Sig_DtHoje,45,0)
LstTit     = TxTit$("TT=16CPILD, PT=40C ",MemTxt$(1))
LstTit2    = MemTxt$(2)

Bnc_Tit    = PrtCmd$("[16CPILD]")+"Banco : "+Memtxt$(11)+"  - "+GpeTabCon$("BNC",MemTxt$(11),"NOME")+PrtCmd$("[10CPILN]")
Est_Tit    = PrtCmd$("[16CPILD]")+"Estabelecimento : "+Memtxt$(11)+"  - "+GpeTabCon$("EST",MemTxt$(11),"NOME")+PrtCmd$("[10CPILN]")
CSS_Tit    = PrtCmd$("[16CPILD]")+"C.Regional : "+Memtxt$(11)+"  - "+GpeTabCon$("CSS",MemTxt$(11),"NOME")+PrtCmd$("[10CPILN]")
SND_Tit    = PrtCmd$("[16CPILD]")+"Sindicato : "+Memtxt$(11)+"  - "+GpeTabCon$("SND",MemTxt$(11),"NOME")+PrtCmd$("[10CPILN]")
SEG_Tit    = PrtCmd$("[16CPILD]")+"Companhia : "+Memtxt$(11)+"  - "+GpeTabCon$("SEG",MemTxt$(11),"NOME")+PrtCmd$("[10CPILN]")

'tabela de bancos
Bnc_Descr  = GpeTabCon$("BNC",MemTxt$(10),"NOME")
Bnc_Morada = GpeTabCon$("BNC",MemTxt$(10),"MORADA")
Bnc_Local  = GpeTabCon$("BNC",MemTxt$(10),"LOC")
Bnc_CodPos = GpeTabCon$("BNC",MemTxt$(10),"CPOST")
Bnc_Telef  = GpeTabCon$("BNC",MemTxt$(10),"TELEF")
Bnc_Fax    = GpeTabCon$("BNC",MemTxt$(10),"FAX")
Bnc_GesCt  = GpeTabCon$("BNC",MemTxt$(10),"GEST")
Bnc_CodAge = GpeTabCon$("BNC",MemTxt$(10),"AG_COD")
Bnc_LocAge = GpeTabCon$("BNC",MemTxt$(10),"AG_NOM")
Bnc_Nib    = GpeTabCon$("BNC",MemTxt$(10),"NIB")
Bnc_CtPoc  = GpeTabCon$("BNC",MemTxt$(10),"POC")
Bnc_Obs    = GpeTabCon$("BNC",MemTxt$(10),"TXL")

'codigo de movimento
Cmv_Cod    = Gpe_Cmv:Cod.Cmv$
Cmv_Desc   = GpeCmv.Descr$
Cmv_Qu     = "["+FrmVal$(GpeCmv.Tqu,21,3.0)+"]  "+FrmVal$(GpeCmv.Qu,21,4.2)
Cmv_Vl     = "["+FrmVal$(GpeCmv.Tval,21,3.0)+"]  "+FrmVal$(GpeCmv.Val,21,11.1)


'Estabelecimentos
Est_Nome       = GpeTabCon$("EST",MeMTxt$(10),"NOME")
Est_Morada     = GpeTabCon$("EST",MeMTxt$(10),"MORADA")
Est_Local      = GpeTabCon$("EST",MeMTxt$(10),"LOCAL")
Est_CodPos     = GpeTabCon$("EST",MeMTxt$(10),"CPOST")
Est_Telef      = GpeTabCon$("EST",MeMTxt$(10),"TELEF")
Est_Freg       = GpeTabCon$("EST",MeMTxt$(10),"FREG")
Est_Conc       = GpeTabCon$("EST",MeMTxt$(10),"CONC")
Est_Dist       = GpeTabCon$("EST",MeMTxt$(10),"DIST")
Est_CodMt      = GpeTabCon$("EST",MeMTxt$(10),"CODDIST")
Est_Activ      = GpeTabCon$("EST",MeMTxt$(10),"ACTV")
Est_Npes       = GpeTabCon$("EST",MeMTxt$(10),"NPESS")
Est_IRTCod     = GpeTabCon$("EST",MeMTxt$(10),"IRTCOD")
Est_DescrIrt   = GpeTabCon$("EST",MeMTxt$(10),"IRTDES")
Est_NumBolMt   = GpeTabCon$("EST",MeMTxt$(10),"IRTBLT")
Est_DatBolMt   = FrmVal$(GpeTabCon$("EST",MeMTxt$(10),"IRTDTPUB"),44,0)
Est_DatTabSal  = FrmVal$(GpeTabCon$("EST",MeMTxt$(10),"IRTDTULTTB"),44,0)


'Centro de seguranca social
CSS_Descr      = GpeTabCon$("CSS",MemTxt$(10),"NOME")
CSS_Morada     = GpeTabCon$("CSS",MemTxt$(10),"MORADA")
CSS_Local      = GpeTabCon$("CSS",MeMTxt$(10),"LOC")
CSS_CodPos     = GpeTabCon$("CSS",MeMTxt$(10),"CPOST")
CSS_Telef      = GpeTabCon$("CSS",MeMTxt$(10),"TELEF")
CSS_Contrib    = GpeTabCon$("CSS",MeMTxt$(10),"CTRB")
CSS_DescPtr    = GpeTabCon$("CSS",MeMTxt$(10),"DES_P")
CSS_DescEmp    = GpeTabCon$("CSS",MeMTxt$(10),"DES_E")
CSS_Cont       = GpeTabCon$("CSS",MeMTxt$(10),"CONTC")
CSS_Obs        = GpeTabCon$("CSS",MeMTxt$(10),"TXL")

'Tabela de sindicatos
SND_Descr      = GpeTabCon$("SND",MemTxt$(10),"NOME")
SND_Morada     = GpeTabCon$("SND",MemTxt$(10),"MORADA")
SND_Local      = GpeTabCon$("SND",MemTxt$(10),"LOCAL")
SND_CodPos     = GpeTabCon$("SND",MemTxt$(10),"CPOST")
SND_Telef      = GpeTabCon$("SND",MemTxt$(10),"TELEF")
SND_Cont       = GpeTabCon$("SND",MemTxt$(10),"CONTC")
SND_Desc       = GpeTabCon$("SND",MemTxt$(10),"DESC")
SND_Obs        = GpeTabCon$("SND",MemTxt$(10),"TXL")

'Tabela de seguros
SEG_Descr      = GpeTabCon$("SEG",MemTxt$(10),"ABRV")
SEG_Age        = GpeTabCon$("SEG",MemTxt$(10),"AG_NUM")
SEG_Cont       = GpeTabCon$("SEG",MemTxt$(10),"CONTC")
SEG_Morada     = GpeTabCon$("SEG",MemTxt$(10),"MORADA")
SEG_Local      = GpeTabCon$("SEG",MemTxt$(10),"LOC")
SEG_CodPos     = GpeTabCon$("SEG",MemTxt$(10),"CPOST")
SEG_Telef      = GpeTabCon$("SEG",MemTxt$(10),"TELEF")
SEG_Apol       = GpeTabCon$("SEG",MemTxt$(10),"AP_NUM")
SEG_PercSeg    = GpeTabCon$("SEG",MemTxt$(10),"P_SEG")
SEG_Cont       = GpeTabCon$("SEG",MemTxt$(10),"CONTC")
SEG_Obs        = GpeTabCon$("SEG",MemTxt$(10),"TXL")

'Categorias
CAT            = MemTxt$(11)
CAT_Abrv       = GpeTabCon$("CAT",MemTxt$(10),"ABRV")
CAT_Desc       = GpeTabCon$("CAT",MemTxt$(10),"DESC")
CAT_IRCT       = GpeTabCon$("CAT",MemTxt$(10),"IRCT")

'Seccoes
SEC            = MemTxt$(11)
SEC_Desc       = GpeTabCon$("SEC",MemTxt$(10),"DESC")
SEC_Abrv       = GpeTabCon$("SEC",MemTxt$(10),"ABRV")
Ccu            = GpeTabCon$("SEC",MemTxt$(10),"CC_CTA")
SEC_Info       = GpeTabCon$("SEC",MemTxt$(10),"LVR")

'habilitacoes
HAB            = MemTxt$(11)
HAB_Desc       = GpeTabCon$("HAB",MemTxt$(10),"DESC")
HAB_Abrv       = GpeTabCon$("HAB",MemTxt$(10),"ABRV")
HAB_Info       = GpeTabCon$("HAB",MemTxt$(10),"LVR")

'Profissoes
PROF           = MemTxt$(11)
PROF_Desc      = GpeTabCon$("PROF",MemTxt$(10),"DESC")
PROF_Abrv      = GpeTabCon$("PROF",MemTxt$(10),"ABRV")
PROF_CNP       = GpeTabCon$("PROF",MemTxt$(10),"CNP")

'situacao na profissao
SIT            = MemTxt$(11)
SIT_Desc       = GpeTabCon$("SIT",MemTxt$(10),"DESC")
SIT_Abrv       = GpeTabCon$("SIT",MemTxt$(10),"ABRV")
SIT_Info       = GpeTabCon$("SIT",MemTxt$(10),"LVR")


'Codigos de movimento
Cmv            = Gpe_Cmv_Cod$
Desc           = Gpe_Cmv_Descr$
Tq             = "["+FrmVal$(Gpe_Cmv_Tqu,21,3.0)+"]"
Quant          = FrmVal$(Gpe_Cmv_Qu,21,4.2)
Tv             = "["+FrmVal$(Gpe_Cmv_Tval,21,3.0)+"]"
Val            = FrmVal$(Gpe_Cmv_Val,21,11.1)

'Tabela de IRS
IRS_Rem        = FrmMoe$("",16,MemNum(10))
Irs_0d         = FrmVal$(MemNum(11),21,2.2)
Irs_1d         = FrmVal$(MemNum(12),21,2.2)
Irs_2d         = FrmVal$(MemNum(13),21,2.2)
Irs_3d         = FrmVal$(MemNum(14),21,2.2)
Irs_4d         = FrmVal$(MemNum(15),21,2.2)
Irs_5d         = FrmVal$(MemNum(16),21,2.2)

'tabelas oficiais
TofCod         = MemTxt$(11)
Tof_Abrv       = GpeTabCon$(MemTxt$(9),MemTxt$(10),"ABRV")
Tof_Descr      = GpeTabCon$(MemTxt$(9),MemTxt$(10),"DESC")
##

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


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
SUB FxIni 'funcao de inicializacao
Call SigLstIni
End sub

'------------------------------------------------------------------------------
Sub Lst_Cab   'header texto
'------------------------------------------------------------------------------
FxDiv LstIde,10CPI,1
?
?             @LstTit                                                        #
?                                         
?@DataExt                       @LstTit2                          Folha @Pag #
End Sub

'------------------------------------------------------------------------------
Sub LstG_Cab   'header grafico
'------------------------------------------------------------------------------
titulo$=MemTxt$(1)
PrWIN COR_F, 15                                 'cor de fundo
SigCabNorOpcTit=2 				'usar titulo indicado
Call SigCabNor
PrWIN FON  ,  9,   1                        	'activar fonte
PrWIN TX_N,     95,10,MemTxt$(2)
PrWIN AJT_B,  Margem, 30                     'posicao base
InicioEscrita=30
End Sub

'------------------------------------------------------------------------------
Sub LstG_Fim   'fim grafico
'------------------------------------------------------------------------------
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,LinPer-1           		'posicao base
PrWIN GR_LI,     0,  0, ColMax, 0           'linha
call SigLstRod
PrWin FP
End Sub

'------------------------------------------------------------------------------
Sub Lst_FimCsep   'fim modo texto com separador
'------------------------------------------------------------------------------
?================================================================================
call lst_fim
end sub

'------------------------------------------------------------------------------
Sub Lst_Fim       'fim normal
'------------------------------------------------------------------------------
Print PrtCmd$("[SP]");
End Sub


'-----------------------------------------------------------------------------
' Tabela de bancos
'-----------------------------------------------------------------------------
Sub Bnc_Lin
?================================================================================
?| @Bnc_Tit                                                                     |
?================================================================================
?|                                                                              |
?| Nome            : @Bnc_Descr                                                 |
?|                                                                              |
?| Morada          : @Bnc_Morada                                                |
?| Localidade      : @Bnc_Local                                                 |
?| Cod.Postal      : @Bnc_CodPos                                                |
?| Telefone        : @Bnc_Telef                     Fax      : @Bnc_Fax         |
?|                                                                              |
?| Gestor de Conta : @Bnc_GesCt                                                 |
?|                                                                              |
?| Codigo Agencia  : @Bnc_CodAge                                                |
?| Local  Agencia  : @Bnc_LocAge                                                |
?|                                                                              |
?| N.I.B.          : @Bnc_Nib                                                   |
?|                                                                              |
?| Conta POC       : @Bnc_CtPoc                                                 |
?|                                                                              |
?| Observacoes     : @Bnc_Obs                                                   |
?|                                                                              |
?================================================================================
?
?
End Sub


'------------------------------------------------------------------------------
Sub Bncg_Lin  'linha impressao grafica
'------------------------------------------------------------------------------
esp=20
Col1=10
Col2=Col1+50
Col3=Col2+40
Col4=Col3+40
Col5=Col4+21
ColMax=Col4+45

esplin=4.6

if doc_cntlin=1 then
  linha=28
else
   linha=linha+58
end if

PrWIN AJT_B,margem, linha      'posicao base

PrWIN FON  ,  12,   1                        	'activar fonte
PrWIN COR_T,CorTit                              'cor de linhas

PrWin FON, "BOLD+"                              'bold
PrWIN GR_LI,     0,  0, ColMax, 0            	'linha
PrWIN TX_N, Col1,0,@Bnc_Tit
PrWIN GR_LI,     0,  esplin, ColMax, esplin      'linha
PrWin FON, "BOLD-"                              'bold

lin=1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Nome"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Bnc_Descr

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Morada"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Bnc_Morada

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Localidade"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Bnc_Local

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Cod.Postal"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Bnc_CodPos

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Telefone"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Bnc_Telef
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col3,lin*esplin,"Fax"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col4,lin*esplin,@Bnc_fax


lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Gestor de Conta"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Bnc_GesCt

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Código Agencia"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Bnc_CodAge

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Local Agencia"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Bnc_LocAge

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"N.I.B."
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Bnc_nib

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Conta POC"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Bnc_CtPoc

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Observações"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Bnc_Obs
End Sub


Sub Bnc_Fim
Print PrtCmd$("[SP]");
end sub


'-----------------------------------------------------------------------------
' Codigos de Movimento
'-----------------------------------------------------------------------------
Sub Cmv_Cab
FxDiv LstIde,10CPI,1
?
Print PrtCmd$("[16CPILD]");
?                         Codigos de Movimento
Print PrtCmd$("[10CPILN]");
?
?@DataExt                                                           Folha @Pag #
?================================================================================
?| Cod |              Descricao             |  Quantidade  |       Valor        |
?================================================================================
End Sub


Sub Cmv_Lin
?| @Cmv| @Desc                              | @Tq  @Quant  | @Tv  @Val          |
End Sub

Sub Cmv_Fim
?================================================================================
Print PrtCmd$("[SP]");
End Sub


'-----------------------------------------------------------------------------
Sub Cmvg_Cab      ' codigos movimento  - grafico
'-----------------------------------------------------------------------------
ColMax=185
call Lstg_Cab

Tc1=10
Tc2=100

Tc3=10
Tc4=20

Tc5=
Tc6=10

Tc7=10

esp=15
Col1=0
Col2=Col1+Tc1
Col3=Col2+Tc2
Col4=Col3+Tc3
Col5=Col4+Tc4
Col6=135


esplin=4.8

PrWIN FON  ,  12,   1                        	'activar fonte
PrWIN COR_T,CorTit                              'cor de linhas

PrWin FON, "BOLD+"                              'bold
PrWIN GR_LI,     0,  0, ColMax, 0            	'linha
PrWIN TX_N,   Col1,0,"Cod"
PrWIN TX_N,   Col2,0,"Descricao"
PrWIN TX_N,   Col3,0,"Quantidade"
PrWIN TX_N,   Col5,0,"Valor"

PrWIN GR_LI,     0,  esplin, ColMax, esplin      'linha
PrWin FON, "BOLD-"                              'bold
InicioEscrita=32
PrWIN COR_T,  CorLin                            'cor de linha
End Sub

'-----------------------------------------------------------------------------
Sub Cmvg_Lin
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4          	'posicao base
PrWIN TX_N,  Col1,0,@Cmv
PrWIN TX_N,  Col2,0,@Desc
PrWIN TX_NP, Col3,0,"N",@Tq
PrWIN TX_NP, Col4,0,"N",@Quant
PrWIN TX_NP, Col5,0,"N",@Tv
PrWIN TX_NP, Col6,0,"N",@Val
End Sub




'-----------------------------------------------------------------------------
' Tabela de Estabelecimentos
'-----------------------------------------------------------------------------
Sub Est_Lin
?================================================================================
?| @Est_Tit                                                                     |
?================================================================================
?|                                                                              |
?| Nome             : @EST_Nome                                                 |
?| Morada           : @Est_Morada                                               |
?| Localidade       : @Est_Local                                                |
?| Cod.Postal       : @Est_CodPos                                               |
?| Telefone / Fax   : @Est_Telef                                                |
?|                                                                              |
?| Freguesia        : @Est_Freg                                                 |
?| Concelho         : @Est_Conc                                                 |
?| Distrito         : @Est_Dist                     Codigo MT : @Est_CodMt      |
?|                                                                              |
?| Actividade       : @Est_Activ                                                |
?| No Pessoas       : @Est_Npes                                                 |
?|                                                                              |
?| IRT :                                                                        |
?| Descricao                   : @Est_DescrIrt                           #      |
?| Numero do Boletim MT        : @Est_NumBolMt                           #      |
?| Data Publicacao Boletim MT  : @Est_DatBolMt                           #      |
?| Data Ultima Tabela Salarial : @Est_DatTabSal                          #      |
?|                                                                              |
?| Informacao Livre : @Est_Livre                                         #      |
?|                                                                              |
?================================================================================
End Sub


'------------------------------------------------------------------------------
Sub Estg_lin     'linha impressao grafica
'------------------------------------------------------------------------------
esp=20
Col1=10
Col2=Col1+50
Col3=Col2+40
Col4=Col3+40
Col5=Col4+21
ColMax=Col4+45

esplin=4

if doc_cntlin=1 then
  linha=28
else
   linha=linha+82
end if

PrWIN AJT_B,margem, linha      'posicao base

PrWIN FON  ,  10,   1                        	'activar fonte
PrWIN COR_T,CorTit                              'cor de linhas

PrWin FON, "BOLD+"                              'bold

PrWIN GR_LI,     0,  0, ColMax, 0            	'linha
PrWIN TX_N, Col1,0,@Est_Tit
PrWIN GR_LI,     0,  esplin, ColMax, esplin      'linha
PrWin FON, "BOLD-"                              'bold

lin=1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Nome"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Est_Nome

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Morada"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Est_Morada

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Localidade"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Est_local

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Cod.Postal"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Est_CodPos

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Telefone"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Est_Telef

lin=lin+1
lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Freguesia"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Est_Freg

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Concelho"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Est_Conc

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Distrito"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Est_Dist

lin=lin+1
lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Actividade"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Est_Activ

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"No Pessoas"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_NP, Col2,lin*esplin,"N",@Est_Npes

lin=lin+1
lin=lin+1
PrWIN TX_N, Col1,lin*esplin,"IRT"

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Descricao"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Est_DescrIrt

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Numero do Boletim"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_NP, Col2,lin*esplin,"N",@Est_NumBolMt

PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col4,lin*esplin,"Código IRCT"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col5,lin*esplin,@Est_irtcod


lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Data Publicação Boletim"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_NP, Col2,lin*esplin,"N",@Est_DatBolMt

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Data Ultima Tabela Salarial"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_NP, Col2,lin*esplin,"N",@Est_DatTabSal

PrWIN GR_LI,     0,  0, Lin*esplin+3, 0            	'linha
end sub



'-----------------------------------------------------------------------------
' Tabela de Seguranca social 
'-----------------------------------------------------------------------------
Sub Css_Lin
?================================================================================
?| @Css_Tit                                                                     |
?================================================================================
?| Nome               : @Css_Descr                                          #   |
?|                                                                              |
?| Morada             : @Css_Morada                                         #   |
?| Localidade         : @Css_Local                                          #   |
?| Cod.Postal         : @Css_CodPos                                         #   |
?| Telefone / Fax     : @Css_Telef                                          #   |
?|                                                                              |
?| Contribuinte       : @Css_Contrib                                        #   |
?|                                                                              |
?| Desconto Patronal  : @Css_DescPtr                                        #   |
?| Desconto Empregado : @Css_DescEmp                                        #   |
?|                                                                              |
?| Contacto           : @Css_Cont                                           #   |
?| Observacoes        : @Css_Obs                                            #   |
?================================================================================
End Sub

Sub Css_Fim
Print PrtCmd$("[SP]");
End sub


'------------------------------------------------------------------------------
Sub Cssg_Lin   'linha impressao grafica
'------------------------------------------------------------------------------
esp=20
Col1=10
Col2=Col1+50
Col3=Col2+40
Col4=Col3+40
Col5=Col4+21
ColMax=Col4+45

esplin=4.5

if doc_cntlin=1 then
  linha=28
else
   linha=linha+55
end if

PrWIN AJT_B,margem, linha      'posicao base

PrWIN FON  ,  12,   1                        	'activar fonte
PrWIN COR_T,CorTit                              'cor de linhas

PrWin FON, "BOLD+"                              'bold
PrWIN GR_LI,     0,  0, ColMax, 0            	'linha
PrWIN TX_N, Col1,0,@Css_Tit
PrWIN GR_LI,     0,  esplin, ColMax, esplin      'linha
PrWin FON, "BOLD-"                              'bold

lin=1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Nome"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Css_Descr

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Morada"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@css_Morada

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Localidade"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@css_Local

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Cod.Postal"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@css_CodPos

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Telefone / Fax"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@css_Telef

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Contribuinte"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@css_Contrib

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Desconto Patronal"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@css_descptr

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Desconto Empregado"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@css_DescEmp

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Contacto"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@css_Cont

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Observações"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@css_Obs
end sub


'-----------------------------------------------------------------------------
'Tabela de Sindicatos
'-----------------------------------------------------------------------------
Sub Snd_Lin
?================================================================================
?| @Snd_Tit                                                                     |
?================================================================================
?| Nome           : @Snd_Descr                                               #  |
?|                                                                              |
?| Morada         : @Snd_Morada                                              #  |
?| Localidade     : @Snd_Local                                               #  |
?| Cod.Postal     : @Snd_CodPos                                              #  |
?| Telefone / Fax : @Snd_Telef                                               #  |
?|                                                                              |
?| Desconto (%)   : @Snd_Desc                                                #  |
?|                                                                              |
?| Contacto       : @Snd_Cont                                                #  |
?| Observacoes    : @Snd_Obs                                                 #  |
?================================================================================
End Sub

'------------------------------------------------------------------------------
Sub Sndg_Lin   'linha impressao grafica
'------------------------------------------------------------------------------
esp=20
Col1=10
Col2=Col1+50
Col3=Col2+40
Col4=Col3+40
Col5=Col4+21
ColMax=Col4+45

esplin=4.7

if doc_cntlin=1 then
  linha=28
else
   linha=linha+47
end if

PrWIN AJT_B,margem, linha      'posicao base

PrWIN FON  ,  12,   1                        	'activar fonte
PrWIN COR_T,CorTit                              'cor de linhas

PrWin FON, "BOLD+"                              'bold
PrWIN GR_LI,     0,  0, ColMax, 0            	'linha
PrWIN TX_N, Col1,0,@Snd_Tit
PrWIN GR_LI,     0,  esplin, ColMax, esplin      'linha
PrWin FON, "BOLD-"                              'bold

lin=1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Nome"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Snd_Descr

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Morada"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Snd_Morada

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Localidade"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Snd_Local

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Cod.Postal"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Snd_CodPos

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Telefone / Fax"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Snd_Telef

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Desconto"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Snd_Desc

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Contacto"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Snd_Cont

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Observações"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Snd_Obs
End Sub

Sub Snd_Fim
Print PrtCmd$("[SP]");
End Sub


'-----------------------------------------------------------------------------
' Tabela de seguros
'-----------------------------------------------------------------------------
Sub Seg_Lin
?================================================================================
?| @Seg_Tit                                                                     |
?================================================================================
?|                                                                              |
?| Nome            : @Seg_Descr                                              #  |
?| Numero Agencia  : @Seg_Age                                                #  |
?|                                                                              |
?| Morada          : @Seg_Morada                                             #  |
?| Localidade      : @Seg_Local                                              #  |
?| Cod.Postal      : @Seg_CodPos                                             #  |
?| Telefone / Fax  : @Seg_Telef                                              #  |
?|                                                                              |
?| Apolice No      : @Seg_Apol                                               #  |
?| Perc. p/Seguro  : @Seg_PercSeg                                            #  |
?|                                                                              |
?| Contacto        : @Seg_Cont                                               #  |
?| Observacoes     : @Seg_Obs                                                #  |
?|                                                                              |
?================================================================================
End Sub


'------------------------------------------------------------------------------
Sub Segg_Lin       'linha impressao grafica
'------------------------------------------------------------------------------
esp=20
Col1=10
Col2=Col1+50
Col3=Col2+40
Col4=Col3+40
Col5=Col4+21
ColMax=Col4+45

esplin=4.5

if doc_cntlin=1 then
  linha=28
else
   linha=linha+55
end if

PrWIN AJT_B,margem, linha      'posicao base

PrWIN FON  ,  12,   1                        	'activar fonte
PrWIN COR_T,CorTit                              'cor de linhas

PrWin FON, "BOLD+"                              'bold
PrWIN GR_LI,     0,  0, ColMax, 0            	'linha
PrWIN TX_N, Col1,0,@Seg_Tit
PrWIN GR_LI,     0,  esplin, ColMax, esplin      'linha
PrWin FON, "BOLD-"                              'bold

lin=1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Nome"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Seg_Descr

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Numero"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Seg_Age

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Morada"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Seg_Morada

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Localidade"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Seg_Local

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Cod.postal"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Seg_CodPos

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Telefone/Fax"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Seg_Telef

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Apolice No"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Seg_Apol

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Perc. p/Seguro"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Seg_PercSeg

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Contaco"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Seg_Cont

lin=lin+1
PrWIN COR_T,CorTit                              'cor de linhas
PrWIN TX_N, Col1,lin*esplin,"Observações"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_N, Col2,lin*esplin,@Seg_Obs
End Sub


Sub Seg_fim
Print PrtCmd$("[SP]");
end Sub


'-----------------------------------------------------------------------------
' Tabela de categorias
'-----------------------------------------------------------------------------
Sub Cat_Cab
call Lst_Cab
?================================================================================
?|Cod.|               Descricao                | Abreviatura |     Cod. IRCT    |
?================================================================================
End Sub


Sub Cat_Lin
?|@Cat|@Cat_Desc                               |@CAT_Abrv    | @CAT_Irct        |
End Sub


Sub Cat_Fim
?================================================================================
Print PrtCmd$("[SP]");
End Sub



'-----------------------------------------------------------------------------
Sub Catg_Cab      ' Tabela de categorias - grafico
'-----------------------------------------------------------------------------
call Lstg_Cab

esp=20
Col1=0
Col2=Col1+15
Col3=Col2+30
Col4=Col3+110
Col5=Col4+40
ColMax=Col5

esplin=4.8

PrWIN FON  ,  10,   1                        	'activar fonte
PrWIN COR_T,CorTit                              'cor de linhas

PrWin FON, "BOLD+"                              'bold
PrWIN GR_LI,     0,  0, ColMax, 0            	'linha
PrWIN TX_N, Col1,0,"Codigo"
PrWIN TX_CTR, Col2,0,Col3,0,"Abreviatura"
PrWIN TX_CTR, Col3,0,Col4,0,"Descrição"
PrWIN TX_CTR, Col4,0,Col5,0,"Código IRCT"
PrWIN GR_LI,     0,  esplin, ColMax, esplin      'linha
PrWin FON, "BOLD-"                              'bold
InicioEscrita=32
PrWIN COR_T,  CorLin                            'cor de linha
PrWIN FON  ,  8,   1                        	'activar fonte

End Sub

'-----------------------------------------------------------------------------
Sub Catg_Lin
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4          	'posicao base
PrWIN TX_N,  Col1,0,@Cat
PrWIN TX_N,  Col2,0,@Cat_Abrv
PrWIN TX_N,  Col3,0,@Cat_Desc
PrWIN TX_NP, Col4,0,"N",@Cat_Irct
End Sub



'-----------------------------------------------------------------------------
' Tabela de seccoes
'-----------------------------------------------------------------------------
Sub Sec_Cab
call Lst_Cab
?================================================================================
?|Codigo|               Descricao                | Abreviatura |C.C.|Info. Livre|
?================================================================================
End Sub


Sub Sec_Lin
?|@Sec  |@Sec_Desc                               |@Sec_Abrv    |@CCu|@Sec_Info  |
End Sub


Sub Sec_Fim
?================================================================================
Print PrtCmd$("[SP]");
End Sub




'-----------------------------------------------------------------------------
Sub Secg_Cab       ' Tabela de seccoes grafica
'-----------------------------------------------------------------------------
call Lstg_Cab

esp=20
Col1=0
Col2=Col1+13
Col3=Col2+72
Col4=Col3+36
Col5=Col4+20
Col6=Col5+45
ColMax=Col6

esplin=4.8

PrWIN FON  ,  10,   1                        	'activar fonte
PrWIN COR_T,CorTit                              'cor de linhas

PrWin FON, "BOLD+"                              'bold
PrWIN GR_LI,     0,  0, ColMax, 0            	'linha
PrWIN TX_N, Col1,0,"Codigo"
PrWIN TX_CTR, Col2,0,Col3,0,"Descrição"
PrWIN TX_CTR, Col3,0,Col4,0,"Abreviatura"
PrWIN TX_CTR, Col4,0,Col5,0,"C.custo"
PrWIN TX_CTR, Col5,0,Col6,0,"Informação livre"
PrWIN GR_LI,     0,  esplin, ColMax, esplin      'linha
PrWin FON, "BOLD-"                              'bold
InicioEscrita=32
PrWIN COR_T,  CorLin                            'cor de linha
End Sub

'-----------------------------------------------------------------------------
Sub Secg_Lin
'-----------------------------------------------------------------------------
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4          	'posicao base
PrWIN TX_N,  Col1,0,@Sec
PrWIN TX_N,  Col2,0,@Sec_Desc
PrWIN TX_N,  Col3,0,@Sec_Abrv
PrWIN TX_NP, Col4+8,0,"N",@Ccu
PrWIN TX_N, Col5,0,@Sec_Info
End Sub


'-----------------------------------------------------------------------------
Sub Hab_Cab  'Tabela de habilitacoes - texto
'-----------------------------------------------------------------------------
call Lst_Cab
?================================================================================
?|Cod|  Abreviatura |                          Descricao                        |
?================================================================================
End Sub


Sub Hab_Lin
?|@Hab|@HAB_Abrv    |@Hab_Desc                                                  |
End Sub


Sub Hab_Fim
?================================================================================
Print PrtCmd$("[SP]");
End Sub


'-----------------------------------------------------------------------------
Sub Habg_Cab      'Tabela de habilitacoes - grafica
'-----------------------------------------------------------------------------
call Lstg_Cab

esp=20
Col1=0
Col2=Col1+10
Col3=Col2+30
Col4=Col3+150
ColMax=Col4

esplin=4.8

PrWIN FON  ,  9,   1                        	'activar fonte
PrWIN COR_T,CorTit                              'cor de linhas

PrWin FON, "BOLD+"                              'bold
PrWIN GR_LI,     0,  0, ColMax, 0            	'linha
PrWIN TX_N, Col1,0,"Cod."
PrWIN TX_CTR, Col2,0,Col3,0,"Abreviatura"
PrWIN TX_CTR, Col3,0,Col4,0,"Descrição"
PrWIN GR_LI,     0,  esplin, ColMax, esplin      'linha
PrWin FON, "BOLD-"                              'bold
InicioEscrita=32
PrWIN COR_T,  CorLin                            'cor de linha
End Sub


Sub Habg_Lin
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4          	'posicao base
PrWIN TX_N,  Col1,0,@Hab
PrWIN TX_N,  Col2,0,@Hab_Abrv
PrWIN TX_DMX,Col3,0,Col4-Col3,@Hab_Desc
End Sub





'-----------------------------------------------------------------------------
Sub Prof_Cab      ' Tabela de profissoes - texto
'-----------------------------------------------------------------------------
call Lst_Cab
?================================================================================
?|Codigo|          Descricao           | Abreviatura | Codigo Nacional Profissao|
?================================================================================
End sub


Sub Prof_Lin
?|@Prof |@Prof_Desc                    |@Prof_Abrv   |@Prof_Cnp                 |
End Sub


Sub Prof_Fim
?================================================================================
Print PrtCmd$("[SP]");
End Sub


'-----------------------------------------------------------------------------
Sub Profg_Cab     ' Tabela de profissoes - grafico
'-----------------------------------------------------------------------------
call Lstg_Cab

esp=20
Col1=10
Col2=Col1+20
Col3=Col2+80
Col4=Col3+30
ColMax=Col4+45

esplin=4.8

PrWIN FON  , 12,   1                        	'activar fonte
PrWIN COR_T,CorTit                              'cor de linhas

PrWin FON, "BOLD+"                              'bold
PrWIN GR_LI,     0,  0, ColMax, 0            	'linha
PrWIN TX_N, Col1,0,"Codigo"
PrWIN TX_N, Col2,0,"Descrição"
PrWIN TX_N, Col3,0,"Abreviatura"
PrWIN TX_N, Col4,0,"Codigo Nac. Prof."
PrWIN GR_LI,     0,  esplin, ColMax, esplin      'linha
PrWin FON, "BOLD-"                              'bold
InicioEscrita=32
PrWIN COR_T,  CorLin                            'cor de linha
End sub


Sub Profg_Lin
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4          	'posicao base
PrWIN TX_N,  Col1,0,@Prof
PrWIN TX_N,  Col2,0,@Prof_Desc
PrWIN TX_N,  Col3+10,0,@Prof_Abrv
PrWIN TX_N,  Col4+10,0,@Prof_Cnp
End Sub





'-----------------------------------------------------------------------------
Sub Sit_Cab      ' Situacao da profissao
'-----------------------------------------------------------------------------
call Lst_Cab
?================================================================================
?|Codigo| Abreviatura |                   Descricao                             |
?================================================================================
End Sub


Sub Sit_Lin
?|@Sit  |@SIT_Abrv    |@SIT_Desc                                                |
End Sub


Sub Sit_Fim
?================================================================================
Print PrtCmd$("[SP]");
End Sub


'-----------------------------------------------------------------------------
' Tabela de IRS
'-----------------------------------------------------------------------------
Sub Irs_Cab
'call Lst_Cab
'?================================================================================
'?     Remuneracao                    Numero de Dependentes                    
'?       Mensal          0         1         2         3         4         5+  
?================================================================================
? Formato de listagem descontinuado. Utilize a impressão em modo gráfico
End Sub


Sub Irs_Lin
'?@Irs_Rem            @Irs_0d   @Irs_1d   @Irs_2d   @Irs_3d   @Irs_4d   @Irs_5d
End Sub


Sub Irs_Fim
'?================================================================================
Print PrtCmd$("[SP]");
End Sub


'-----------------------------------------------------------------------------
Sub IrsG_Cab   'listagem IRS - grafico
'-----------------------------------------------------------------------------
esp=20
Col1=10
Col2=Col1+50
Col3=Col2+esp
Col4=Col3+esp
Col5=Col4+esp
Col6=Col5+esp
Col7=Col6+esp
ColMax=Col7+30


'titulo

titulo$=MemTxt$(1)+MemTxt$(6)
PrWIN COR_F, 15                                 'cor de fundo
SigCabNorOpcTit=2 				'usar titulo indicado
Call SigCabNor
PrWIN FON  ,  10,   1                        	'activar fonte
PrWIN TX_CTR,  col1,10,ColMax,10,MemTxt$(2)
PrWIN TX_CTR,  col1,14,ColMax,14,MemTxt$(5)

PrWIN AJT_B,  Margem, 30                     'posicao base


InicioEscrita=38

lin1=1
Lin2=5
PrWIN FON  ,  10,   1                        	'activar fonte
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI,     0,  0, ColMax, 0            	'linha
PrWIN TX_N, Col1,Lin1,"Remuneração"
PrWIN TX_N, Col1,Lin2,"Mensal"

ajt=5
PrWIN TX_N, Col4,lin1,"Numero de Dependentes"
PrWIN TX_N, Col2+ajt,Lin2,"0"
PrWIN TX_N, Col3+ajt,lin2,"1"
PrWIN TX_N, Col4+ajt,lin2,"2"
PrWIN TX_N, Col5+ajt,lin2,"3"
PrWIN TX_N, Col6+ajt,lin2,"4"
PrWIN TX_N, Col7+ajt,lin2,"5 + "
PrWIN GR_LI,     0,  10, ColMax, 10          	'linha

PrWIN COR_T,  Corlin                         'cor de titulo
End Sub


Sub IrsG_Lin
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4        'posicao base
PrWIN TX_NP,     Col1,0,"N",@Irs_Rem
PrWIN TX_NP,     Col2,0,"N",@Irs_0d
PrWIN TX_NP,     Col3,0,"N",@Irs_1d
PrWIN TX_NP,     Col4,0,"N",@Irs_2d
PrWIN TX_NP,     Col5,0,"N",@Irs_3d
PrWIN TX_NP,     Col6,0,"N",@Irs_4d
PrWIN TX_NP,     Col7,0,"N",@Irs_5d
End Sub


Sub IrsG_Fim
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,Linper-2                     'posicao base
PrWIN GR_LI,     0,  0, ColMax, 0            	'linha
call SigLstRod
PrWin FP
End Sub


'-----------------------------------------------------------------------------
'Tabelas oficiais
'-----------------------------------------------------------------------------
Sub Tof_Cab
call Lst_Cab
?================================================================================
?|Codigo |  Abreviatura   |              Descricao                              |
?================================================================================
End Sub


Sub Tof_Lin
?|@TofCod|@Tof_Abrv        |@Tof_Descr                                          |
End Sub


Sub Tof_Fim
?================================================================================
Print PrtCmd$("[SP]");
End Sub


'-----------------------------------------------------------------------------
'Nivel de Qualificacao
'-----------------------------------------------------------------------------
Sub NivQ_Cab
call Lst_Cab
Print PrtCmd$("[16CPILN]");
?==================================================================================================================================
?      Codigo    |           Abreviatura                 |                                 Descricao                              |
?==================================================================================================================================
End Sub


Sub NivQ_Lin
?|@TofCod        |@Tof_Abrv                              | @Tof_Descr                                                             |
End Sub

Sub Nivq_Fim
?==================================================================================================================================
Print PrtCmd$("[10CPILN]");
Print PrtCmd$("[SP]");
End Sub
##


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