'Nome       : Seguro.std
'Tipo       : SPI
'Data       : 2017/02/15
'Versao     : 2.3
'Descricao  : Mapa para seguradora

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 2.3a   2017/??/?? -------------------------------------------------
'Diminuir fonte na impressão do nome no mapa completo e resumo

'- Versao : 2.3   2015/??/?? --------------------------------------------------
'Apresentar data de validade da apólice

'- Versao : 2.2   2014/07/14 --------------------------------------------------
'Incluir pais na listagem completa
'Incluir data nascimento na data completa

'- Versao : 2.1   2012/04/02 --------------------------------------------------
'Incluir listagens anteriores compatibilizadas com novo processo

'- Versao : 2.0   2012/04/28 --------------------------------------------------
'Versao base Suporte informatico 2012



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


'-----------------------------------------------------------------------------
#ESP - Campos especificos
'-----------------------------------------------------------------------------
Zoom para preview             [PrvZoom]=1.05
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SEGURO
Nome                       [DocNom]=spi,Suporte informático

'formato
Saida/Impressora           [DocPrt]=NULA
Linhas por pagina          [DocLpg]=500
Colunas por linha          [DocCol]=
Formato do papel           [DocPap]=
Ajustar pagina             [DocApg]=0
Processamento a listar     [DocEsp]=PROC=0
tipo suporte informatico   [DocEsp]=SpiTip=seguro
Directorio ficheiros       [DocEsp]=Spidir=Spi\Seguro
Nome de ficheiro           [DocEsp]=SpiFic=[SEG-AGNUM][SEG-APNUM][MMAA].eur
Identificador de listagem  [DocEsp]=LstId=SEGSPI


'funcoes de listagem
Listar cabecalho            [FxCAB]=SpiCab
Listar linhas               [FxLIN]=Spi_; R0; R1; R2; R3
Listar fim                  [FxFIM]=SpiFim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SEGURO
Nome                       [DocNom]=spicnf_g,Conferência de Suporte Informatico 

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=60
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Nao Apresentar no menu     [DocEsp]=MnuInv=0
tipo suporte informatico   [DocEsp]=SpiTip=seguro
Directorio ficheiros       [DocEsp]=Spidir=Spi\Seguro
Nome de ficheiro           [DocEsp]=SpiFic=[SEG-AGNUM][SEG-APNUM][MMAA].eur
Identificador de listagem  [DocEsp]=LstId=SEGSPICNF



'funcoes de listagem
Listar cabecalho            [FxCAB]=CnfCab
Listar linhas               [FxLIN]=CnfLin   
Listar fim                  [FxFIM]=CnfFim
##

'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=ORDGER
Nome                       [DocNom]=SEGURO_G,Mapa Completo

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=45
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Ordenacao                  [DocEsp]=ORD=SEG
Listar valores a zero      [DocEsp]=LSTZER=1
Identificador de listagem  [DocEsp]=LstId=SEGMAPAC


'funcoes de listagem
Listar cabecalho            [FxCAB]=Seg_CabG
Listar linhas               [FxLIN]=Seg_LinG
Listar fim                  [FxFIM]=Seg_FimG
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=ORDGER
Nome                       [DocNom]=SEGURO_RES_G,Mapa Resumo

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=45
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Ordenacao                  [DocEsp]=ORD=SEG
Listar valores a zero      [DocEsp]=LSTZER=1
Identificador de listagem  [DocEsp]=LstId=SEGMAPAR


'funcoes de listagem
Listar cabecalho            [FxCAB]=SegR_CabG
Listar linhas               [FxLIN]=SegR_LinG
Listar fim                  [FxFIM]=SegR_FimG
##



'==============================================================================
#VAR - Variaveis
'==============================================================================

CnfDtRef  = left$(memtxt$(6),4)+"/"+mid$(memtxt$(6),5,2)      
CnfDtNasc = left$(memtxt$(6),4)+"/"+mid$(memtxt$(6),5,2)+"/"+mid$(memtxt$(6),7,2)

'------------------------------------------------------------------------------
'Pag      = Doc_CntPag
DatDia   = FrmVal$(Sig_DtHoje,45,0)

