'Nome       : GBANCO.STD
'Tipo       : LST
'Data       : 2014/02/19
'Versao     : 2.2
'Descricao  : Relacao para Bancos
'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 2.2  2014/??/?? ---------------------------------------------------
'Uniformizar localizacao de logotipos
'permitir valores superiores a 1 milhao

'- Versao : 2.1  2011/12/05 ---------------------------------------------------
'Compatibilizar com novo processo de listagem

'- Versao : 2.0  2011/07/12 ---------------------------------------------------
'Compatibilizar com versao 2011

'- Versao : 1.2  2008/10/27 ---------------------------------------------------
'nao apresentava correctamente o nib do banco

'- Versao : 1.1  2008/03/22 ---------------------------------------------------
'nao apresentava correctamente o nome do banco

'- Versao : 1.0  2008/03/05 ---------------------------------------------------
'Versao base


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


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


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=ORDGER
Nome                       [DocNom]=Banco_G,Relacao para banco

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=37
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Ordencao                   [DocEsp]=ORD=BANCO
Listar continuo            [DocEsp]=LstCnt=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=Bnc_CabG
Listar linhas               [FxLIN]=Bnc_LinG;Ajt
Listar fim                  [FxFIM]=Bnc_FimG
##

'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
Pag      =Doc_CntPag
DataExt  =FrmVal$(Sig_DtHoje,45,0)

'dados da empresa
NomEmp   =Emp_Inf_Nome$
MorEmp   =Emp_Inf_Morada$
LocalEmp =Emp_Inf_Local$
CPostEmp =Emp_Inf_CPost$

'dados do banco
Banco    =GpeTabCon$("BNC",Memtxt$(10),"NOME")
Agenc    =GpeTabCon$("BNC",Memtxt$(10),"AG_LOC")
Morada   =GpeTabCon$("BNC",Memtxt$(10),"MORADA")
Local    =GpeTabCon$("BNC",Memtxt$(10),"LOC")
CodPos   =GpeTabCon$("BNC",Memtxt$(10),"CPOST")
NibEmp   =GpeTabCon$("BNC",Memtxt$(10),"NIB")
ValorEx  = "Valor "+EmpTabCon$("MOEDA",Emp_Inf_Moeda,"ABRV")

JanelaCartaL1=GpeTabCon$("BNC",GPE_MST_BANCO$,"NOME")
JanelaCartaL2=GpeTabCon$("BNC",GPE_MST_BANCO$,"AG_LOC")
JanelaCartaL3=GpeTabCon$("BNC",GPE_MST_BANCO$,"MORADA")
JanelaCartaL4=GpeTabCon$("BNC",GPE_MST_BANCO$,"LOC")
JanelaCartaL5=GpeTabCon$("BNC",GPE_MST_BANCO$,"CPOST")

'linha
NibOrdem  = Gpe_Mst_BcNib$
NibPoupar = NibPoupar$

Vl           = GpeFrmMoe$("",12,GpeAcmSalCon("LIQ"))
ValorOrdem   = GpeFrmMoe$("",12,GpeAcmSalCon("LIQ"))
valorPoupar  = GpeFrmMoe$("",12,GpeAcmSalCon("LIQ"))
cat          = GpeTabCon$("CAT",Gpe_Mst_Categ,"DESC")

Nome     = Gpe_Mst_Nome$



'totais
TotVl     = GpeFrmMoe$("",13,Total("Vl",1))
TotGrp    = GpeFrmMoe$("",13,Total("Vl",1))
TotPag    = GpeFrmMoe$("",13,Total("Vl",2))


TotPoupar   =GpeFrmMoe$("",12,Total("ValorPoupar",2))

##


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


'-----------------------------------------------------------------------------
' Programa/Funcoes
'-----------------------------------------------------------------------------
#PGM


SUB Lst_AJT
end sub

'==============================================================================
' #GRF - IMPRESSAO MODO GRAFICO
'==============================================================================
SUB FxIni 'funcao de inicializacao
Call SigLstIni
LinPagZero = DocOpc$("DocLpg")              'linhas pagina zero
header=1                                    'apresenta cabecalho pagina zero
End sub


'------------------------------------------------------------------------------
Sub Bnc_CabGIni
'------------------------------------------------------------------------------
fx=PrtOri("P")
end sub 


'------------------------------------------------------------------------------
SUB Bnc_CabG
'------------------------------------------------------------------------------
PrWin COR_F,15
PrWin Fon, 10

If header=1 then
  call SigEmpMoradaLogo
  Call JanelaCarta2            
  InicioEscrita=70
else
  usa=LinPagZero+10
  InicioEscrita=15
end if

linhas=CntLin("CON",LinCnt)

PrWIN AJT_B,  Margem,InicioEscrita                     'posicao base

If Header=1 then
  PrWin Tx_N, 0,0,"Exmos Senhores,"
  PrWin Tx_N, 0,5,"    Solicitamos a V. Exas. o favor de na data abaixo indicada, procederem ao crédito das contas"
  PrWin Tx_N, 0,10,"a seguir mencionadas e pelos respectivos valores, por débito da n/ conta"
  PrWin Tx_N, 0,15,"N.I.B :"
  PrWin Tx_N, 15,15,@NibEmp
  InicioEscrita=InicioEscrita+16
