'Nome       : SegSoc.std
'Tipo       : LST
'Data       : 2002/03/20
'Versao     : 1.4
'Descricao  : Listagem para seguranca social

'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.0b 1999/12/17 ---------------------------------------------------
'Versao base

'- Versao : 1.0c  2000/01/28 --------------------------------------------------
'Nao mostrava contribuinte da empresa
'Limitar actividade a 30 digitos
'Nao mostrava taxa no canto superior direito

'- Versao : 1.0d  2000/01/28 --------------------------------------------------
'Nao limpava totais entre folhas

'- Versao : 1.0e  2000/02/07 --------------------------------------------------
'Nao mostrava correctamente os valores do CSS

'- Versao : 1.0f  2000/02/10 --------------------------------------------------
'Nao mostrava correctamente os dias

'- Versao : 1.0g  2000/02/11 --------------------------------------------------
'Nao mostrar totais de folha se ainda nao terminou o CSS

'- Versao : 1.0h  2000/03/23 --------------------------------------------------
'Assume listar processamento 0

'- Versao : 1.0i  2000/06/17 --------------------------------------------------
'Nao apresentava os valores dos rectroativos

'- Versao : 1.0j  2000/06/29 --------------------------------------------------
'Formatar valores consoante moeda da emrpesa

'- Versao : 1.0k  2000/12/04 --------------------------------------------------
'Formatar valores consoante decimais indicados pelo programa
'Impressao no formato grafico

'- Versao : 1.0l  2001/01/19 --------------------------------------------------
'Listava a data de nascimento em cima do trabalhador
'diminuir fonta para nome de trabalhador

'- Versao : 1.0m  2001/03/12 --------------------------------------------------
'Nao apresentava o valor de arredondamento
'Nao permitir a sobreposicao do nome na data de nascimento

'- Versao : 1.1   2001/04/10 --------------------------------------------------
'Nao listar valores totais quando sao zero
'Identificacao baseada no estebelecimento
'Opcao para listar conferencia

'- Versao : 1.2   2001/05/14 --------------------------------------------------
'Listagem grafica colocava titulo de mes e pagina no local errado
'Alteracao de titulos de centro Css para Instituto Css

'- Versao : 1.3   2001/12/17 --------------------------------------------------
'Conferencias Seg.Social em modo grafico

'- Versao : 1.4   2001/??/?? --------------------------------------------------
'Alteracao nos ficheiros a usar nas inclusoes


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


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


'-----------------------------------------------------------------------------
#DOC - Segurança social A3
'-----------------------------------------------------------------------------
Tipo                       [DocTip]=CRSS
Nome                       [DocNom]=SegSocA3,Segurança social A3

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=16
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Processamento a listar     [DocEsp]=PROC=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_CabA3
Listar linhas               [FxLIN]=Lin_; Trb; Zer; Ajt
Listar fim                  [FxFIM]=Lst_Fim
##


'-----------------------------------------------------------------------------
#DOC - Segurança social A4
'-----------------------------------------------------------------------------
Tipo                       [DocTip]=CRSS
Nome                       [DocNom]=SegSocA4,Segurança social A4

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=16
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Processamento a listar     [DocEsp]=PROC=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_CabA4
Listar linhas               [FxLIN]=Lin_; Trb; Zer; Ajt
Listar fim                  [FxFIM]=Lst_Fim
##


'-----------------------------------------------------------------------------
#DOC - Segurança social A4 - Grafico
'-----------------------------------------------------------------------------
Tipo                       [DocTip]=CRSS
Nome                       [DocNom]=SegSocA4_G,Segurança social A4

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=16
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Processamento a listar     [DocEsp]=PROC=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_CabG
Listar linhas               [FxLIN]=LinG_; Trb; Zer; Ajt
Listar fim                  [FxFIM]=Lst_FimG
##


'-----------------------------------------------------------------------------
#DOC - Conferencia Segurança Social
'-----------------------------------------------------------------------------
Tipo                       [DocTip]=CRSS
Nome                       [DocNom]=SegSocA4_C,Conferencia Seg.Social

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=45
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Processamento a listar     [DocEsp]=PROC=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Cnf_Cab
Listar linhas               [FxLIN]=Cnf_; Trb; Zer; Ajt
Listar fim                  [FxFIM]=Cnf_Fim
##