'LstTit   = PrtCmd$("[10CPILD]")+"Mapa de Segurados"+PrtCmd$("[10CPILN]")
'Seg      = GpeTabCon$("SEG",Gpe_Mst_CodSeg,"NOME")
'Mor      = GpeTabCon$("SEG",Gpe_Mst_CodSeg,"MORADA")
'Local    = GpeTabCon$("SEG",Gpe_Mst_CodSeg,"LOC")
'Cpos     = GpeTabCon$("SEG",Gpe_Mst_CodSeg,"CPOST")
Apo       = GpeTabCon$("SEG",Gpe_Mst_CodSeg,"AP_NUM")
ApoDtv    = FrmVal$(GpeTabCon$("SEG",Gpe_Mst_CodSeg,"AP_DTV"),44,0)


JanelaCartaL1 = GpeTabCon$("SEG",Gpe_Mst_CodSeg,"NOME")
JanelaCartaL2 = GpeTabCon$("SEG",Gpe_Mst_CodSeg,"MORADA")
JanelaCartaL3 = GpeTabCon$("SEG",Gpe_Mst_CodSeg,"LOC")
JanelaCartaL4 = GpeTabCon$("SEG",Gpe_Mst_CodSeg,"CPOST")

Nome     = Gpe_Mst_Nome$
Vbase    = GpeFrmMoe$("",11,Gpe_Mst_Vbase)
Categ    = GpeTabCon$("CAT",Gpe_Mst_Categ,"ABRV")
Pais     = Gpe_Ru_Pais$

Venc     = GpeFrmMoe$("",11,GpeAcmLst("V","SEG","P"))    
SbsAlim  = GpeFrmMoe$("",11,GpeAcmLst("V","SEG","SR"))    
Prem     = GpeFrmMoe$("",11,GpeAcmLst("V","SEG","A;B;M"))   
Subs     = GpeFrmMoe$("",11,GpeAcmLst("V","SEG","F;N"))   
Outros   = GpeFrmMoe$("",11,GpeAcmLst("V","SEG","C;D;H;O;S;T;X;2;6;I"))   
Tot      = GpeFrmMoe$("",11,GpeAcmLst("V","SEG","P;SR;A;B;M;F;N;C;D;H;O;S;T;X;2;6;I"))

Dias     = GpeFrmT$("?","###.00 ",GpeAcmLst("H","SEG","P"),110)   'ok
'DiasR    = GpeFrmT$("?","###",GpeAcmLst("H","SEG","VE"),110)


DtNasc   = FrmVal$(Gpe_Mst_DtNasc,44,0)
DtAdmi   = FrmVal$(Gpe_Mst_DtAdmi,44,0)
DtFimCt  = FrmVal$(Gpe_Mst_DtFimCt,44,0)

TSbsAlim = GpeFrmMoe$("",11,Total(SbsAlim))
Tvenc    = GpeFrmMoe$("",11,Total(Venc))
Tprem    = GpeFrmMoe$("",11,Total(Prem))
Tsubs    = GpeFrmMoe$("",11,Total(Subs))
TOutros  = GpeFrmMoe$("",11,Total(Outros))
Total    = GpeFrmMoe$("",11,Total(Tot))


'extracto de movimentos de faltas
cmv      = Gpe_Mov_Cmv$
cmvnome  = Gpe_Cmv_Descr$
cmvQu    = GpeFrmT$("?","###.00 ",gpe_mov_qcalc)
##


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



'==============================================================================
#PGM - Formato do documento (Cabecalho, Linhas e Fim)
'==============================================================================
'------------------------------------------------------------------------------
SUB SpiIni 'funcao de inicializacao
'------------------------------------------------------------------------------
fic$=GpeSeguroFx$("FIC","LOC")                          'ficheiro a usar
rSize$=GpeSeguroFx$("FIC","ROWSIZE")                    'tamanho de registo
fx=FicPrp(1, rSize$, fic$)                         'preparar ficheiro
fx=FicAbr(1)                                       'abrir ficheiro
end sub


'------------------------------------------------------------------------------
SUB SpiFim 'funcao de finalizacao
'------------------------------------------------------------------------------
fx=FicFec(1)                                       'fechar ficheiro
end sub

'------------------------------------------------------------------------------
Sub Spi_Def  'definicao campos de ficheiro
'------------------------------------------------------------------------------
fx=SpiRegIni("124","")        'preparar registo

