'Nome       : GtsLtrSit.std
'Tipo       : LST
'Data       : 2009/01/09
'Versao     : 1.1
'Descricao  : Situacao de Letras

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.1   2009/??/?? --------------------------------------------------
'Listagem grafica

'- Versao : 1.0a  2005/04/01 --------------------------------------------------
'Novos formatos de listagem

'- Versao : 1.0   2004/09/11 --------------------------------------------------
'Versao base


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
Zoom para preview             [PrvZoom]=1
'Opcoes para impressora WIN   [PrWinOpc]=[ORI=P]
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=LtrSit
Nome                       [DocNom]=LtrSit,Situação de Letras

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=XXX=Xyz

'funcoes de listagem
Listar cabecalho            [FxCAB]=Ltr_Cab
Listar linhas               [FxLIN]=Ltr_Lin; Sep; Sbt
Listar fim                  [FxFIM]=Ltr_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=LtrSit
Nome                       [DocNom]=LtrSitAdi,Situação de Letras (+ADI)

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=XXX=Xyz

'funcoes de listagem
Listar cabecalho            [FxCAB]=LtrAdi_Cab
Listar linhas               [FxLIN]=LtrAdi_Lin, 2; Sep; Sbt
Listar fim                  [FxFIM]=LtrAdi_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=LtrRfo
Nome                       [DocNom]=LtrRfo,Cadeia de Reformas

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=XXX=Xyz

'funcoes de listagem
Listar cabecalho            [FxCAB]=Rfo_Cab
Listar linhas               [FxLIN]=Rfo_Lin
Listar fim                  [FxFIM]=Rfo_Fim
##


 '==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=LtrSit
Nome                       [DocNom]=LtrSit_G,Situação de Letras

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=LtrSitG_Cab
Listar linhas               [FxLIN]=LtrSitG_Lin; Sep; Sbt
Listar fim                  [FxFIM]=LtrSitG_Fim

Especifico do documento    [DocEsp]=XXX=Xyz
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=LtrSit
Nome                       [DocNom]=LtrSitAdi_G,Situação de Letras (+ADI)

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=XXX=Xyz

'funcoes de listagem
Listar cabecalho            [FxCAB]=LtrAdiG_Cab
Listar linhas               [FxLIN]=LtrAdiG_Lin, 2; Sep; Sbt
Listar fim                  [FxFIM]=LtrAdiG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=LtrRfo
Nome                       [DocNom]=LtrRfo_G,Cadeia de Reformas

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=XXX=Xyz

'funcoes de listagem
Listar cabecalho            [FxCAB]=RfoG_Cab
Listar linhas               [FxLIN]=RfoG_Lin
Listar fim                  [FxFIM]=RfoG_Fim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
'------------------------------------------------------------------------------
'Lista de variaveis especificas
'------------------------------------------------------------------------------
'valores texto
'MemTxt$(01)   - titulo da listagem


'valores numericos
'MemNum(20)    - subtotal - registos
'MemNum(21)    - subtotal - valor

'MemNum(30)    - total    - registos
'MemNum(31)    - total    - valor

'MemNum(40)    - receber  - registos
'MemNum(41)    - receber  - valor

'MemNum(50)    - pagar    - registos
'MemNum(51)    - pagar    - valor

'MemNum(60)    - banco    - registos
'MemNum(61)    - banco    - valor


'------------------------------------------------------------------------------
'Formatacao de valores
'------------------------------------------------------------------------------
Tipo     =MemTxt$(1)
Pag      =Doc_CntPag
DataExt  =FrmVal$(Sig_DtHoje,45,0)

'dados da conta
ctNom    = Left$(Cta_Mst_Nome$,40)


'registo de letras
ltrTdo   = Gts_Ltr_Tdoc$
ltrNdo   = Gts_Ltr_Ndoc$
ltrDoc   = GtsFrmNdo$("46",Gts_Ltr_Tdoc$,Gts_Ltr_Ndoc$)
ltrDes   = Gts_Ltr_Des$
ltrRP    = Gts_Ltr_RP$

ltrDte   = FrmDt$("", Gts_Ltr_Dte)
ltrDtv   = FrmDt$("", Gts_Ltr_Dtv)

ltrCt    = Gts_Ltr_Ct$
ltrVmn   = FrmNum$(12.2,Gts_Ltr_Vmn)
ltrSit   = Gts_Ltr_BncSit