'-----------------------------------------------------------------------------
#DOC - Conferencia Segurança Social - Grafico
'-----------------------------------------------------------------------------
Tipo                       [DocTip]=CRSS
Nome                       [DocNom]=SegSocA4_C_G,Conferencia Seg.Social

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=55
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Processamento a listar     [DocEsp]=PROC=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=CnfG_Cab
Listar linhas               [FxLIN]=CnfG_; Trb; Zer; Ajt
Listar fim                  [FxFIM]=CnfG_Fim
##


'-----------------------------------------------------------------------------
#VAR - Variaveis
'-----------------------------------------------------------------------------
'cabecalho
DatMes    = FrmVal$(Sig_DtHoje,46,0)
DatAno    = left$(FrmVal$(Sig_DtHoje,44,0),4)
Data      = FrmVal$(Sig_DtHoje,44,0)
Folha     = Doc_CntPag

'dados da empresa
EmpContSS = GpeTabCon$("CSS",Gpe_Mst_Crss,"CTRB")
NomeCrss  = GpeTabCon$("CSS",Gpe_Mst_Crss,"NOME")

'dados da empresa
EmpCont   = left$(Emp_Inf_Contrib$,12)
'EmpActiv  = Left$(Emp_inf_Activ$,30)
'EmpNome   = Emp_Inf_Nome$
'EmpMorada = Emp_Inf_Morada$
 LocalEmp  = left$(Emp_Inf_Local$,20)
'EmpCp     = "CP "+left$(Emp_Inf_Cpost$,8)
'EmpTelef  = left$(Emp_Inf_Telef$,12)
'EmpCont   = left$(Emp_Inf_Contrib$,12)

'dados do estabelecimento
EmpActiv  = left$(GpeTabCon$("EST",Gpe_Mst_Est$,"ACTV"),30)
EmpNome   = GpeTabCon$("EST",Gpe_Mst_Est$,"NOME")
EmpMorada = GpeTabCon$("EST",Gpe_Mst_Est$,"MORADA")
EmpLocal  = left$(GpeTabCon$("EST",Gpe_Mst_Est$,"LOC"),20)
EmpCp     = "CP "+left$(GpeTabCon$("EST",Gpe_Mst_Est$,"CPOST"),8)
EmpTelef  = left$(GpeTabCon$("EST",Gpe_Mst_Est$,"TELEF"),12)


'linha
Nl        = FrmVal$(CntL,21,3)
N         = Gpe_Mst_Trb$
TrbNb     = Gpe_Mst_CrssNb$
Nome      = Gpe_Mst_Nome$
NomeCnf   = left$(Gpe_Mst_Nome$,28)
DtNasc    = FrmVal$(Gpe_Mst_DtNasc,42,0)
Categ     = GpeTabCon$("CAT",Gpe_Mst_Categ,"ABRV")
Obs       = GpeObs$(1)

D         = FrmVal$(MemNum(1),21,2)
Vbase     = GpeFrmMoe$("",8,MemNum(2))
VCom      = GpeFrmMoe$("",8,MemNum(3))
Vsub      = GpeFrmMoe$("",8,MemNum(4))

'fim
Tu        = FrmVal$(MemNum(8),20,3.2)

'totais
TCO6      = GpeFrmMoe$("",10,Total(Vbase))
TCO7      = GpeFrmMoe$("",9,Total(Vcom))
TCO8      = GpeFrmMoe$("",9,Total(Vsub))
TCO9      = GpeFrmMoe$("",10,Total(Vbase)+Total(Vcom)+Total(Vsub))
TPAG      = GpeFrmMoe$("Z=E",10,MemNum(10))
Varr      = GpeFrmMoe$("Z=E",10,MemNum(11))
Vdep      = GpeFrmMoe$("Z=E",10,MemNum(12))