'cabecalho
fx=SpiRegTpl("R0","Tipo de Registo")
fx=SpiRegCmp(2,"Tipo Registo")
fx=SpiRegCmp(6,"Modelo de ficheiro")
fx=SpiRegCmp(2,"")
fx=SpiRegCmp(2,"versao")
fx=SpiRegCmp(112,"")


'linha R1
fx=SpiRegTpl("R1","Tipo de Registo")
fx=SpiRegCmp(2,"Tipo Registo")
fx=SpiRegCmp(11,"NISS Entidade empregadora")
fx=SpiRegCmp(4,"Estabelecimento")
fx=SpiRegCmp(9,"Nif empresa")
fx=SpiRegCmp(66,"Razão Social")
fx=SpiRegCmp(6,"Data remunerações")
fx=SpiRegCmp(20,"Apólice")
fx=SpiRegCmp(4,"Código da seguradora")
fx=SpiRegCmp(2,"")

'linha R2
fx=SpiRegTpl("R2","Tipo de Registo")
fx=SpiRegCmp(2,"Tipo Registo")
fx=SpiRegCmp(11,"NISS Entidade empregadora ")
fx=SpiRegCmp(4,"Estabelecimento")
fx=SpiRegCmp(11,"NISS trabalhador")
fx=SpiRegCmp(60,"Nome trabalhador")
fx=SpiRegCmp(8,"Data nascimento")
fx=SpiRegCmp(6,"data referencia")
fx=SpiRegCmp(3,"Dias de trabalho",21,-2.1)
fx=SpiRegCmp(1,"Sinal dos dias")
fx=SpiRegCmp(2,"Natureza remuneração")
fx=SpiRegCmp(9,"Valor remuneração",21,8.2)
fx=SpiRegCmp(1,"Sinal da remuneração")
fx=SpiRegCmp(5,"Profissão")


'linha R3
fx=SpiRegTpl("R3","Tipo de Registo")
fx=SpiRegCmp(2,"Tipo Registo")
fx=SpiRegCmp(11,"NISS Entidade empregadora ")
fx=SpiRegCmp(4,"Estabelecimento")
fx=SpiRegCmp(11,"")
fx=SpiRegCmp(14,"Total de remunerações",21,8.2)
fx=SpiRegCmp(1,"Sinal de remunerações")
fx=SpiRegCmp(12,"Total contribuições",21,8.2)
fx=SpiRegCmp(1,"Sinal do total de contribuições")
fx=SpiRegCmp(4,"Taxa contributiva",21,2.2)
fx=SpiRegCmp(6,"Total registo trabalhadores",21,4.0)
fx=SpiRegCmp(58,"")
end sub


'------------------------------------------------------------------------------
SUB Spi_R0 'registo tipo R0
'------------------------------------------------------------------------------
txr$=GpeSeguroFx$("LIN","R0")                                     'dados a gravar
x=FicLinGrv(1, txr$)                                        'registar
end sub


'------------------------------------------------------------------------------
SUB Spi_R1 'registo tipo R1
'------------------------------------------------------------------------------
txr$=GpeSeguroFx$("LIN","R1")                                     'dados a gravar
x=FicLinGrv(1, txr$)                               	      'registar
end sub

'------------------------------------------------------------------------------
SUB Spi_R2 'registo tipo R2
'------------------------------------------------------------------------------
txr$=GpeSeguroFx$("LIN","R2")                                     'dados a gravar
x=FicLinGrv(1, txr$)                                        'registar
end sub

'------------------------------------------------------------------------------
SUB Spi_R3 'registo tipo R3
'------------------------------------------------------------------------------
txr$=GpeSeguroFx$("LIN","R3")                                     'dados a gravar
fx=FicLinGrv(1, txr$)                				'registar
end sub

'==============================================================================
'Listagem conferencia
'==============================================================================
SUB FxIni 'funcao de inicializacao
Call SigLstIni
totCtb=0                               'total das contribuicoes
totRem=0                               'total das remuneracoes
End sub


'------------------------------------------------------------------------------
Sub CnfCab 'cabecalho
'------------------------------------------------------------------------------
Col1=0                      'niss
Col2=22                     'profissao
'Col2a=Col2+22
Col3=28                     'nome
Col4=114
Col5=135
Col6=150
Col7=160
Col8=180
Col9=185

CoMax=MargemD

colTotRem=col5-4

