'Nome       : CTBINT.STD
'Tipo       : LST
'Data       : 2001/07/19
'Versao     : 1.0
'Descricao  : listagem de Interrogacoes

'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- 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

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

for l=0 to 13

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

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

PrWIN TX_N, col, lin, MemTxt$(i)

next
next

'ultima linha
l=14
c=8
lin=sl*(l+1)
col=sc*(c+1)
PrWIN GR_LI, 22, lin-3.5, 262, lin-3.5, 2                 'linha horizontal
PrWIN GR_LI, col-08, 06, col-08, 139, 2                   'linha vertical


PrWIN AJT_B, 10.0, 140.0                                   'posicao base

PrWIN GR_CX,  22,  12,  82,  22, 2                         'caixa envolvente
PrWIN TX_N, 27, 15, MemTxt$(151)
PrWIN TX_N, 55, 15, MemTxt$(152)

PrWIN GR_CX,  82,  12,  142,  22, 2                         'caixa envolvente
PrWIN TX_N, 90, 15, MemTxt$(153)
PrWIN TX_N,115, 15, MemTxt$(154)

PrWIN GR_CX, 172,  12,  262,  22, 2                         'caixa envolvente
PrWIN TX_N,177, 15, MemTxt$(161)
PrWIN TX_N,240, 15, MemTxt$(162)

PrWIN GR_CX, 172,  24,  262,  34, 2                         'caixa envolvente
PrWIN TX_N,177, 27, MemTxt$(163)
PrWIN TX_N,230, 27, MemTxt$(164)

PrWIN GR_CX, 172,  36,  262,  46, 2                         'caixa envolvente
PrWIN TX_N,177, 39, MemTxt$(165)
PrWIN TX_N,230, 39, MemTxt$(166)

PrWIN GR_CX, 172,  48,  262,  58, 2                         'caixa envolvente
PrWIN TX_N,177, 50, MemTxt$(167)
PrWIN TX_N,230, 50, MemTxt$(168)

'texto descritivo
PrWIN GR_CX, 22,  24,  142,  46, 2                         'caixa envolvente
PrWIN TX_N, 27, 27, MemTxt$(169)
PrWIN TX_N, 27, 39, MemTxt$(170)

end sub


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

##