'conferencia
Vinc  = FrmNum$(14.0,GpeSomaCmv("","001",-1,"V"))
Vpre  = FrmNum$(14.0,MemNum(2)+MemNum(3)+MemNum(4))
Vdif1 = FrmNum$(12.0,GpeSomaCmv("","001",-1,"V")-(MemNum(2)+MemNum(3)+MemNum(4)))
Tx    = FrmNum$( 2.2,val(GpeTabCon$("CSS",Gpe_Mst_Crss,"DES_P"))+val(GpeTabCon$("CSS",Gpe_Mst_Crss,"DES_E")))
Vss   = FrmNum$(14.0,GpeSomaCmv("","051",-1,"V")+GpeSomaCmv("","710",-1,"V"))
Vcalc = FrmNum$(14.0,GpeSomaCmv("","001",-1,"V")*(val(GpeTabCon$("CSS",Gpe_Mst_Crss,"DES_P"))+val(GpeTabCon$("CSS",Gpe_Mst_Crss,"DES_E")))/100)
Vdif2 = FrmNum$( 9.2,GpeSomaCmv("","051",-1,"V")+GpeSomaCmv("","710",-1,"V")-GpeSomaCmv("","001",-1,"V")*(GpeTabCon("CSS",Gpe_Mst_Crss,"DES_P")+GpeTabCon("CSS",Gpe_Mst_Crss,"DES_E"))/100)

'conferencia - totais
Tvinc  =FrmNum$(14.0,Total(Vinc))
Tvpre  =FrmNum$(14.0,Total(Vpre))
Tvdif1 =FrmNum$(12.0,Total(Vdif1))
Tvss   =FrmNum$(14.0,Total(Vss))
Tvcalc =FrmNum$(14.0,Total(Vcalc))
Tvdif2 =FrmNum$( 9.2,Total(Vdif2))
##


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


'-----------------------------------------------------------------------------
#PGM - Funcoes de listagem
'-----------------------------------------------------------------------------
Sub Lst_CabA3 'Cabecalho para folhas A3
Print PrtCmd$("[10CPILN]");
Call Lst_Cab
end sub


Sub Lst_CabA4 'Cabecalho para folhas A4
Print PrtCmd$("[16CPILN]");
Call Lst_Cab
end sub


Sub Lst_Cab
if Doc_CntPag=1 then
   x=totlpz(0)
end if

?SEC.ESTADO DA SEGURANCA SOCIAL +--------------------+ +-----------------------------------------------------------------+ +--------+#
?                               |DATA ENTRADA/REGISTO| | Actividade @EmpActiv                      N.Cont. @EmpContSS    | |Situacao|
?                               |                    | |                                                                 | |        |
?Inst. de Solid. e Segur.Social |                    | | Nome @EmpNome                                                   | |        |
?@NomeCrss                      |                    | |                                                                 | |        |
?                               |                    | | Morada @EmpMorada                                               | |        |
?                               |                    | | Localidade @EmpLocal            @EmpCp      Telef.@EmpTelef    #| |        |
?                               |                    | | N.Ident.Pessoa Colectiva @EmpCont                               | |Tx      |#
?                               +--------------------+ +-----------------------------------------------------------------+ +--------+#
?
?                            FOLHA DE REMUNERACOES REFERENTE AO MES DE @DatMes             DE @DatAno           FOLHA NUMERO  @Folha
?---+----------------------------------------------+----------+-------------+-------------+----------+----------+--------------------
?N  |               Beneficiarios                  |   Data   |             |Remun.Perman.|Comissoes |Sub.Ferias|
?.  |----------+-----------------------------------|Nascimento|  Categoria  |--+----------|Bonus out.|e Natal   |   Observacoes
?O  |          |         Nomes Completos        (2)|       (3)|          (4)|DD|Import.(6)|Prest. (7)|       (8)|                (9)
?R  |  Numeros |-----------------------------------+----------+-------------+--+----------+----------+----------+--------------------
?D  |       (1)|                                        TRANSPORTE.......      @TCO6     $ @TCO7    $ @TCO8    $@TCO9     $
?---+----------+---------------------------------------------------------------------------------------------------------------------
?
CntL=0                      'azerar contador linhas
end sub


Sub Lin_Trb
CntL=CntL+1                 'conta linha
?@Nl @TrbNb     @Nome                                @DtNasc   @Categ        @D @VBase   $  @Vcom   $  @Vsub   $ @Obs              #
?
end sub


Sub Lin_Ajt 'ajuste de linhas
CntL=CntL+1                 'conta linha
?@Nl                                                                                                                               #
?
end sub


Sub Lin_Zer 'linha em branco
CntL=CntL+1                 'conta linha
?@Nl                             #
?
end sub


