'Nome       : EmdFacA5.IPW
'Tipo       : LST
'Data       : 2000/05/11
'Versao     : 2.0
'Descricao  : Formato de documento A5 para emissao documentos

'- Versao : 1.0  1999/12/29 -------------------------------------------------
'versao base

'- Versao : 2.0  2000/05/11 -------------------------------------------------
'saltos de pagina


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


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


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Nome                       [DocNom]=EFT
Vias                       [DocVia]=Original
Tipo                       [DocTip]=

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=Cab
Listar linhas               [FxLIN]=Lin
Listar fim                  [FxFIM]=Fim
##


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

'descricao da empresa 
EmpNome   = Emp_Inf_Nome$
EmpMorada = Emp_Inf_Morada$
EmpLocal  = Emp_Inf_Local$
EmpCpost  = Emp_Inf_Cpost$
EmpTel    = Emp_Inf_Telef$
EmpFax    = Emp_Inf_Fax$
EmpCtrb   = Emp_Inf_Contrib$
EmpTps    = Emp_Inf_NatJur$
EmpReg    = Emp_Inf_NumReg$

ExtAbv    = EmpTabCon$("MOEDA",Emd_Doc_Moeda,"ABRV")
Tdo       = Emd_Doc_tdoc$
            

'definicao de valroes para o rodape
RodLin1   = Emp_Inf_Nome$
RodLin2   = Emp_Inf_Morada$+","+Emp_Inf_Local$+","+Emp_Inf_Cpost$+", Tel. "+Emp_Inf_Telef$+" Fax "+Emp_Inf_Fax$
RodLin3   = "NIPC "+Emp_Inf_Contrib$


'indicacao do destinatario do documento
Ct        = Cta_Mst_Ct$
Nome      = Cta_Mst_Nome$
Morada    = Cta_Ang_Morada$
Local     = Cta_Ang_Local$
Cpost     = Cta_Ang_Cpost$
Ctrb      = Cta_Mst_Ctrb$

'informacoes sobre o documento
DocNome   = Emd_Ide_Nome$+ " n.º"+FrmNdo$("",Emd_Ide_Tdoc$,Emd_Ide_Ndoc$)
'DocNum    = FrmNdo$("",Emd_Ide_Tdoc$,Emd_Ide_Ndoc$)
DocVia    = Emd_Ide_Via$
DocDtl    = FrmVal$(Emd_Ide_Dtl,45,0)
DocInf    = Emd_Ide_Descr$

'linhas do documento
LinCt    = Emd_Lin_Ct$
LinDt    = FrmVal$(Emd_Lin_Dt,44,0)
LinVl    = FrmMoe$("",20,Emd_Lin_Vl)
LinTv    = Emd_Lin_Tv$
LinInf   = Emd_Lin_Inf$

'totais do documento
TotVal   = FrmMoe$("",20,Emd_Tot_Val)
TotDesco = FrmMoe$("",20,Emd_Tot_Desco)
TotIva   = FrmMoe$("",20,Emd_Tot_Iva)
TotIvaTx = "I.V.A. "+FrmVal$(Emd_Tot_IvaTx,21,2.0)+" %"
TotDoc   = FrmMoe$("",20,Emd_Tot_Doc)
TotEur   = FrmVal$(MoeCnv("N",Emd_Tot_Doc,Emd_Ide_Moeda,2),21,18.2)
##


#PGM
'-----------------------------------------------------------------------------
' 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


'-----------------------------------------------------------------------------
' Funcoes para impressao do documento
'-----------------------------------------------------------------------------

'-----------------------------------------------------------------------------
' Cabecalho do documento
'-----------------------------------------------------------------------------
SUB Cab 'cabecalho
PrWIN COR_F, 15                              'cor de fundo 
PrWIN COR_T, 0                               'cor de traco

PrWIN AJT_B, 0, 0                            'posicao base

PrWin TX_RO, 5, 100, 90 ,"Processado por computador"

'logotipo
PrWIN AJT_B,  8.0, 10.0                      'posicao base
PrWIN IMG_V,1, 5, 0, 50, 20                  'imagem (logotipo)

'numero doc/ via
PrWIN AJT_B, 130, 10                            'posicao ba
PrWIN FON, 10, 1                             	'activar fonte
PrWIN TX_N, 0,   0,@DocNome
PrWIN FON, 9, 1                             	'activar fonte
PrWIN TX_N, 0,   5,@DocVia

'janela
PrWIN AJT_B,  105, 30                           'posicao base
PrWIN FON, 10, 1                             	'fonte
PrWIN TX_N,  0, 0,"Ex.mo(s) Senhor(es):"
PrWIN TX_N, 0, 6,@Nome
PrWIN TX_N, 0, 11,@Morada
PrWIN TX_N, 0, 16,@Local
PrWIN TX_N, 0, 21,@Cpost