sbtNrg   = FrmNum$( 5.0, MemNum(20))
sbtVmn   = FrmNum$(12.2, MemNum(21))

totNrg   = FrmNum$( 5.0, MemNum(30))
totVmn   = FrmNum$(12.2, MemNum(31))

recNrg   = FrmNum$( 5.0, MemNum(40))
recVmn   = FrmNum$(12.2, MemNum(41))

pagNrg   = FrmNum$( 5.0, MemNum(50))
pagVmn   = FrmNum$(12.2, MemNum(51))

bncNrg   = FrmNum$( 5.0, MemNum(60))
bncVmn   = FrmNum$(12.2, MemNum(61))

trp      = Gts_Ltr_RP$
npr      = vLtrNpr$

'cadeia de reforma
rfiDocLst = rfiDoc$
rfiVmnLst = rfiVmn$
##


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


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------------->'Comentario (58)
'---------------------------------------------------->'Comentario (55)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)

'-----------------------------------------------------------------------------
' Funcoes para inicializacao
'-----------------------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
'modo WIN
PrWIN AJT_F, 56.7,  56.7                   'ajuste para milimetros
PrWIN AJT_D,-280.0,-280.0                  'deslocamento de ajuste 
'PrWIN IMG_F, 1, VarTx$("[SIG_DIR.DIV],OliLogo.bmp","R")     'imagem (logotipo)
PrWIN ET,  2                               'espessura de traco 
end sub


SUB FxFim 'funcao de finalizacao
PrWIN FON, "REG"                           'limpar registo de fontes
end sub


'------------------------------------------------------------------------------
' Situacao de letras
'------------------------------------------------------------------------------
Sub Ltr_CabGer 'cabecalho
FxDiv LstIde,16CPI,0
print TxTit$("TT=10CPI, LD, PT=66C, TL=16CPI",tit$)
?Data : @DataExt                                                                                                     Folha No : @Pag#
?====================================================================================================================================
?Conta          Tip    Documento       Descrição                 Dt. Emiss.  Dt. Venc.  Prest         Valor    Sit  
'<12345678.1234><234><123,456/2004><23456789.123456789.123456789><2004/05/05><2004/05/05><234><23456789.123456><2345>
?====================================================================================================================================
end sub


Sub Ltr_Cab 'cabecalho
tit$ = MemTxt$(1)                      'titulo
call Ltr_CabGer                        'listar cabecalho
end sub


Sub Ltr_Lin 'linha de dados
vLtrNpr$ = trim$(str$(Gts_Ltr_PreNum)) + "/" + trim$(str$(Gts_Ltr_PreNpr))

?@ltrCt          @trp@ltrDoc      @ltrDes                       @ltrDte     @ltrDtv     @Npr @ltrVmn           @ltrSit              #
end sub


Sub Ltr_LinSbt 'linha de subtotais
?                                 Subtotal:                                           @sbtNrg@sbtVmn                                #
end sub


Sub Ltr_LinSep 'linha de separacao
print
end sub


Sub Ltr_FimAjt 'fim de pagina intermedia
print string$(132,"=")                             'listar separador
FxDiv LstPer,SP                                    'fim de pagina
'Print PrtCmd("[SP]");
end sub


Sub Ltr_Fim 'fim de listagem
print string$(132,"=")                             'listar separador
?                                                                  Total a Receber:   @recNrg@recVmn                                #
?                                                                  Total a Pagar:     @pagNrg@pagVmn                                #
?                                                                  Total do Banco:    @bncNrg@bncVmn                                #
print string$(132,"-")                             'listar separador
?                                                                  Total da situação: @totNrg@totVmn                                #
print string$(132,"=")                             'listar separador
FxDiv LstPer,SP                                    'fim de pagina
'Print PrtCmd("[SP]");
end sub


'------------------------------------------------------------------------------
' Situacao de letras com informacao adicional
'------------------------------------------------------------------------------
Sub LtrAdi_Cab 'cabecalho
tit$ = "Situação de Letras"            'titulo
call Ltr_CabGer                        'listar cabecalho
end sub


Sub LtrAdi_Lin 'linha de dados
tdo$ = Gts_Ltr_Tdoc$                   'tipo da letra
ndo$ = Gts_Ltr_Ndoc$                   'numero da letra