Sub Lst_Fim
?                                                     A TRANSPORTAR......      @TCO6     $ @TCO7    $ @TCO8    $@TCO9     $ TOT.6/7/8
?------------------------------------------------------------------------------------------------------------------------------------
?+-----------------------------------------------------------------------------------+   +------------------------------------------+#
?|                       A PREENCHER PELA ENTIDADE EMPREGADORA                       |   |     A PREENCHER PELO CENTRO REGIONAL     |
?+--------------------------------------------------+--------------------------------+   +------------------------------------------+#
?| @Localemp          , ___ de ___________ de _____ |@Tu  % S/ TOTAL PAGO @TPAG     $|   |         $ PREPARADA __/__/__ ___________ |
?|                                                  | (TOTAL DAS COLUNAS 6/7/8)      |   |                                          |
?|                                                  | ARREDONDAMENTO      @Varr     $|   |         $ REGISTADA __/__/__ ___________ |
?|       ------------------------------------       |                                |   |                                          |
?|              (Assinatura e Carimbo)              | TOTAL A DEPOSITAR   @Vdep     $|   |         $ VALIDADA  __/__/__ ___________ |
?+--------------------------------------------------+--------------------------------+---+------------------------------------------+#
Print PrtCmd$("[SP]");
end sub


'- (Formato grafico) --------------------------------------------------------------------
Sub Lst_CabgIni 'funcao de inicializacao
PrWIN AJT_F, 56.7,  56.7                           'ajuste para milimetros
PrWIN ET,  2                                       'espessura de traco
PrWIN COR_F, 15                                    'cor de fundo

Margem=5
PrWIN COR_T,0                           'cor preta
fx=PrtOri("L")               'orientacao de papel
end sub


Sub Lst_CabG
if Doc_CntPag=1 then
   x=totlpz(0)
end if

Inicio=10

Col1=0
Col2=7
Col3=37
Col4=110
Col5=135
Col6=165
Col7=175
esp=22
Col8=Col7+esp
Col9=Col7+(esp*2)
Col10=Col7+(esp*3)

altQ=25     'altura dos quadros

PrWIN AJT_B,  Margem, Inicio                    'posicao base
PrWIN FON  ,   9,   1                           'activar fonte
PrWin TX_N, 0, 3,"SEC.ESTADO DA SEGURANÇA SOCIAL"
'PrWin TX_N, 0, 10,"CENTRO REGIONAL DE SEGURANÇA SOCIAL"
PrWin TX_N, 0, 10,"Instituto de Solidariadade e Segurança Social"
PrWin TX_N, 0, 13,@NomeCrss
PrWIN FON  ,   10,   1                          'activar fonte

lint=26
Tx$="FOLHA DE REMUNERAÇÕES REFERENTE AO MÊS DE "+FrmVal$(Sig_DtHoje,46,0)+" DE "+left$(FrmVal$(Sig_DtHoje,44,0),4)
PrWin TX_CTR, 0,Lint,300,lint,Tx$
Tx$="FOLHA NUMERO "+Doc_CntPag
PrWin TX_N, 235,Lint,Tx$

PrWIN FON  ,   9,   1                           'activar fonte

'caixa de entrada/registo
PrWIN AJT_B,  75, Inicio                        'posicao base
PrWIN GR_CX, 0,  0, 40, AltQ
PrWin TX_N, 0, 3,"DATA ENTRADA/REGISTO"

'caixa da actividade
PrWIN AJT_B,  117, Inicio                       'posicao base
PrWIN GR_CX, 0,  0, 126, altQ

Lin1=2
Lin2=6
Lin3=10
Lin4=14
Lin5=18

PrWin TX_N,  1,Lin1,"Actividade"
PrWin TX_N, 20,Lin1,@EmpActiv
PrWin TX_N,  1,Lin2,"Nome:"
PrWin TX_N, 14,Lin2,@EmpNome
PrWin TX_N,  1,Lin3,"Morada:"
PrWin TX_N, 14,Lin3,@EmpMorada
PrWin TX_N,  1,Lin4,"Localidade:"
PrWin TX_N, 17,Lin4,@EmpLocal
PrWin TX_N,  1,Lin5,"N.Ident.Pessoa Colectiva:"
PrWin TX_N, 40,Lin5,@EmpCont
PrWin TX_N, 80,Lin1,"N.Cont."
PrWin TX_N, 95,Lin1,@EmpContSS
PrWin TX_N, 50,Lin4,@EmpCp
PrWin TX_N, 70,Lin4,"Telef.
PrWin TX_N, 80,Lin4,@EmpTelef