'data/contribuinte
PrWIN AJT_B,15, 40                      	'posicao base
PrWIN FON, 10, 1                             	'fonte
PrWIN TX_N,  0,  0,"Data :"
PrWIN TX_N, 11,  0,@DocDtl
PrWIN TX_N,  0,  5,"V/ Ctrb. :"
PrWIN TX_N, 16,  5,@Ctrb


'posicao das colunas
col1=10
Col2=150
Col3=190
 

'titulo das colunas
PrWIN AJT_B, 8, 65                              'posicao base
PrWIN COR_E, 200,200,200                        'Cor de enchimento RGB
PrWIN COR_T, 200,200,200                        'cor de traco
PrWIN GR_ME, 0                                  'modo de enchimento
PrWIN GR_CE,   Col1-5,  0, Col3,  5, 0          'caixa do cabecalho

PrWIN COR_T, 0                   'cor de traco
PrWIN TX_CTR,  Col1,  0,  Col2,  0,"Descrição"   'texto centrado
PrWIN TX_CTR,  Col2,  0,  Col3,  0,"Valor"   'texto centrado
end sub


'-----------------------------------------------------------------------------
' Linhas do Documento
'-----------------------------------------------------------------------------
'NOTA: No caso dos recibos, apenas esta previsto a mostragem de 6 linhas

SUB Lin     'linha de documento
PrWIN AJT_B,   8, 65+Doc_CntLin*4                'posicao base
PrWIN TX_N, Col1,  2,@LinInf
PrWIN TX_NP, Col2,  2,"N",@LinVl        
end sub


'-----------------------------------------------------------------------------
' Final do Documento
'-----------------------------------------------------------------------------
SUB Fim 'total do documento
FimDoc=115

'NOTA: Apenas mostra o extenso quando o diario do documento for ER??

if left$(Emd_Doc_Tdoc$,2)="ER"                   'recibo

 '-- Linha de descricao
 max=TxtSepLin(Emd_Ide_Descr$,100," ")           'separar descricao
 FimDoc2=fimdoc-max*4
 FimDoc2=FimDocErc-15
 For cnt=1 to max
  PrWIN AJT_B, Col1+5, FimDoc2+cnt*4                      'posicao base
  PrWIN TX_N,  0,  0,ConTx$(cnt)
 Next


 '-- extenso
 PrWIN AJT_B,  Col1+5, FimDoc-4                    'posicao base
 PrWIN TX_N, 0, 0,"Sao: "
 Tmp=NumExtPrp("80,80","=")                      'preparar extenso
 PrWIN TX_N,10, 0,NumExt$(1,Emd_Tot_Doc,"ESC",3) 'linha 1 de extenso
 PrWIN TX_N,10, 4,NumExt$(2)                     'linha 2 de extenso
else                                             'factura/outros

end if

'linha separadora
PrWIN AJT_B,  8, Fimdoc                         'posicao base
PrWIN GR_LI, Col1-5,  5, Col3,  5               'separador horizontal

'caixa com cor para totais
PrWIN AJT_B,  Col2-12, FimDoc                   'posicao base
PrWIN COR_E, 200,200,200                        'Cor de enchimento RGB
PrWIN COR_T, 200,200,200                        'cor de traco
PrWIN GR_ME,   0                                'modo de enchimento
PrWIN GR_CE,   0,  5, 30,  25, 0           	'caixa do cabecalho

'escrever valores
PrWIN AJT_B,  Col2-10, FimDoc                   'posicao base
PrWIN COR_T, 0                   		'cor de traco

PrWIN TX_N,  0,  5,"Valor Iliquido"             'descricao
PrWIN TX_N,  0, 10,"Desconto"                   'descricao
PrWIN TX_NP, 0, 15,"N",@TotIvaTx                'taxa de iva
PrWIN TX_N,  0, 20,"Total Documento"            'descricao

PrWIN AJT_B,  8, FimDoc                         'posicao base
PrWIN TX_NP, Col2,  5,"N",@TotVal             
PrWIN TX_NP, Col2, 10,"N",@TotDesco           
PrWIN TX_NP, Col2, 15,"N",@TotIva             
PrWIN TX_NP, Col2, 20,"N",@TotDoc             

'dados da empresa
PrWIN FON, 8, 1                             	'fonte
PrWIN AJT_B,   8, FimDoc+10                     'posicao base
PrWIN TX_CTR,  8,  0,  Col2-25,  0,@RodLin1     'texto centrado
PrWIN TX_CTR,  8,  4,  Col2-25,  4,@RodLin2     'texto centrado
PrWIN TX_CTR,  8,  8,  Col2-25,  8,@RodLin3     'texto centrado

PrWIN FP                                        'fim de pagina
end Sub
##