SigCabNorOpcTit=0
titulo$="Suporte informático para companhia de seguros"

Call SigLstCab

InicioEscrita=27
InicioTitulos=InicioEscrita+14
InicioLinhas=InicioTitulos+5  'InicioTitulos
end sub


Sub LinPos
py=Doc_CntLin*4
PrWIN AJT_B,  Margem, InicioEscrita+doc_cntlin*4
end sub


'------------------------------------------------------------------------------
sub CnfLin
'------------------------------------------------------------------------------
if MemTxt$(1)="R0" then   
  'nao faz nada
end if

if MemTxt$(1)="R1" then   
  call Cnf_R1
end if

if MemTxt$(1)="R2" then   
  call Cnf_R2
end if

if MemTxt$(1)="R3" then   
  call Cnf_R3
end if
end sub


'----------------------------------------------------------------------------------------
Sub Cnf_R1
'----------------------------------------------------------------------------------------
PrWIN AJT_B, Margem, InicioEscrita             'posicao base

Lin=1
Lin2=5
Lin3=9

PrWIN COR_T,CorTraco                            'cor 
PrWIN GR_LI,     0,  0, CoMax, 0                 'linha

PrWin FON,9
PrWIN COR_T,CorTit                             'cor 

PrWIN TX_N,  0    ,Lin,"Código de Agência:"
PrWIN TX_N, 70    ,Lin,"Apólice:"

PrWIN TX_N,0       ,Lin2 ,"Razão Social:"
PrWIN TX_N,0       ,Lin3 ,"NIF da Empresa:"
PrWIN TX_N,70      ,Lin3 ,"NISS da Empresa:"
PrWIN TX_N,130     ,Lin3 ,"Data das Remunerações:"

PrWIN COR_T,CorLin                            'cor 
PrWIN TX_N, 70+15  ,Lin  ,MemTxt$(7)
PrWIN TX_N,  0+35  ,Lin  ,MemTxt$(8)
PrWin TX_N,0+25    ,Lin2 ,MemTxt$(5)
PrWin TX_N,0+30    ,Lin3 ,MemTxt$(4)
PrWIN TX_N,70+30   ,Lin3 ,MemTxt$(2)
PrWIN TX_N,130+40  ,Lin3 ,@CnfDtRef


PrWIN AJT_B,Margem,InicioTitulos
PrWin FON,9
PrWIN COR_T,CorTit                             'cor 
ln=1
PrWIN TX_N, Col1+5, ln,"NISS"
PrWIN TX_N, Col2-2 ,  ln,"Profissão"
PrWIN TX_N, Col3+20,ln,"Nome"
PrWIN TX_N, Col4,   ln,"Dt.Nascimento"
PrWIN TX_N, Col5+3, ln,"Ref"
PrWIN TX_N, Col6,   ln,"Dias"
PrWIN TX_N, Col7+5, ln,"Remunerações"
PrWIN COR_T,CorTraco                            'cor 
PrWIN GR_LI,     0,  0, CoMax, 0                 'linha
PrWIN GR_LI,     0,  5, CoMax, 5                 'linha

tmp=CntLin("INC",3)               'linhas
End Sub


'------------------------------------------------------------------------------
Sub Cnf_R2 'linha para registo tipo R2
'------------------------------------------------------------------------------
Call LinPos
PrWIN COR_T,CorLin

dtnasc$= left$(memtxt$(6),4)+"/"+mid$(memtxt$(6),5,2)+"/"+mid$(memtxt$(6),7,2)    'formatar data de nascimento
dtRef$= left$(memtxt$(7),4)+"/"+mid$(memtxt$(7),5,2)             'data

PrWIN TX_N,   Col1, 0, memtxt$(4)                             'beneficiario (numero)
PrWIN TX_N,  Col2, 0, MemTxt$(13)   
PrWin FON,8
PrWIN TX_DMX,  Col3+5, 0, Col4-Col3, left$(memtxt$(5),40)     'beneficiario (nome)
PrWin FON,9
PrWIN TX_N,  Col4+3, 0, dtnasc$                               'data de nascimento
PrWIN TX_N,  Col5, 0, dtref$                                  'data de referencia
PrWIN TX_NP,  Col6, 0,"N", MemTxt$(8)                         'dias
PrWIN TX_NP,  Col7, 0,"N", memtxt$(11)                        'valor das remuneracoes
PrWIN TX_N,  Col8, 0, memtxt$(10)                             'natureza remuneracoes
End sub