PrWIN AJT_B, 245, Inicio                'posicao base
PrWIN GR_CX, 0,  0, 30, Altq
PrWin TX_CTR, 0, 3,30,3,"SITUAÇÃO"
PrWin TX_N, 8, Lin5,"Taxa "
PrWin TX_N, 15, Lin5,@Tu

Lin1=2
Lin2=6
Lin3=10
Lin4=15
FimQ=270
PrWIN AJT_B,  Margem, Inicio+30                 'posicao base
PrWIN GR_CX, 0,  0, Fimq,20                     'caixa de titulos de linha

ajtL=2

'linhas verticais
PrWin GR_LI, Col2-ajtl,0,Col2-ajtl,20
PrWin GR_LI, Col3-ajtl,Lin2,Col3-ajtl,20
PrWin GR_LI, Col4-ajtl,0,Col4-ajtl,Lin4
PrWin GR_LI, Col5-ajtl,0,Col5-ajtl,Lin4
PrWin GR_LI, Col6-ajtl,0,Col6-ajtl,Lin4
PrWin GR_LI, Col8-ajtl,0,Col8-ajtl,Lin4
PrWin GR_LI, Col9-ajtl,0,Col9-ajtl,Lin4
PrWin GR_LI, Col10-ajtl,0,Col10-ajtl,Lin4

'linha horizontal
PrWin GR_LI, Col3-ajtl,Lin4,FimQ,Lin4
PrWin GR_LI, Col2-ajtl,Lin2,Col4-ajtl,Lin2

PrWin TX_N ,Col1,Lin1  ," N"
PrWin TX_N ,Col1,Lin1+4," ."
PrWin TX_N ,Col1,Lin2  ," O"
PrWin TX_N ,Col1,Lin2+5," R"
PrWin TX_N ,Col1,Lin4  ," D"

PrWin TX_N ,Col2,Lin3,"Numeros"

PrWin TX_CTR ,Col2,Lin1,Col4,Lin1,"Beneficiarios"
PrWin TX_CTR ,Col3,Lin2+2,Col4,Lin2+2,"Nome Completos"

PrWin TX_N ,Col4,Lin1,"       Data"
PrWin TX_N ,Col4,Lin2,"Nascimento"

PrWin TX_N ,Col5,Lin2,"    Categoria"

PrWin TX_N ,Col6,Lin1,"Remun. Perman.
PrWin TX_N ,Col6,Lin2,"DD"
PrWin TX_N ,Col7,Lin2,"Import (6)"

PrWin TX_N ,Col8,Lin1,"Comissões"
PrWin TX_N ,Col8,Lin2,"Bonus outras"
PrWin TX_N ,Col8,Lin3,"Prest. (7)"

PrWin TX_N ,Col9,Lin1,"Sub.Ferias"
PrWin TX_N ,Col9,Lin2,"e Natal"
PrWin TX_N ,Col9,Lin3,"       (8)"

PrWin TX_N ,Col10,Lin2,"Observações"
PrWin TX_N ,Col10,Lin3,"       (9)"

PrWin TX_N ,Col4,Lin4+1,"TRANSPORTE ......."
PrWIN TX_NP,   Col7,Lin4,"N",@TCO6
PrWIN TX_NP,   Col8,Lin4,"N",@TCO7
PrWIN TX_NP,   Col9,Lin4,"N",@TCO8
PrWIN TX_NP,  Col10,Lin4,"N",@TCO9

CntL=0                                          'azerar contador linhas
PrWIN FON  ,   10,   1                          'activar fonte
InicioLinhas=55
End Sub


Sub LinG_Trb
CntL=CntL+1                                        'conta linha
PrWIN FON  ,   10,   1                             'activar fonte
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*6    'posicao base
PrWIN TX_N,    Col1,0,@Nl
PrWIN TX_DMX,  Col3,0,Col4-Col3+6,@Nome
PrWIN TX_N,    Col4+10,0,@DtNasc
PrWIN TX_N,    Col6,0,@D
PrWIN TX_NP,    Col7,0,"N",@Vbase
PrWIN TX_NP,    Col8,0,"N",@VCom
PrWIN TX_NP,    Col9,0,"N",@VSub
PrWIN TX_N,     Col10,0,@Obs
PrWIN FON  ,   9,   1                           'activar fonte
PrWIN TX_NP,      Col2,0,"N",@TrbNb
PrWIN TX_N,    Col5,0,@Categ
end sub