rfoPri$ = GtsRfoNdoIni$(tdo$, ndo$)                'inicio da cadeia de reforma
if rfoPri$ <> "" then                              'encontrou inicio ?
   vRfoIni = GtsLtrVal(tdo$, rfoPri$)              'valor do inicio
   rfiDoc$ = GtsFrmNdo$("46", tdo$, rfoPri$)       'formatar documento
   rfiVmn$ = FrmNum$(12.2, vRfoIni)                'formatar valor
else
   vRfoIni = 0                         'invalidar valor inicial
   rfiDoc$ = ""                        'anular valor
   rfiVmn$ = ""                        'anular valor
end if

call Ltr_Lin                           'linha de dados
?                @ctNom                                                                      @rfiVmnLst        @rfiDocLst           #
end sub


Sub LtrAdi_LinSbt 'linha de subtotais
call Ltr_LinSbt                        'linha de subtotais
end sub


Sub LtrAdi_LinSep 'linha de separacao
print
end sub


Sub LtrAdi_FimAjt 'fim de pagina intermedia
call Ltr_FimAjt                        'fim de pagina intermedia
end sub


Sub LtrAdi_Fim 'fim de listagem
call Ltr_Fim                           'fim de listagem
end sub


'------------------------------------------------------------------------------
' Cadeia de reformas
'------------------------------------------------------------------------------
Sub Rfo_Cab 'cabecalho
FxDiv LstIde,16CPI,0
print TxTit$("TT=10CPI, LD, PT=66C, TL=16CPI",MemTxt$(1))
?Data : @DataExt                                                                                                     Folha No : @Pag#
?====================================================================================================================================
?Conta          Tip    Documento       Descrição                 Dt. Emiss.  Dt. Venc.  Prest         Valor    Sit  
'<12345678.1234><234><123,456/2004><23456789.123456789.123456789><2004/05/05><2004/05/05><234><23456789.123456><2345>
?====================================================================================================================================
end sub


Sub Rfo_Lin 'linha de dados
vLtrNpr$ = trim$(str$(Gts_Ltr_PreNum)) + "/" + trim$(str$(Gts_Ltr_PreNpr))

?@ltrCt          @trp@ltrDoc      @ltrDes                       @ltrDte     @ltrDtv     @Npr @ltrVmn           @ltrSit              #
end sub


Sub Rfo_Fim 'fim de listagem
print string$(132,"=")                             'listar separador
'?                                                                  Total a Receber:   @recNrg@recVmn                                #
'?                                                                  Total a Pagar:     @pagNrg@pagVmn                                #
'?                                                                  Total do Banco:    @bncNrg@bncVmn                                #
'print string$(132,"-")                             'listar separador
'?                                                                  Total da situação: @totNrg@totVmn                                #
'print string$(132,"=")                             'listar separador
FxDiv LstPer,SP                                    'fim de pagina
'Print PrtCmd("[SP]");
end sub


'================================================================================
'Situação das Letras (Grafica)
'================================================================================
Sub LtrSitG_CabIni                                 'inicializar cabecalho
call Reg_Prp                                       'preparar
end sub


Sub LtrSitG_Cab 'cabecalho
Titulo$=MemTxt$(1)                                 'titulo da listagem

Cmax  =190                                         'maximo de colunas
FimDoc=272                                         'fim documento
Margem=15                                          'margem esquerda
Call SigLstCab 

PrWIN AJT_B,  Margem, 26                           'posicao base
PrWIN COR_T,CorTraco                               'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0               	   'linha
PrWIN GR_LI, 0, 6, Cmax, 6                         'linha

TCol1 =   2
TCol2 =  16
TCol3 =  84
TCol4 = 103
TCol5 = 122
TCol6 = 143
TCol7 = 165
TCol8 = 180


PrWIN COR_T,  CorTitLst                           'cor de titulo
PrWIN FON  , 8,   1                               'activar fonte

PrWIN FON, "BOLD+"                                'activar bold
PrWIN TX_N,  TCol1 , 1.5, "Conta"                 'titulo
PrWIN TX_N,  TCol2 , 1.5, "Nome"                  'titulo
PrWIN TX_N,  TCol3 , 1.5, "Numero"                'titulo
PrWIN TX_N,  TCol4 , 1.5, "Reforma"               'titulo
PrWIN TX_N,  TCol5 , 1.5, "Dt.Emissão"            'titulo
PrWIN TX_N,  TCol6 , 1.5, "DT.Venc."              'titulo
PrWIN TX_N,  TCol7 , 1.5, "Valor"                 'titulo
PrWIN TX_N,  TCol8 , 1.5, "Sit"                   'titulo
PrWIN FON, "BOLD-"                                'desactivar bold
end sub