'------------------------------------------------------------------------------
Sub Cnf_R3 'linha para registo tipo R3
'------------------------------------------------------------------------------
Prwin Cor, CorTotGer
Call LinPos


PrWIN COR_T,CorTraco                            'cor 
PrWIN GR_LI,     0,  0, Col9, 0                 'linha
PrWIN GR_LI,     0,  5, Col9, 5                 'linha

ln=1
'PrWIN TX_N,  Col1,      ln, Memtxt$(2)               'contribuinte
'PrWIN TX_N,  Col2,      ln, "Registos: "   'total de registos
'PrWIN TX_N,  Col2+15,      ln,  memTxt$(10)   

'PrWIN TX_N,  Col3,      ln, "Taxa:  "+memtxt$(9)     'taxa contribuitva
'PrWIN TX_N, Col3+10,   ln, memtxt$(9)                'taxa contribuitva
PrWIN TX_N,  Col4,      ln, "Total Remunerações: "           'total das contribuicoes
'PrWIN TX_NP, ColTotRem, ln, "N",memtxt$(7)           'total das contribuicoes
PrWIN TX_NP, Col7,      ln, "N",memtxt$(5)            'total de remuneracoes
'tmp=CntLin("INC",1)                                 'acrescentar uma linha

'acumular
totCtb=totCtb+MemNum(7)                               'total das contribuicoes
totRem=totRem+MemNum(5)                               'total das remuneracoes

memNiss$=""
memNif$=""
memTrb$=""

end sub


'------------------------------------------------------------------------------
Sub CnfFimAjt 'fim intermedio
'------------------------------------------------------------------------------
Call LinPos
'PrWIN AJT_B,  Margem, LinPer-10 'posicao base
PrWIN COR_T,CorTraco                              'cor 
PrWIN GR_LI,     0,  3, Col8, 3                   'linha

PrWIN COR_T,CorTotais                             'cor 
PrWIN TX_N, Col4, 3, "Continua ... "
Prwin FP
end sub


'------------------------------------------------------------------------------
Sub CnfFim 'fim de listagem
'------------------------------------------------------------------------------
call LinPos
tCtb$=FrmNum$(11.2,totCtb)             'total das contribuicoes (formatado)
tRem$=FrmNum$(11.2,totRem)             'total das remuneracoes  (formatado)

'PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base
PrWIN COR_T,CorTraco                            'cor 
PrWIN GR_LI,     0,  0, Col9, 0                 'linha
PrWIN GR_LI,     0,  5, Col9, 5                 'linha

PrWIN COR_T,CorTotais                            'cor 
call SigLstFim
end sub




'==============================================================================
'  Listagens 
'==============================================================================

'------------------------------------------------------------------------------
' IMPRESSAO GRAFICA - MAPA COMPLETO
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
Sub Seg_CabG
'------------------------------------------------------------------------------
PrWIN COR_F, 15                              'cor de fundo 


call SigEmpMorada
Call JanelaCarta2

PrWIN FON  ,   9,   1                        	'activar fonte
PrWIN AJT_B,  Margem,40                        'posicao base
PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWin TX_N,0,0,"Apólice"
PrWin TX_N,0,5,"Validade"

PrWIN COR_T,  CorLin
PrWin TX_N,20,0,@Apo
PrWin TX_N,20,5,@ApoDtv


PrWIN AJT_B,  Margem,53                        'posicao base
Call DataPag_A4                                'data e pagina

esp=21
Col1=0
Col2=49
Col3=Col2+(esp*1)
Col4=Col2+(esp*2)
Col5=Col2+(esp*3)
Col5a=Col2+(esp*4)
Col6=Col2+(esp*5)
Col7=Col2+(esp*6)
Col8=195

Lin2=4
PrWIN FON  ,   8,   1                        	'activar fonte
PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN AJT_B,  Margem, 70                    	'posicao base
PrWIN TX_CTR,Col1,0,Col2,0,"Nome"