Sub LinG_Ajt 'ajuste de linhas
CntL=CntL+1                                          'conta linha
tmp=CntLin("INC",1)                                  'acertar contador linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*6      'posicao base
PrWIN TX_N,     Col1,0,@Nl
end sub


Sub LinG_Zer 'linha em branco
CntL=CntL+1                 'conta linha
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*6      'posicao base
PrWIN TX_N,     Col1,0,@Nl
end sub


Sub Lst_FimG
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*6+5    'posicao base
PrWIN TX_N,    Col4,0,"A TRANSPORTAR......"
PrWIN TX_NP,   Col7,0,"N",@TCO6
PrWIN TX_NP,   Col8,0,"N",@TCO7
PrWIN TX_NP,   Col9,0,"N",@TCO8
PrWIN TX_NP,   Col10,0,"N",@TCO9
PrWIN TX_N,   Col10+21,0,"TOT 6/7/8"

alt=35                                               'altura da caixa
fimQ=180                                             'largura do quadro
ajt=110                                              'ajuste para segunda parte do 1 quadro

Lin1=10
Lin2=20
Lin3=30

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*6+10   'posicao base
PrWIN TX_CTR,   0,1,FimQ,1,"A PREENCHER PELA ENTIDADE EMPREGADORA"
PrWIN GR_CX, 0,  0, FimQ, alt
PrWIN GR_LI,     0,  5, FimQ, 5                      'linha horizontal

PrWIN GR_LI,     Ajt,  5, ajt,alt*1                  'linha vertical

PrWIN TX_N,   5,10,@EmpLocal
PrWIN TX_N,   35,10, ", ____ de ________________ de _______"
PrWIN TX_N,   20,Lin3-5, "_________________________________"
PrWIN TX_N,   35,Lin3, "(Assinatura e Carimbo)"

cvl=ajt+45
PrWIN TX_N,   ajt+2,Lin1, @Tu
PrWIN TX_N,   ajt+17,Lin1, "S/ TOTAL PAGO"
PrWIN TX_N,   cvl,Lin1, @Tpag

PrWIN TX_N,   ajt+2,Lin1+5, "(TOTAL DAS COLUNAS 6/7/8)"
PrWIN TX_N,   ajt+2,Lin2, "ARREDONDAMENTO"
PrWIN TX_N,   cvl,Lin2, @Varr
PrWIN TX_N,   ajt+2,Lin3, "TOTAL A DEPOSITAR"
PrWIN TX_N,   cvl,Lin3, @Vdep

PrWIN AJT_B,  FimQ+10, InicioLinhas+Doc_CntLin*6+10             'posicao base
FimQ=93
PrWIN GR_CX, 0,  0, FimQ, alt

PrWIN TX_CTR,   0,1,FimQ,1,"A PREENCHER PELO CENTRO REGIONAL"
PrWIN GR_LI,     0,  5, FimQ, 5                 'linha horizontal
Cl=18
PrWIN TX_N,   Cl,Lin1, "$  PREPARADA  ___/___/___  ___________"
PrWIN TX_N,   Cl,Lin2, "$  PREPARADA  ___/___/___  ___________"
PrWIN TX_N,   Cl,Lin3, "$  PREPARADA  ___/___/___  ___________"

PrWin FP
end sub


' - Conferencia Seguranca Social ---------------------------------------------------
Sub Cnf_Cab
if Doc_CntPag=1 then
   x=totlpz(0)
end if

Print PrtCmd$("[10CPILN]");
FxDiv LstIde,10CPI,1
Print PrtCmd$("[10CPILN]");
?
?                      CONFERENCIA SEGURANÇA SOCIAL
?
?Data : @Data                                                      Folha No: @Folha
Print PrtCmd$("[16CPILN]");
?==================================================================================================================================
?|                                   |    Valor  (1)|    Valor  (2)|  Diferenca |      |    Valor  (3)|    Valor  (4)|  Diferenca |
?|Nº Emp.            Nome            |  Incidencia  | Predefinido  |   (1)-(2)  | Taxa |   S.Social   |  Calculado   |   (3)-(4)  |
?==================================================================================================================================
?
end sub


Sub Cnf_trb
?@N     @NomeCnf                      @Vinc          @Vpre          @Vdif1        @Tx   @Vss           @Vcalc         @Vdif2      #
End Sub