Sub LtrSitG_Lin 'linha de valores
vLtrNpr$ = trim$(str$(Gts_Ltr_PreNum)) + "/" + trim$(str$(Gts_Ltr_PreNpr))



tdo$ = Gts_Ltr_Tdoc$                              'tipo da letra
ndo$ = Gts_Ltr_Ndoc$                              'numero da letra

rfoPri$ = GtsRfoNdoIni$(tdo$, ndo$)               'inicio da cadeia de reforma
if rfoPri$ <> "" then                             'encontrou inicio ?
   vRfoIni = GtsLtrVal(tdo$, rfoPri$)             'valor do inicio
   rfiDoc$ = GtsFrmNdo$("46", tdo$, rfoPri$)      'formatar documento
   rfiVmn$ = FrmNum$(12.2, vRfoIni)               'formatar valor
else
   vRfoIni = 0                                    'invalidar valor inicial
   rfiDoc$ = ""                                   'anular valor
   rfiVmn$ = ""                                   'anular valor
end if

LCol1 =   1
LCol2 =  17
LCol3 =  87
LCol4 =  97
LCol5 = 122
LCol6 = 143
LCol7 = 150
LCol8 = 176

InicioLinhas=28
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4    'posicao base
PrWIN TX_NP, LCol1 , 0,"N",@ltrCt                  'conta
PrWIN TX_NP, LCol2 , 0,"N",@ctnom                  'tipo
PrWIN TX_NP, LCol3-9,0,"N",@ltrDoc                 'letra
PrWIN TX_NP, LCol4 , 0,"N",@rfiDocLst              'reforma
PrWIN TX_NP, LCol5 , 0,"N",@ltrDte                 'data de emissão
PrWIN TX_NP, LCol6 , 0,"N",@ltrDtv                 'data de vencimento
PrWIN TX_NP, LCol7+3,0,"N",@ltrVmn                 'valor
PrWIN TX_NP, LCol8+3,0,"N",@ltrSit                 'situação
End sub


Sub LtrSitG_LinSbt 'linha de sub-totais
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4    'posicao base
PrWIN TX_N , LCol2, 1.0,"Sub-Total:"               'titulo
PrWIN TX_NP, LCol2+77 ,1.0,"N",@sbtNrg             'numero de prestacoes
PrWIN TX_NP, LCol7+3 ,1.0,"N",@sbtVmn              'valor das prestacoes
end sub


Sub LtrSitG_LinSep 'linha de separacao
'print
end sub


SUB LtrSitG_Fim 'fim de pagina
PrWIN COR_T,CorTraco                                  'cor de linhas
PrWIN AJT_B,  Margem, FimDoc-15                       'posicao base
PrWIN GR_LI, 0, 0, Cmax, 0               	      'linha

LCol2 =  30
LCol7 = 134
LCol8 = 155

PrWIN TX_N , LCol2, 1.0,"Total a Receber:"            'titulo
PrWIN TX_NP, LCol7 ,1.0,"N", @recNrg                  'numero de prestacoes a receber
PrWIN TX_NP, LCol8 ,1.0,"N", @recVmn                  'valor das prestacoes a receber

PrWIN AJT_B,  Margem, FimDoc-10                       'posicao base
PrWIN TX_N , LCol2, 1.0,"Total a Pagar:"              'titulo
PrWIN TX_NP, LCol7 ,1.0,"N", @pagNrg                  'numero de prestacoes a pagar
PrWIN TX_NP, LCol8 ,1.0,"N", @pagVmn                  'valor das prestacoes a pagar

PrWIN AJT_B,  Margem, FimDoc-5                        'posicao base
PrWIN TX_N , LCol2, 1.0,"Total do Banco:"             'titulo
PrWIN TX_NP, LCol7 ,1.0,"N", @bncNrg                  'numero de prestacoes do banco
PrWIN TX_NP, LCol8 ,1.0,"N", @bncVmn                  'valor das prestacoes do banco

