'Nome       : CTBINT.STD
'Tipo       : LST
'Data       : 2010/05/19
'Versao     : 2.0
'Descricao  : listagem de Interrogacoes

'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 2.0  2010/??/?? ---------------------------------------------------
'Adaptacao ao ecra com novos valores: despesas gerais e totais por linha

'- Versao : 1.0  2001/07/19 ---------------------------------------------------
'versao base


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


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

'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=LstInt
Nome                       [DocNom]=LstInt,Interrogações
Vias                       [DocVia]=Original
Personalizacao             [DocPer]=

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=IntCab
Listar linhas               [FxLIN]=IntLin
Listar ajuste para fim      [FxAJT]=
Listar fim                  [FxFIM]=IntFim
##


'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
'Plano de contas
Tit80    = TxTit$("TT=12CPI, LD, PT=40C, TL=10CPI",MemTxt$(10))
Tit132   = TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI",MemTxt$(10))

Pag      = Doc_CntPag
DataLst  = FrmVal$(Sig_DtHoje,45,0)
##


'-----------------------------------------------------------------------------
' Programa/Funcoes
'-----------------------------------------------------------------------------
#PGM
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 ET,  2                                       'espessura de traco

dimLinNor=4.4                                      'altura de uma linha normal
dimLinCab=6.6                                      'altura de uma linha de cabecalho

cnt=0                                              'limpar contador
end sub


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


SUB Lst_AJT
end sub


'- Listagem de Interrogacoes -----------------------------------------------
SUB IntCab
PrWIN AJT_B, 10.0, 10.0                              'posicao base

PrWIN COR_F, 15                                    'cor de fundo
PrWIN FON, 10, 1                                   'activar fonte

PrWIN TX_N,    20,  0,SigLstInf$("EMPIDE")        'nome da empresa
PrWIN FON, 12, 1                                  'activar fonte
PrWin FON, "BOLD+"                                'desactivar bold
PrWIN TX_N,   125,  0,"Interrogações"
PrWIN FON, 10, 1                                   'activar fonte
PrWin FON, "BOLD-"                                'desactivar bold
PrWIN TX_N,   230,  0,@DataLst
end sub


SUB IntLin

'BasLin=9.5                                                'valor base para linha
BasLin=9                                                  'valor base para linha

'sc=30                                                     'intervalo coluna
'sl=9.5                                                    'intervalo linha
sc=25                                                     'intervalo coluna
sl=9                                                      'intervalo linha


'cabecalho
l=0
lin=sl*(l+1)                                              'pos. linha graf.
PrWIN GR_LI, 17, lin+1, 267, lin+1, 2                     'linha horizontal

for c=0 to 9
i=10+(10*l)+c                                             'indice do MemTxt
col=sc*(c+1)-5                                            'pos. linha graf.
max=TxtSepLin(MemTxt$(i),12," ")                          'separar descricao
PrWIN TX_CTR, Col, lin+3, Col+20, lin+3, ConTx$(1)        'primeira linha do cabecalho
PrWIN TX_CTR, Col, lin+9, Col+20, lin+9, ConTx$(2)        'segunda linha do cabecalho
next


'linhas
for l=1 to 13

lin=sl*(l+1)+BasLin                                       'pos. linha graf.
'PrWIN GR_LI, 17, lin-3.5, 267, lin-3.5, 2                 'linha horizontal
PrWIN GR_LI, 17, lin-3, 267, lin-3, 2                     'linha horizontal

'for c=0 to 7
for c=0 to 9
i=10+(10*l)+c                                             'indice do MemTxt
col=sc*(c+1)                                              'pos. linha graf.
'PrWIN GR_LI, col-08, 10, col-08, 148, 2                   'linha vertical
PrWIN GR_LI, col-08, 10, col-08, 140.5, 2                 'linha vertical

grCol=col-3
if c=0 then
   grCol=col+2
end if
if c=8 then
   grCol=col
end if
if c=9 then
   grCol=col
end if

'if c=0 then
'   PrWIN TX_N, col+02, lin, MemTxt$(i)
'else
'   PrWIN TX_N, col-03, lin, MemTxt$(i)
'end if

PrWIN TX_N, grCol, lin-0.5, MemTxt$(i)

next
next

'ultima linha
l=14
lin=sl*(l+1)+BasLin                                       'pos. linha graf.
'PrWIN GR_LI, 22, lin-3.5, 262, lin-3.5, 2                 'linha horizontal
PrWIN GR_LI, 17, lin-3.5, 267, lin-3.5, 2                 'linha horizontal

'ultima coluna
'c=8
c=10
col=sc*(c+1)
PrWIN GR_LI, col-08, 10, col-08, 140.5, 2                  'linha vertical


'totais
PrWIN AJT_B, 10.0, 142.0                                   'posicao base
Tcbe=17                                                    'coluna base de totais a esquerda

PrWIN GR_CX, Tcbe,  12, Tcbe+60,  22, 2                    'caixa envolvente
PrWIN TX_N, Tcbe+5, 15, MemTxt$(151)                       'texto compras
PrWIN TX_N, Tcbe+33, 15, MemTxt$(152)                      'valor compras

PrWIN GR_CX, Tcbe+60,  12, Tcbe+120,  22, 2                'caixa envolvente
PrWIN TX_N, Tcbe+65, 15, MemTxt$(153)                      'texto vendas
PrWIN TX_N,Tcbe+93, 15, MemTxt$(154)                       'valor vendas

'texto informativo
PrWIN GR_CX, Tcbe,  24,  Tcbe+120,  46, 2                  'caixa envolvente
PrWIN TX_N, Tcbe+4, 27, MemTxt$(171)                       'informacao de total
PrWIN TX_N, Tcbe+4, 33, MemTxt$(169)                       'informacao de A
PrWIN TX_N, Tcbe+4, 39, MemTxt$(170)                       'informacao de B


'totais finais
Tcbd=177                                                    'coluna base de totais a direita
PrWIN GR_CX, Tcbd,  12, Tcbd+90,  22, 2                     'caixa envolvente
PrWIN TX_N, Tcbd+5, 15, MemTxt$(161)                        'texto margem media
PrWIN TX_N,Tcbd+74, 15, MemTxt$(162)                        'valor margem media

PrWIN GR_CX,  Tcbd,  24, Tcbd+90,  34, 2                    'caixa envolvente
PrWIN TX_N, Tcbd+5, 27, MemTxt$(163)                        'texto resultado do exercicio
PrWIN TX_N,Tcbd+59, 27, MemTxt$(164)                        'valor resultado do exercicio

PrWIN GR_CX, Tcbd,  36, Tcbd+90,  46, 2                     'caixa envolvente
PrWIN TX_N, Tcbd+5, 39, MemTxt$(165)                        'texto existencia inicial
PrWIN TX_N,Tcbd+61, 39, MemTxt$(166)                        'valor existencia inicial

PrWIN GR_CX, Tcbd,  48, Tcbd+90,  58, 2                     'caixa envolvente
PrWIN TX_N, Tcbd+5, 50, MemTxt$(167)                        'texto existencia final
PrWIN TX_N,Tcbd+60, 50, MemTxt$(168)                        'texto existencia final
end sub


Sub IntFim
'FxDiv LstPer,SP
PrWIN FP                                           'fim de pagina
end sub

##