else
  'nao faz nada
End if

PrWIN AJT_B,  Margem,InicioEscrita                        'posicao base
InicioEscrita=InicioEscrita+15
Call DataPag_A4

DigNom=70
DigCat=25
DigNib=38
DigVal=30


Col1=0
Col2=Col1+DigNom
Col3=Col2+DigCat+25
Col4=Col3+DigNib
Col5=Col4+DigVal
ColMax=Col5

Lin=0
Lin2=4
Lin3=9
ajtcat=5

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

PrWIN TX_N,  Col1,Lin,"Nome"
PrWIN TX_N,  Col2,Lin,"Categoria"
PrWIN TX_N,  Col3,Lin,"Conta bancária"
PrWIN TX_N,  Col4,Lin,"Liquido a receber"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, Col1, 0, ColMax, 0               	'linha
PrWIN GR_LI, Col1, 5, ColMax,5+0.001               	'linha

PrWin COR_T ,  CorLin
FimDoc=260
InicioEscrita=InicioEscrita+2
end sub


'------------------------------------------------------------------------------
Sub Bnc_LinG
'------------------------------------------------------------------------------
Linha=Doc_cntLin*4
PrWIN AJT_B,  Margem, InicioEscrita+Linha                 'posicao base

usa2nib=0
tx$= left$(txide$(gpe_mst_opc$,"BANCO-INFO"),6)
if tx$="NIB-P=" then 
  usa2nib=1
  NibPoupar$ = mid$(txide$(gpe_mst_opc$,"BANCO-INFO"),7)
end if

PrWIN TX_DMX,   Col1,Lin,Col2-Col1,@Nome
PrWIN TX_N,     Col2,Lin,@cat
PrWIN TX_NP,    Col3,Lin  ,"N",@NibOrdem
PrWIN TX_NP,    Col4,Lin,"N",@Vl


if usa2nib=1 then                 'com 2 nibs
  PrWIN COR_T,  CorTitLst                        'cor de titulo
'  PrWIN TX_N,    Col3-12,Lin ,"ordem"
  PrWIN TX_N,    Col3-18,Lin2 ,"poupança"
  PrWin COR_T ,  CorLin
  PrWIN TX_NP,    Col3,Lin2 ,"N",@NibPoupar
  PrWIN GR_LI, Col1, Lin3-1, ColMax,Lin3+0.001-1               	'linha
  fx=cntLin("INC",1)
else
'  PrWIN GR_LI, Col1, Lin+4, ColMax,Lin+4               	'linha
end if
end sub


'------------------------------------------------------------------------------
Sub Bnc_FimGAjt
'------------------------------------------------------------------------------
if memtxt$(99)="FIMFRC" then         'fim de grupo?
  header=1                           'forcar cabecalho na nova pagina
  totGrp=1                           'apresenta total de grupo
  Call Totais                        'mostrar totais
else
  header=0                           'nao apresentar cabecalho na nova pagina
  TotGrp=0                           'apresenta total normal
  Call Totais                        'mostrar totais
end if  
end sub


'------------------------------------------------------------------------------
Sub Bnc_FimG
'------------------------------------------------------------------------------
Header=1
TotGrp=1
call ToTais
end sub


'------------------------------------------------------------------------------
Sub Totais
'------------------------------------------------------------------------------
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,FimDoc*1           		'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWIN AJT_B,Margem,FimDoc+2                     'posicao base
PrWIN COR_T,     CorTotGer                      'cor para totais
PrWIN FON,      10,  1                          'activar fonte

if TotGrp=1             'total do grupo
  PrWIN TX_CTR, Col2,  0,Col3,0,"Total da transferencia"
  PrWIN TX_NP,  Col4,  0,"N",@TotGrp
'  PrWIN GR_LI,    Col1,  7, ColA+65, 7            	'linha
'  PrWIN  TX_N, Col1+25,  8,"(Assinatura)"
  fx=TotLpz(1)                       'azerar totalizador
else
  PrWIN TX_CTR, Col2,     0,Col3,0,"Total intermédio ..."
  PrWIN TX_NP,  Col4,     0,"N",@TotPag
  fx=TotLpz(2)
end if


call SigLstRod
PrWin FP
end sub



'------------------------------------------------------------------------------
Sub SigEmpMoradaLogo  'Morada da empresa
'------------------------------------------------------------------------------
PrWIN AJT_B,  Margem, 0                           'posicao base
fic$= EmpFic$("EMP","imagens\gpe_gbanco.jpg")
PrWIN IMG_F, 1, fic$
PrWIN IMG_R,1,1,0,0                               'imagem (logotipo)

PrWIN AJT_B,  Margem, 20                           'posicao base
PrWIN COR_T,  CorEmpMorada                        'cor para morada
PrWIN FON,  FntEmpMorada                          'activar fonte
PrWin FON, "BOLD+"                                'desactivar bold
PrWIN TX_N,     0,   0,@EmpNome                   'designacao
PrWin FON, "BOLD-"                                'desactivar bold
PrWIN TX_N,     0,   5,@EmpMorada                 'morada
PrWIN TX_N,     0,   10,@EmpLocal                 'localidade
PrWIN TX_N,     0,   15,@EmpCpost                 'cod postal
End Sub
##

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