Sub Cnf_Ajt 'ajuste de linhas
?
end sub


Sub Cnf_Zer 'linha em branco
?
end sub


Sub Cnf_Fim
?==================================================================================================================================
?|       Totais                       @Tvinc         @Tvpre         @Tvdif1             @Tvss          @Tvcalc        @Tvdif2     #
?==================================================================================================================================
Print PrtCmd$("[SP]");
end sub



Sub CnfG_CabIni
fx=PrtOri("P")               'orientacao de papel
Call SigLstIni
end sub

Sub CnfG_Cab
if Doc_CntPag=1 then
   x=totlpz(0)
end if


esp=22
Col1=0             'trabalahdor
Col2=42                 'valor incidencia
Col3=col2+(esp*1)       'valor predefinido 
Col4=col2+(esp*2)       'diferenca 
Col5=col2+(esp*3)       'taxa
Col6=col2+(esp*4)       'valor s social
Col7=col2+(esp*5)       'valor calculado
Col8=col2+(esp*6)       'diferenca
Col9=col2+(esp*7)       'margem maxima

 Lin=2
Lin2=5
Ajt=10

SigCabNorOpcTit=2                  'alterar origem do titulo
Titulo$="Conferência Segurança Social"
Call SigCabNor


PrWIN AJT_B,  Margem, 30                    	'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0,      0, MargemD, 0              'linha
PrWIN GR_LI, 0, Lin2+3, MargemD, Lin2+3         'linha


PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN FON  ,   8,   1                        	'activar fonte
PrWIN TX_N, Col1+ajt,Lin2,"Empregado"


PrWIN TX_N, Col2+ajt,Lin ,"Valor  (1)"
PrWIN TX_N, Col2+ajt,Lin2,"Venc.Pago"

PrWIN TX_N, Col3+ajt,Lin ,"Valor  (2)"
PrWIN TX_N, Col3+ajt,Lin2,"Predefinido"

PrWIN TX_N, Col4+ajt,Lin ,"Diferença"
PrWIN TX_N, Col4+ajt,Lin2," (1) - (2)"

PrWIN TX_N, Col5+ajt,Lin ,""
PrWIN TX_N, Col5+ajt,Lin2,"Taxa"

PrWIN TX_N, Col6+ajt,Lin ,"Valor (3)"
PrWIN TX_N, Col6+ajt,Lin2,"S. Social"

PrWIN TX_N, Col7+ajt,Lin ,"Valor (4)"
PrWIN TX_N, Col7+ajt,Lin2,"Calculado"

PrWIN TX_N, Col8,Lin ,"Diferença"
PrWIN TX_N, Col8,Lin2," (3) - (4)"

PrWin COR_T, CorLin
end sub


Sub CnfG_trb
PrWIN AJT_B,  Margem, 37+Doc_CntLin*4          	'posicao base
PrWIN TX_N,    Col1,0,@N
PrWIN TX_DMX,  Col1+10,0,Col2-Col1-10,@NomeCnf
PrWIN TX_NP,   Col2,0,"N",@VInc
PrWIN TX_NP,   Col3,0,"N",@Vpre
PrWIN TX_NP,   Col4,0,"N",@Vdif1
PrWIN TX_NP,   Col5+ajt,0,"N",@Tx
PrWIN TX_NP,   Col6,0,"N",@Vss
PrWIN TX_NP,   Col7,0,"N",@Vcalc
PrWIN TX_NP,   Col8,0,"N",@Vdif2
End Sub




Sub CnfG_Fim
PrWIN AJT_B,  Margem, 265        	'posicao base

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, MargemD, 0               	'linha
PrWIN GR_LI, 0, 7, MargemD,7                	'linha

PrWIN COR_T,  CorTotGer
PrWIN TX_N,  30,2,"Totais ..."
PrWIN TX_NP,   Col2,2,"N",@TVinc
PrWIN TX_NP,   Col3,2,"N",@TVpre
PrWIN TX_NP,   Col4,2,"N",@TVdif1
PrWIN TX_NP,   Col6,2,"N",@TVss
PrWIN TX_NP,   Col7,2,"N",@Tvcalc
PrWIN TX_NP,   Col8,2,"N",@TVdif2
Call SigLstRod
PrWin FP
end sub
##


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