PrWIN TX_CTR,  Col2,0   ,Col3,   0,"V.Base"
PrWIN TX_CTR,  Col2,Lin2,Col3,Lin2,"V.Ilíquido"
PrWIN TX_CTR,  Col3,0   ,Col4,   0,"Subs. Alim"
PrWIN TX_CTR,  Col4,0   ,Col5,   0,"Prémios"
PrWIN TX_CTR,  Col4,Lin2,Col5,Lin2,"+Aj.Custo"
PrWIN TX_CTR,  Col5,0   ,Col5a,   0,"Sbs.Férias"
PrWIN TX_CTR,  Col5,Lin2,col5a,Lin2,"+Natal"
PrWIN TX_CTR, Col5a,0   ,Col6,   0,"Outros"
PrWIN TX_CTR,  Col6,0   ,Col7   ,0,"V. Recebido"

PrWIN TX_N,    Col7+2,0             ,"Tempo"
PrWIN TX_N,    Col7+1,Lin2          ,"Trabalho"

PrWIN COR_T,CorTraco                           'cor 
PrWIN GR_LI, 0, 0, Col8, 0                     'linha
PrWIN GR_LI, 0, 8, Col8,8                      'linha
PrWIN COR_T,CorLin                             'cor 
End Sub


'------------------------------------------------------------------------------
Sub Seg_LinG
'------------------------------------------------------------------------------
PrWIN AJT_B,  Margem, 75+Doc_CntLin*4          	'posicao base

PrWIN FON  ,   6,   1                        	'activar fonte
PrWIN COR_T,  CorLin                             'cor
PrWIN TX_DMX,   Col1,0+1,Col2-Col1,@Nome

PrWIN FON  ,   8,   1                        	'activar fonte

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN TX_N,     Col1,Lin2       ,"País:"
PrWIN COR_T,  CorLin                             'cor
PrWIN TX_N,     Col1+8,Lin2       ,@Pais


PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN TX_N,     Col1+13,Lin2       ,"Categoria :"
PrWIN COR_T,  CorLin                             'cor
PrWIN TX_N,     Col1+27,Lin2    ,@Categ


PrWIN TX_NP,    Col2,0   ,"N",@Vbase
PrWIN TX_NP,    Col2,Lin2,"N",@Venc

PrWIN TX_NP,    Col3,0,"N",@SbsAlim
PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN TX_N,     Col3,Lin2       ,"Dt.Nascimento :"
PrWIN COR_T,  CorLin                             'cor
PrWIN TX_NP,    Col4,   0,"N",@Prem
PrWIN TX_NP,    Col4,Lin2,"N",@DtNasc
PrWIN TX_NP,    Col5,   0,"N",@Subs
PrWIN TX_NP,   Col5a,   0,"N",@Outros
PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN TX_N,     Col5-3,Lin2       ,"Dt.Inicio contrato :"
PrWIN TX_N,     Col6-2,Lin2       ,"Dt.Fim contrato :"

PrWIN COR_T,  CorLin                             'cor

PrWIN TX_NP,    Col6,0,"N",@Tot
PrWIN TX_NP,    Col5+20,Lin2,"N",@DtAdmi
PrWIN TX_NP,    Col6+20,Lin2,"N",@DtFimCt

PrWIN TX_NP,    Col7,0,"N",@Dias
fx=CntLin("INC",1)                              'incrementar linha

cnt=GpeSqlMov("",0,0,"410:550")                 'verificar existencia de movimentos
for mv=1 to cnt                                 'listar se existentes
  fx=CntLin("INC",1)                            'incrementar linha
  PrWIN AJT_B,  Margem, 75+Doc_CntLin*4         'posicao base
  PrWIN TX_N,    Col1+10,0    ,@Cmv             'codigo
  PrWIN TX_N,    Col1+18,0    ,@CmvNome         'nome
  PrWIN TX_NP,   Col3   ,0,"N",@cmvQu           'quantidade
  fx=GpeSqlMovLer("+")                          'registo seguinte
next
End Sub


'------------------------------------------------------------------------------
Sub Seg_FimG
'------------------------------------------------------------------------------
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,265                 		'posicao base
PrWIN GR_LI,     0,  0, Col8, 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, Col1,  0,Col2,0,"Totais ..."
PrWIN TX_NP,  Col2,  0,"N",@Tvenc
PrWIN TX_NP,  Col3,  0,"N",@TSbsAlim
PrWIN TX_NP,  Col4,  0,"N",@TPrem
PrWIN TX_NP,  Col5,  0,"N",@TSubs
PrWIN TX_NP, Col5a,  0,"N",@TOutros
PrWIN TX_NP,  Col6,  0,"N",@Total
call SigLstRod
PrWin FP