PrWIN AJT_B,  Margem, FimDoc                          'posicao base
PrWIN TX_N , LCol2, 1.0,"Total da Situação:"          'titulo
PrWIN TX_NP, LCol7 ,1.0,"N", @totNrg                  'numero de prestacoes total
PrWIN TX_NP, LCol8 ,1.0,"N", @totVmn                  'valor das prestacoes total
PrWIN GR_LI, 0, 0, Cmax, 0               	      'linha

Call SigLstRod                                        'listar rodape
PrWin FP
end sub


'================================================================================
'Situação das Letras+ADI (Grafica)
'================================================================================
Sub LtrAdiG_CabIni                                 'inicializar cabecalho
call Reg_Prp                                       'preparar
end sub


Sub LtrAdiG_Cab 'cabecalho
Titulo$ = MemTxt$(1)                               'titulo
Cmax  =190
FimDoc=272
Margem=15
Call SigLstCab 

PrWIN AJT_B,  Margem, 26                           'posicao base
PrWIN COR_T,CorTraco                               'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0               	   'linha
PrWIN GR_LI, 0, 6, Cmax, 6                         'linha

TCol1 =   1
TCol2 =  15
TCol3 =  72
TCol4 =  82
TCol5 = 102
TCol6 = 124
TCol7 = 142
TCol8 = 160
TCol9 = 182

PrWIN COR_T,  CorTitLst                           'cor de titulo
PrWIN FON  , 8,   1                               'activar fonte

PrWIN FON, "BOLD+"                                'activar bold
PrWIN TX_N,  TCol1 , 1.5, "Conta"                 'titulo
PrWIN TX_N,  TCol2 , 1.5, "Nome"                  'titulo
PrWIN TX_N,  TCol3 , 1.5, "Tipo"                  'titulo
PrWIN TX_N,  TCol4 , 1.5, "Numero"                'titulo
PrWIN TX_N,  TCol5 , 1.5, "Dt.Emissão"            'titulo
PrWIN TX_N,  TCol6 , 1.5, "DT.Venc."              'titulo
PrWIN TX_N,  TCol7 , 1.5, "Prest"                 'titulo
PrWIN TX_N,  TCol8 , 1.5, "Valor"                 'titulo
PrWIN TX_N,  TCol9 , 1.5, "Sit"                   'titulo
PrWIN FON, "BOLD-"                                'desactivar bold
end sub


Sub LtrAdiG_Lin 'linha de valores
tdo$ = Gts_Ltr_Tdoc$                              'tipo da letra
ndo$ = Gts_Ltr_Ndoc$                              'numero da letra

rfoPri$ = GtsRfoNdoIni$(tdo$, ndo$)               'inicio da cadeia de reforma
if rfoPri$ <> "" then                             'encontrou inicio ?
   vRfoIni = GtsLtrVal(tdo$, rfoPri$)             'valor do inicio
   rfiDoc$ = GtsFrmNdo$("46", tdo$, rfoPri$)      'formatar documento
   rfiVmn$ = FrmNum$(12.2, vRfoIni)               'formatar valor
else
   vRfoIni = 0                         'invalidar valor inicial
   rfiDoc$ = ""                        'anular valor
   rfiVmn$ = ""                        'anular valor
end if

vLtrNpr$ = trim$(str$(Gts_Ltr_PreNum)) + "/" + trim$(str$(Gts_Ltr_PreNpr))

LCol1 =   1
LCol2 =  17
LCol3 =  77
LCol4 =  77
LCol5 = 102
LCol6 = 122
LCol7 = 143
LCol8 = 150
LCol9 = 176

InicioLinhas=28
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4    'posicao base
PrWIN TX_NP, LCol1 , 0,"N",@ltrCt                  'conta
PrWIN TX_NP, LCol2 , 0,"N",@ctnom                  'tipo
PrWIN TX_NP, LCol3 , 0,"N",@trp                    'documento
'PrWIN TX_NP, LCol4 , 0,"N",@ltrDes                 'descricao
PrWIN TX_NP, LCol4 , 0,"N",@ltrDoc                 'descricao
PrWIN TX_NP, LCol5 , 0,"N",@ltrDte                 'data de emissão
PrWIN TX_NP, LCol6 , 0,"N",@ltrDtv                 'data de vencimento
PrWIN TX_NP, LCol7 , 0,"N",@Npr                    'numero de prestacoes
PrWIN TX_NP, LCol8 , 0,"N",@ltrVmn                 'valor
PrWIN TX_NP, LCol9 , 0,"N",@ltrSit                 'situação


