'Nome       : EmdFac.IPW
'Tipo       : LST
'Data       : 2000/11/14
'Versao     : 2.0b
'Descricao  : Formato de documento tipo Factura para impressoras windows

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

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

'- Versao : 2.0a 2000/09/21 ---------------------------------------------------
'possibilitar imprimir hora de saida

'- Versao : 2.0b 2000/??/?? ---------------------------------------------------
'aumento do tamanho para a descricao


'-----------------------------------------------------------------------------
' 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
'Vias                       [DocVia]=Original;Duplicado,2;Triplicado
Tipo                       [DocTip]=
Personalizacao             [DocPer]=
Dados especificos          [DocEsp]=ESP1

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=Cab
'Listar linhas               [FxLIN]=Lin; Ajt; Txl; Doc
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$

'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$
DocNum    = FrmNdo$("",Emd_Ide_Tdoc$,Emd_Ide_Ndoc$)
DocVia    = Emd_Ide_Via$
DocDtl    = FrmVal$(Emd_Ide_Dtl,45,0)
DocInf    = Emd_Ide_Descr$
DocHor    = FrmVal$(Emd_Ide_HorSai,53,0)

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

'totais do documento
TotVal   = FrmVal$(Emd_Tot_Val,21,18.2)
TotDesco = FrmVal$(Emd_Tot_Desco,21,18.2)
TotIva   = FrmVal$(Emd_Tot_Iva,21,18.2)
TotIvaTx = "I.V.A. "+FrmVal$(Emd_Tot_IvaTx,21,2.0)+"%"
TotDoc   = FrmVal$(Emd_Tot_Doc,21,18.2)
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 AJT_B,  8.0, 10.0                       'posicao base
PrWIN GR_CX,   2,   2, 190, 110, 2            'caixa de moldura

PrWIN IMG_V,1, 5, 5, 50, 20                  'imagem (logotipo)
PrWIN GR_CX,  5,  5, "+50", "+20", 2         'caixa envolvente

PrWIN FON, 10, 1                                              'activar fonte
PrWIN TX_N, 10, 30,@EmpNome
PrWIN TX_N, 10, 35,@EmpMorada
PrWIN TX_N, 10, 40,@EmpLocal
PrWIN TX_N, 10, 45,@EmpCpost
PrWIN TX_N, 10, 50,"Telefone:"
PrWIN TX_N, 31, 50,@EmpTel
PrWIN TX_N, 10, 55,"Telefax:"
PrWIN TX_N, 31, 55,@EmpFax
PrWIN TX_N, 10, 60,"Contribuinte:"
PrWIN TX_N, 31, 60,@EmpCtrb
PrWIN TX_N, 10, 65,@EmpTps
PrWIN TX_N, 10, 70,@EmpReg

PrWIN TX_N, 100, 35,"Exmo(s). Snr(s).:"

PrWIN TX_N, 100, 45,@Nome
PrWIN TX_N, 100, 50,@Morada
PrWIN TX_N, 100, 55,@Local
PrWIN TX_N, 100, 60,@Cpost

PrWIN AJT_B, 8.0, 90                            'posicao base
PrWIN FON, 20, 1                             	'activar fonte
PrWIN TX_N, 100,   0,@DocNome
PrWIN FON, 10, 1                             	'activar fonte

PrWIN TX_N, 100,  10,"NUMERO :"
PrWIN TX_N, 130,  10,@DocNum

PrWIN TX_N, 100,  15,"VIA :"
PrWIN TX_N, 130,  15,@DocVia

PrWIN TX_N, 10,  10,"Data :"
PrWIN TX_N, 30,  10,@DocDtl

PrWIN TX_N, 10,  15,"Conta :"
PrWIN TX_N, 30,  15,@Ct

PrWIN TX_N, 10,  20,"V/ Ctrb. :"
PrWIN TX_N, 30,  20,@Ctrb


'-corpo do documento----------------------------------------------------------
PrWIN AJT_B, 8.0, 130                           'posicao base
PrWIN COR_E, 200, 200, 200                      'Cor de enchimento RGB
PrWIN GR_ME, 0                                  'modo de enchimento

PrWIN GR_CE,  2,  0, 190,  10, 2           	'caixa do cabecalho
PrWIN GR_CX,  2, 10, 190, 110, 2           	'caixa de corpo

PrWIN GR_LI, 150,  0, 150, 110, 2           	'separador vertical

PrWin FON, "BOLD+"                              'desactivar bold
PrWIN FON, 12, 1                             	'activar fonte

PrWIN TX_CTR,  2,  0, 130,  10,"Descritivo"     'texto centrado
PrWIN TX_CTR,150,  0, 190,  10,"Valor"          'texto centrado

PrWIN FON, 10, 1                             	'activar fonte
PrWin FON, "BOLD-"                              'desactivar bold

'zona de impressao
'PrWIN AJT_B, 0.0, 0.0                        'posicao base
'PrWIN GR_CX,   5,   5, 201, 290, 1           'caixa de moldura limite
end sub


'-----------------------------------------------------------------------------
' Linhas do Documento
'-----------------------------------------------------------------------------

SUB Lin 'linha de documento
PrWIN AJT_B,  8, 130+Doc_CntLin*5                'posicao base
PrWIN TX_N,  5,  10,@LinInf
PrWIN TX_NP, 145,  10,"N",@LinVl
end sub


'-----------------------------------------------------------------------------
' Final do Documento
'-----------------------------------------------------------------------------
SUB Fim 'total do documento
PrWIN AJT_B,   8, 250                           'posicao base
PrWIN GR_CX,   2,   0, 190,  30, 2         	'caixa de moldura
PrWIN GR_CX, 100,   0, 130,  30, 2         	'caixa de moldura

PrWIN GR_LI, 130,  21, 190,  21, 2           	'separador horizontal

PrWIN TX_N,  20,  5,"PROCESSADO POR COMPUTADOR"
PrWIN TX_N, 105,  5,"Iliquido"
PrWIN TX_N, 105, 10,"Desconto"
PrWIN TX_NP, 105, 15,"N",@TotIvaTx

PrWIN TX_NP, 140,  5,"N",@TotVal
PrWIN TX_NP, 140, 10,"N",@TotDesco
PrWIN TX_NP, 140, 15,"N",@TotIva

PrWIN TX_N,  10, 23,"Total em Euro:"
PrWIN TX_NP,  50, 23,"N",@TotEur

PrWIN TX_N, 105, 23,"Total"
PrWIN TX_NP, 140, 23,"N",@TotDoc
PrWIN FP                                           'fim de pagina
end sub
##