if MemTxt$(3)="FIM" then 
  fx=totlpz(0)
end if
End Sub


'------------------------------------------------------------------------------
' IMPRESSAO GRAFICA  - MAPA RESUMO 
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
Sub SegR_CabG
'------------------------------------------------------------------------------
PrWIN COR_F, 15                              'cor de fundo 
call SigEmpMorada
Call JanelaCarta2

PrWIN FON  ,   9,   1                        	'activar fonte
PrWIN AJT_B,  Margem,40                        'posicao base
PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWin TX_N,0,0,"Apólice"
PrWin TX_N,0,5,"Validade"

PrWIN COR_T,  CorLin
PrWin TX_N,20,0,@Apo
PrWin TX_N,20,5,@ApoDtv

PrWIN AJT_B,  Margem,53                     'posicao base
Call DataPag_A4                             'data e pagina

esp=16
Col1=0
Col2=65
Col3=Col2+14
Col4=Col3+esp
Col5=Col4+14
Col6=Col5+esp
Col7=Col6+esp
Col7b=Col7+esp
Col8=Col7b+esp
Colmax=col8+20

Lin=1
Lin2=4
ajc=7
PrWIN FON  ,   8,   1                        	'activar fonte
PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN AJT_B,  Margem, 70                    	'posicao base
PrWIN TX_CTR,Col1,Lin,Col2,Lin,"Nome"
PrWIN TX_N,  Col2,Lin,"Dias"
PrWIN TX_N,  Col3,Lin,"Categoria"
PrWIN TX_N,  Col4,Lin,"Remuneração"
PrWIN TX_N,  Col5+ajc,Lin,"Sub.Alim."
PrWIN TX_N,  Col6+ajc,Lin,"Prémios"
PrWIN TX_N,  Col6+ajc,Lin2,"+Aj.Custo"
PrWIN TX_N,  Col7+ajc,Lin,"Férias"
PrWIN TX_N,  Col7+ajc,Lin2,"+Natal"
PrWIN TX_N,  Col7b+ajc,Lin,"Outros"
PrWIN TX_N,  Col8+ajc,Lin,"Total"
PrWIN COR_T,CorTraco                            'cor 
PrWIN GR_LI, 0, 0, ColMax, 0               	'linha
PrWIN GR_LI, 0, 8, ColMax,8               	'linha
PrWIN COR_T,CorLin                              'cor 
PrWIN FON  ,   8,   1                        	'activar fonte
End Sub


'------------------------------------------------------------------------------
Sub SegR_LinG
'------------------------------------------------------------------------------
PrWIN AJT_B,  Margem, 75+Doc_CntLin*4          	'posicao base
PrWIN FON  ,   6,   1                        	'activar fonte
PrWIN TX_DMX,   Col1,0,Col2-Col1,@Nome
PrWIN TX_NP,    Col3,0,"N",@Categ
PrWIN FON  ,   8,   1                        	'activar fonte
PrWIN TX_NP,    Col2,0,"N",@Dias
PrWIN TX_NP,    Col4,0,"N",@Venc
PrWIN TX_NP,    Col5,0,"N",@SbsAlim
PrWIN TX_NP,    Col6,0,"N",@Prem
PrWIN TX_NP,    Col7,0,"N",@Subs
PrWIN TX_NP,   Col7b,0,"N",@Outros
PrWIN TX_NP,    Col8,0,"N",@Tot
End Sub


'------------------------------------------------------------------------------
Sub SegR_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, Col1,  0,Col2,0,"Totais ..."
PrWIN TX_NP,  Col4,  0,"N",@Tvenc
PrWIN TX_NP,  Col5,  0,"N",@TSbsAlim
PrWIN TX_NP,  Col6,  0,"N",@TPrem
PrWIN TX_NP,  Col7,  0,"N",@TSubs
PrWIN TX_NP,  Col7b, 0,"N",@TOutros
PrWIN TX_NP,  Col8,  0,"N",@Total
call SigLstRod
PrWin FP
if MemTxt$(3)="FIM" then 
  fx=totlpz(0)
end if
End Sub



##

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