InicioLinhas=32
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4    'posicao base
PrWIN TX_N,  LCol1 ,  0,"Descrição: "              'texto descricao
PrWIN TX_NP, LCol1+16,0,"N",@ltrDes                'descricao
PrWIN TX_N,  LCol5 ,  0,"Letra Reformada: "        'texto descricao
PrWIN TX_NP, 125   ,  0,"N",@rfiDocLst             'valor
PrWIN TX_NP, LCol8 ,  0,"N",@rfivmnLst             'numero de prestacoes
End sub


Sub LtrAdiG_LinSbt 'linha de sub-totais
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4    'posicao base
PrWIN TX_N , LCol2, 1.0,"Sub-Total:"               'titulo
PrWIN TX_NP, LCol7 ,1.0,"N",@sbtNrg                'numero de prestacoes
PrWIN TX_NP, LCol8 ,1.0,"N",@sbtVmn                'valor das prestacoes
end sub


Sub LtrAdiG_LinSep 'linha de separacao
'print
end sub


SUB LtrAdiG_Fim 'fim de pagina
PrWIN COR_T,CorTraco                                  'cor de linhas
PrWIN AJT_B,  Margem, FimDoc-15                       'posicao base
PrWIN GR_LI, 0, 0, Cmax, 0               	      'linha

LCol2 =  30
LCol7 = 134
LCol8 = 142

PrWIN TX_N , LCol2, 1.0,"Total a Receber:"            'titulo
PrWIN TX_NP, LCol7 ,1.0,"N", @recNrg                  'numero de prestacoes a receber
PrWIN TX_NP, LCol8 ,1.0,"N", @recVmn                  'valor das prestacoes a receber

PrWIN AJT_B,  Margem, FimDoc-10                       'posicao base
PrWIN TX_N , LCol2, 1.0,"Total a Pagar:"              'titulo
PrWIN TX_NP, LCol7 ,1.0,"N", @pagNrg                  'numero de prestacoes a pagar
PrWIN TX_NP, LCol8 ,1.0,"N", @pagVmn                  'valor das prestacoes a pagar

PrWIN AJT_B,  Margem, FimDoc-5                        'posicao base
PrWIN TX_N , LCol2, 1.0,"Total do Banco:"             'titulo
PrWIN TX_NP, LCol7 ,1.0,"N", @bncNrg                  'numero de prestacoes do banco
PrWIN TX_NP, LCol8 ,1.0,"N", @bncVmn                  'valor das prestacoes do banco

PrWIN AJT_B,  Margem, FimDoc                          'posicao base
PrWIN TX_N , LCol2, 1.0,"Total da Situação:"          'titulo
PrWIN TX_NP, LCol7 ,1.0,"N", @totNrg                  'numero de prestacoes total
PrWIN TX_NP, LCol8 ,1.0,"N", @totVmn                  'valor das prestacoes total
PrWIN GR_LI, 0, 0, Cmax, 0               	      'linha

Call SigLstRod                                        'listar rodape
PrWin FP
end sub


'================================================================================
'CDadeia de reforma (Grafica)
'================================================================================
Sub RfoG_CabIni                                 'inicializar cabecalho
call Reg_Prp                                       'preparar
end sub


Sub RfoG_Cab 'cabecalho
Titulo$ = MemTxt$(1)                               'titulo
Cmax  =190
FimDoc=272
Margem=15
Call SigLstCab 

PrWIN AJT_B,  Margem, 26                           'posicao base
PrWIN COR_T,CorTraco                               'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0               	   'linha
PrWIN GR_LI, 0, 6, Cmax, 6                         'linha

TCol1 =   1
TCol2 =  28
TCol3 =  40
TCol4 =  65
TCol5 = 100
TCol6 = 122
TCol7 = 140
TCol8 = 157
TCol9 = 184

PrWIN COR_T,  CorTitLst                           'cor de titulo
PrWIN FON  , 8,   1                               'activar fonte

PrWIN FON, "BOLD+"                                'activar bold
PrWIN TX_N,  TCol1 , 1.5, "Conta"                 'titulo
PrWIN TX_N,  TCol2 , 1.5, "Tipo"                  'titulo
PrWIN TX_N,  TCol3 , 1.5, "Documento"             'titulo
PrWIN TX_N,  TCol4 , 1.5, "Descrição"             'titulo
PrWIN TX_N,  TCol5 , 1.5, "Dt.Emissão"            'titulo
PrWIN TX_N,  TCol6 , 1.5, "DT.Venc."              'titulo
PrWIN TX_N,  TCol7 , 1.5, "Prest"                 'titulo
PrWIN TX_N,  TCol8 , 1.5, "Valor"                 'titulo
PrWIN TX_N,  TCol9 , 1.5, "Sit"                   'titulo
PrWIN FON, "BOLD-"                                'desactivar bold
end sub


Sub RfoG_Lin 'linha de valores
vLtrNpr$ = trim$(str$(Gts_Ltr_PreNum)) + "/" + trim$(str$(Gts_Ltr_PreNpr))

LCol1 =   1
LCol2 =  30
LCol3 =  37
LCol4 =  58
LCol5 = 100
LCol6 = 120
LCol7 = 141
LCol8 = 149
LCol9 = 175

InicioLinhas=28
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4    'posicao base
PrWIN TX_NP, LCol1 , 0,"N",@ltrCt                  'conta
PrWIN TX_NP, LCol2 , 0,"N",@trp                    'tipo
PrWIN TX_NP, LCol3 , 0,"N",@ltrDoc                 'documento
PrWIN TX_NP, LCol4 , 0,"N",@ltrDes                 'descricao
PrWIN TX_NP, LCol5 , 0,"N",@ltrDte                 'data de emissão
PrWIN TX_NP, LCol6 , 0,"N",@ltrDtv                 'data de vencimento
PrWIN TX_NP, LCol7 , 0,"N",@Npr                    'numero de prestacoes
PrWIN TX_NP, LCol8 , 0,"N",@ltrVmn                 'valor
PrWIN TX_NP, LCol9 , 0,"N",@ltrSit                 'situação
End sub


Sub RfoG_LinSbt 'linha de sub-totais
PrWIN TX_N , LCol2, 1.0,"Sub-Total:"               'titulo
PrWIN TX_NP, LCol7 ,1.0,"N",@sbtNrg                'numero de prestacoes
PrWIN TX_NP, LCol8 ,1.0,"N",@sbtVmn                'valor das prestacoes
end sub


Sub RfoG_LinSep 'linha de separacao
'print
end sub


SUB RfoG_Fim 'fim de pagina
PrWIN COR_T,CorTraco                                  'cor de linhas
'PrWIN AJT_B,  Margem, FimDoc-15                       'posicao base
'PrWIN GR_LI, 0, 0, Cmax, 0               	      'linha

'LCol2 =  30
'LCol7 = 134
'LCol8 = 142

'PrWIN TX_N , LCol2, 1.0,"Total a Receber:"            'titulo
'PrWIN TX_NP, LCol7 ,1.0,"N", @recNrg                  'numero de prestacoes a receber
'PrWIN TX_NP, LCol8 ,1.0,"N", @recVmn                  'valor das prestacoes a receber

'PrWIN AJT_B,  Margem, FimDoc-10                       'posicao base
'PrWIN TX_N , LCol2, 1.0,"Total a Pagar:"              'titulo
'PrWIN TX_NP, LCol7 ,1.0,"N", @pagNrg                  'numero de prestacoes a pagar
'PrWIN TX_NP, LCol8 ,1.0,"N", @pagVmn                  'valor das prestacoes a pagar

'PrWIN AJT_B,  Margem, FimDoc-5                        'posicao base
'PrWIN TX_N , LCol2, 1.0,"Total do Banco:"             'titulo
'PrWIN TX_NP, LCol7 ,1.0,"N", @bncNrg                  'numero de prestacoes do banco
'PrWIN TX_NP, LCol8 ,1.0,"N", @bncVmn                  'valor das prestacoes do banco

PrWIN AJT_B,  Margem, FimDoc                          'posicao base
'PrWIN TX_N , LCol2, 1.0,"Total da Situação:"          'titulo
'PrWIN TX_NP, LCol7 ,1.0,"N", @totNrg                  'numero de prestacoes total
'PrWIN TX_NP, LCol8 ,1.0,"N", @totVmn                  'valor das prestacoes total

PrWIN GR_LI, 0, 0, Cmax, 0               	      'linha
Call SigLstRod                                        'listar rodape
PrWin FP
end sub

##


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