'Nome       : CtaPlc.std
'Tipo       : LST
'Data       : 2007/12/10
'Versao     : 1.7
'Descricao  : Planos de Contas

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.7  2007/12/10 ---------------------------------------------------
'limitar nome da conta nas listagens de texto e graficas

'- Versao : 1.6  2006/09/25 ---------------------------------------------------
'correccao do plano de contas para conferencia (grafica) nao saia nome da conta

'- Versao : 1.6  2006/09/25 ---------------------------------------------------
'cosmetica sobre a impressão gráfica

'- Versao : 1.5c 2005/10/20 ---------------------------------------------------
'correcção ortográfica

'- Versao : 1.5b 2004/11/15 ---------------------------------------------------
'Nas impressoes modo texto, colocar a identificacao da empresa a esquerda

'- Versao : 1.5a 2004/01/06 ---------------------------------------------------
'Permitir ordenação externa nas listagens

'- Versao : 1.5  2003/09/05 ---------------------------------------------------
'Cosmetica

'- Versao : 1.4  2003/07/14 ---------------------------------------------------
'Complementar plano contas anagrafico
'Forcar tipo de caracter no inicio da impressao (10/16 cpi)

'- Versao : 1.3  2002/12/11 ---------------------------------------------------
'Plano de contas anagrafico grafico- colocar informacao em 3 linhas

'- Versao : 1.2b 2001/05/07 ---------------------------------------------------
'Plano de contas anagrafico grafico- ajustes diversos
'Plano de contas conferencia grafico - ajustes diversos

'- Versao : 1.2a 2001/01/23 ---------------------------------------------------
'Alteracao nos ficheiros a usar nas inclusoes

'- Versao : 1.2  2000/12/18 ---------------------------------------------------
'Impressao em formato grafico
'Alteracao dos radicais das funcoes de listagem

'- Versao : 1.1  2000/02/28 ---------------------------------------------------
'correcao na impressao de credito maximo

'- Versao : 1.0  1998/10/09 ---------------------------------------------------
'versao base


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=CtaPlc
Nome                       [DocNom]=PlcSim,Plano de Contas

'formato
Saida/Impressora           [DocPrt]=
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]=Tx_PlcCab
Listar linhas               [FxLIN]=Tx_PlcLin
Listar fim                  [FxFIM]=Tx_PlcFim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=CtaPlc
Nome                       [DocNom]=PlcEnt,Contas / Entidades

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Ordenacao                  [DocEsp]=OrdGer=3

'funcoes de listagem
Listar cabecalho            [FxCAB]=Tx_PlcEntCab
Listar linhas               [FxLIN]=Tx_PlcEntLin; Ent; Ct
Listar fim                  [FxFIM]=Tx_PlcEntFim
##

       
'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=CtaPlc
Nome                       [DocNom]=PlcAng,Plano Anagráfico

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=Tx_PlcAngCab
Listar linhas               [FxLIN]=Tx_PlcAngLin,4
Listar fim                  [FxFIM]=Tx_PlcAngFim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=CtaPlc
Nome                       [DocNom]=PlcCnf,Plano para Conferência

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=Tx_PlcCnfCab
Listar linhas               [FxLIN]=Tx_PlcCnfLin
Listar fim                  [FxFIM]=Tx_PlcCnfFim
##


'==============================================================================
#DOC
'==============================================================================
Tipo                       [DocTip]=CtaPlc
Nome                       [DocNom]=PlcAngcpost,Anagráfico por código postal

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Ordenacao                  [DocEsp]=OrdGer=ctaang.cpost$

'funcoes de listagem
Listar cabecalho            [FxCAB]=Tx_PlcAngCab
Listar linhas               [FxLIN]=Tx_PlcAngLin,4
Listar fim                  [FxFIM]=Tx_PlcAngFim
##


'------ (Impressao grafica) ---------------------------------------------------
'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=CtaPlc
Nome                       [DocNom]=PlcSim_G,Plano de Contas

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=PW_PlcCab
Listar linhas               [FxLIN]=PW_PlcLin
Listar fim                  [FxFIM]=PW_PlcFim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=CtaPlc
Nome                       [DocNom]=PlcEnt_G,Contas / Entidades

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=45
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Ordenacao                  [DocEsp]=OrdGer=3

'funcoes de listagem
Listar cabecalho            [FxCAB]=PW_PlcEntCab
Listar linhas               [FxLIN]=PW_PlcEntLin; Ent; Ct
Listar fim                  [FxFIM]=PW_PlcEntFim
##

       
'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=CtaPlc
Nome                       [DocNom]=PlcAng_G,Plano Anagráfico

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=PW_PlcAngCab
Listar linhas               [FxLIN]=PW_PlcAngLin,3
Listar fim                  [FxFIM]=PW_PlcAngFim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=CtaPlc
Nome                       [DocNom]=PlcCnf_G,Plano para Conferência

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=PW_PlcCnfCab
Listar linhas               [FxLIN]=PW_PlcCnfLin
Listar fim                  [FxFIM]=PW_PlcCnfFim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=CtaPlc
Nome                       [DocNom]=PlcAngcpost_G,Anagráfico por código postal

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=52
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Ordenacao                  [DocEsp]=OrdGer=ctaang.cpost$


'funcoes de listagem
Listar cabecalho            [FxCAB]=PW_PlcAngCab
Listar linhas               [FxLIN]=PW_PlcAngLin,3
Listar fim                  [FxFIM]=PW_PlcAngFim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
Tit80    = TxTit$("TT=12CPI, LD, PT=48C, TL=10CPI",Memtxt$(1))
Tit132   = TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI",Memtxt$(1))

Pag      = Doc_CntPag
DataPlc  = FrmVal$(Sig_DtHoje,45,0)
Ct       = Cta_Mst_Ct$
Nome     = Cta_Mst_Nome$
NomeC    = Cta_Mst_Nome$
NomeP    = left$(Cta_Mst_Nome$,40)
Ent      = Cta_Mst_Entid$
Morada   = Cta_Ang_Morada$
MoradaC  = Cta_Ang_Morada$
Telef    = Cta_Ang_Telef$
NCtrb    = left$(Cta_Mst_Ctrb$,12)
Local    = Cta_Ang_Local$
CPost    = left$(Cta_Ang_Cpost$,30)
Cont     = Cta_Ang_Contacto$
CredMax  = FrmMoe$("Z=E",14,val(Cta_Ang_CrdCtl$))

Rza      = Left$(Cta_Mst_Ct$,Cta_Mst_RzaNd)
Reflexao = Cta_Mst_RefCt$
Trt      = Cta_Mst_CodTrat$
Ref      = Cta_Mst_RefCod$
IvaA     = Cta_Mst_IvaAno$
IvaP     = Cta_Mst_IvaPer$
Obs      = Cta_Ang_Txl$

CredCtl  = Cta_Ang_CrdCtl$
Pa       = EmpTabCon$("PAIS",Cta_Mst_Pais,"ABRV")
Mo       = Left$(EmpTabCon$("MOEDA",Cta_Mst_Moeda,"ABRV"),3)
Fax      = Cta_Ang_Fax$
Vend     = Cta_Ang_Vend+" "+EmpTabCon$("Vend",Cta_Ang_Vend,"Nome")
CPag     = EmpTabCon$("Cpag",Cta_Ang_Cpag,"Des")
Desc     = Cta_Ang_Desco$
##


'==============================================================================
#INC - Inclusao de funcoes
'==============================================================================
Variaveis  comuns                 =[SIG_Dir.Div],LsComVar.std
##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)
SUB Lst_AJT
end sub


Sub Cab80Col 'cabecalho para 80 colunas
FxDiv LstIde,10CPI,1
?
?@Tit80                                                                     #
Print PrtCmd$("[10CPILN]");
End Sub


Sub Cab132col 'cabecalho para 132 colunas
FxDiv LstIde,16CPI,1
?@Tit132                                                                                                                           
Print PrtCmd$("[16CPILN]");
End Sub


'- Plano de contas simples ----------------------------------------------------
Sub TX_PlcCab 'cabecalho
call Cab80Col
?    Data: @DataPlc                                          Folha No : @Pag#
?    ========================================================================
?    |    No Conta    |             Nome da Conta                | Entidade |
?    ========================================================================
end sub


Sub TX_PlcLin 'linha
?    | @Ct            | @NomeP                                   | @Ent     |
end sub


Sub TX_PlcFim 'fim de listagem
?    ========================================================================
FxDiv LstPer,SP
end sub


'- Plano de contas (entidade) -------------------------------------------------
Sub TX_PlcEntCab 'cabecalho
call Cab80col
?      Data: @DataPlc                               Folha No : @Pag#
?      ============================================================== 
?      |    No Conta    |           Nome da Conta                   |
?      ==============================================================
end sub


Sub TX_PlcEntLinEnt 'linha de entidade
?      |----------------|-------------------------------------------|
?      |                |  Entidade : @Ent                          |
end sub


Sub TX_PlcEntLinCt 'linha de conta
?      | @CT            | @NomeP                                    |
end sub


Sub TX_PlcEntFim 'fim de listagem
?      ==============================================================
FxDiv LstPer,SP
end sub


'- Plano de contas (anagrafico) -----------------------------------------------
Sub TX_PlcAngCab 'cabecalho
call Cab132col
?Data: @DataPlc                                                                                                         Folha No: @Pag#
?====================================================================================================================================
?|   Conta    |                    Nome                  |          Cod. Postal                   |    Telefone    | Controlo Credit|
?|Contribuinte|                    Local                 |          Contacto                      |    Fax         | Descontos      |
?|Pais / Moeda|                    Morada                | Vendedor         / Cond.Pagamento      |    Informacoes                  |
?====================================================================================================================================
end sub


Sub TX_PlcAngLin 'linha
?------------------------------------------------------------------------------------------------------------------------------------

If Cta_Ang_CrdCtl$<="9" Then           'credito em numero
?|@Ct         | @NomeP                                   | @CPost                                 | @Telef          | @CredMax      |
Else                                   'credito em formula
?|@Ct         | @NomeP                                   | @CPost                                 | @Telef          | @CredCtl      |
End If

?|@NCtrb      | @Local                                   | @Cont                                  | @Fax            | @Desc         |
?|@Pa  /  @Mo | @Morada                                  | @Vend            / @CPag               | @Obs                            |
end sub


Sub TX_PlcAngFim 'fim de listagem
?====================================================================================================================================
'Print PrtCmd$("[SP]");
FxDiv LstPer,SP
end sub


'- Plano de contas (conferencia) ---------------------------------------------
Sub TX_PlcCnfCab
Call Cab132Col
?Data: @DataPlc                                                                                                        Folha No: @Pag#
?====================================================================================================================================
?|    Conta     |                                         |    Razao   |   Conta     | Cod. | Cod. | DECL. | DECL. |                |
?|    Numero    |               Nome da Conta             |  Anterior  |  Reflexao   | Trt. | Ref. |ANO IVA|PER.IVA|   Observacoes  |
?====================================================================================================================================
end sub


'- Plano de contas (conferencia) ---------------------------------------------
Sub TX_PlcCnfLin
?| @Ct          | @NomeP                                  | @Rza       | @Reflexao   | @Trt | @Ref | @IvaA | @IvaP | @Obs           |
end sub


Sub TX_PlcCnfFim
?====================================================================================================================================
'Print PrtCmd$("[SP]");
FxDiv LstPer,SP
end sub


'==============================================================================
' Impressao no formato grafico
'==============================================================================
Sub FxIni 'funcao de inicializacao
Call SigLstIni
End sub


'====================================================================================
'- Plano de Contas ==================================================================
'====================================================================================
Sub PW_PlcCab 'cabecalho
Call SigLstCab

Col1=  2
Col2= 90
Col3=165

PrWIN AJT_B,  Margem, 26                            'posicao base
PrWIN FON  ,   10                                   'fonte para texto

PrWIN COR_T,   CorTraco                             'cor para titulos
PrWIN GR_LI, 0, 0, MargemD-10, 0                    'linha
PrWIN GR_LI, 0, 5, MargemD-10, 5                    'linha

PrWIN COR_T,   CorTit                               'cor para titulos
PrWin FON,"BOLD+"                                   'activar bold
PrWIN TX_N,      Col1,  0.5, "Código da conta"
PrWIN TX_N,      Col2,  0.5, "Descrição"
PrWIN TX_N,      Col3,  0.5, "Entidade"

InicioEscrita=28
PrWIN COR_T,   CorLin                               'cor para linhas
PrWin FON,"BOLD-"                                   'desactivar bold
end sub


Sub PW_PlcLin 'linha
LCol1=  2
LCol2= 50
LCol3=160


PrWIN AJT_B, Margem, InicioEscrita+Doc_CntLin*4     'posicao base
PrWIN TX_N,   LCol1, 0, @Ct
PrWIN TX_N,   LCol2, 0, @Nome
PrWIN TX_N,   LCol3, 0, @Ent
end sub


Sub PW_PlcFim 'fim de listagem
PrWIN COR_T,   CorTraco                            'cor para titulos
PrWIN AJT_B,Margem,272                 		   'posicao base
PrWIN GR_LI,     0,  0, MargemD-10, 0              'linha
call SigLstRod
PrWin FP
end sub


'====================================================================================
'- Plano de contas (entidade)
'====================================================================================
Sub PW_PlcEntCab 'cabecalho
Call SigLstCab
Col1= 1
Col2=90

PrWIN AJT_B,  Margem, 26                       'posicao base
PrWIN FON  ,   10                              'fonte para texto

PrWIN COR_T,   CorTraco                        'cor para titulos
PrWIN GR_LI, 0, 0, MargemD-10, 0               'linha
PrWIN GR_LI, 0, 5, MargemD-10, 5               'linha

PrWin FON,"BOLD+"                              'activar bold
PrWIN COR_T,   CorTit                          'cor para titulos
PrWIN TX_N,      Col1,  0.5, "Código da conta"
PrWIN TX_N,      Col2,  0.5, "Descrição"

InicioEscrita=27
PrWIN COR_T,   CorLin                          'cor para linhas
PrWin FON,"BOLD-"                              'activar bold
end sub


Sub PW_PlcEntLinEnt 'linha de entidade
PrWIN AJT_B,   Margem, InicioEscrita+Doc_CntLin*5   'posicao base

LeCol1= 1
LeCol2=25

if Doc_CntLin > 2 then
   PrWIN COR_T,   CorTraco                            'cor para titulos
   PrWIN GR_LI,   0, 0, MargemD-10, 0                 'linha
end if

PrWIN COR_T,   CorTitLst                              'cor para titulos
PrWin FON,"BOLD+"                                     'activar bold
PrWIN  TX_N,   LeCol1, 0, "Entidade :"                'titulo
PrWIN COR_T,   CorLin                                 'cor para linhas
PrWIN TX_N,    LeCol2, 0, @Ent                        'entidade
PrWin FON,"BOLD-"                                     'desactivar bold
end sub


Sub PW_PlcEntLinCt 'linha de conta
LCol1= 1
LCol2=60

PrWIN AJT_B, Margem, InicioEscrita+Doc_CntLin*5      'posicao base
PrWIN TX_N,   LCol1, 0, @Ct
PrWIN TX_N,   LCol2, 0, @Nome
end sub


Sub PW_PlcEntFim 'fim de listagem
call PW_PlcFim
end sub


'====================================================================================
'- Plano de contas (anagrafico)
'====================================================================================
Sub PW_PlcAngCab 'cabecalho
Call SigLstCab
Col1=1
Col2=20
Col3=95
Col31=col3+20
col4=145
col5=168
Col6=MargemD-10

PrWIN AJT_B,  Margem, 26                       'posicao base
PrWIN FON  ,   8                               'fonte para texto

PrWIN COR_T,   CorTraco                        'cor para titulos
PrWIN GR_LI, 0, 0, MargemD-10, 0               'linha
PrWIN GR_LI, 0,10, MargemD-10, 10              'linha

Lin1=0
lin2=3
Lin3=6

PrWin FON,"BOLD+"                                    'activar bold
PrWIN COR_T,   CorTit                                'cor para titulos
PrWIN TX_CTR,    Col1, Lin1,Col2,Lin1,"Conta"
PrWIN TX_CTR,    Col1, Lin2,Col2,Lin2,"Contribuinte"
PrWIN TX_CTR,    Col1, Lin3,Col2,Lin3,"País / Moeda"

PrWIN TX_CTR,    Col2, Lin1,Col3,Lin1,"Nome
PrWIN TX_CTR,    Col2, Lin2,Col3,Lin2,"Morada"
PrWIN TX_CTR,    Col2, Lin3,Col3,Lin3,"Local"

PrWIN TX_N,      Col3,   Lin1,"Código Postal"
PrWIN TX_N,      Col3+3, Lin2,"Contacto"
PrWIN TX_N,      Col3+2, Lin3,"Vendedor"
PrWIN TX_N,      Col31,  Lin3,"Cod. Pagamento"

PrWIN TX_N,      Col4+2, Lin1,"Telefone"
PrWIN TX_N,      Col4+6, Lin2,"FAX"
PrWIN TX_N,      Col4, Lin3,"Informações"

PrWIN TX_CTR,    Col5, Lin1,Col6,Lin1,"Controlo Crédito"
PrWIN TX_CTR,    Col5, Lin2,Col6,Lin2,"Descontos"

InicioEscrita=32
PrWIN FON  ,   7.5             'fonte para texto
PrWIN COR_T,   CorLin          'cor para linhas
PrWin FON,"BOLD-"                                   'desactivar bold

Lin1=Lin1+1                    'posicao linha 1
Lin2=Lin2+1                    'posicao linha 2
Lin3=Lin3+1                    '
end sub


Sub PW_PlcAngLin 'linha
PrWIN AJT_B, Margem, InicioEscrita+Doc_CntLin*4    'posicao base

if Doc_CntLin > 2 then
  PrWIN COR_T,   CorTraco                          'cor para titulos
  PrWIN GR_LI,   0, 0, Col6, 0                     'linha
  PrWIN COR_T,   CorLin                            'cor para linhas
end if

PrWIN TX_NP,  Col1,Lin1,"N", @Ct
PrWIN TX_N,   Col1,Lin2    , @NCtrb
PrWIN TX_N,   Col1,Lin3    , @Pa
PrWIN TX_N,   Col1+10,Lin3 , @Mo

PrWIN TX_N,  Col2,Lin1,   @NomeP
PrWIN TX_N,  Col2,Lin2,   @Morada
PrWIN TX_N,  Col2,Lin3,   @Local

PrWIN TX_N,  Col3,Lin1,  @Cpost
PrWIN TX_N,  Col3,Lin2,  @cont
PrWIN TX_N,  Col3,Lin3,  @Vend
PrWIN TX_N,  Col31,Lin3, @Cpag

PrWIN TX_N,  Col4,Lin1,  @Telef
PrWIN TX_N,  Col4,Lin2,  @Fax
PrWIN TX_N,  Col4,Lin3,  @Obs

If Cta_Ang_CrdCtl$<="9" Then             'credito em numero
PrWIN TX_NP,  Col5,Lin1,"N", @CredMax
else                                     'credito em texto
PrWIN TX_NP,  Col5,Lin1,"N", @CredCtl
end if
end sub


Sub PW_PlcAngFim 'fim de listagen
Call PW_PlcFim
end sub


'====================================================================================
'- Plano de contas (conferencia)
'====================================================================================
Sub PW_PlcCnfCab 'cabecalho
Call SigLstCab

TCol1 =  1
TCol2 = 25
TCol3 = 92
TCol4 =100
TCol5 =119
TCol6 =130
TCol7 =140
TCol8 =150
TCol9 =160
TCol10=MargemD-10

PrWIN AJT_B,  Margem, 26                      'posicao base
PrWIN FON  ,   8                              'fonte para texto

PrWIN COR_T,   CorTraco                        'cor para titulos
PrWIN GR_LI, 0, 0, MargemD-10, 0               'linha
PrWIN GR_LI, 0,10, MargemD-10, 10              'linha

Lin1=1.5
Lin2=5

PrWin FON,"BOLD+"                                     'activar bold
PrWIN COR_T,   CorTit                          'cor para titulos

PrWIN TX_CTR,    TCol1, Lin2, TCol2, Lin2,"Conta"
PrWIN TX_CTR,    TCol2, Lin2, TCol3, Lin2,"Nome da Conta"

PrWIN TX_CTR,    TCol3, Lin1, TCol4, Lin1,"Razão"
PrWIN TX_CTR,    TCol3, Lin2, TCol4, Lin2,"Anterior"

PrWIN TX_CTR,    TCol4, Lin1, TCol5, Lin1,"Conta"
PrWIN TX_CTR,    TCol4, Lin2, TCol5, Lin2,"Reflexão"

PrWIN TX_CTR,    TCol5, Lin1, TCol6, Lin1,"Cód."
PrWIN TX_CTR,    TCol5, Lin2, TCol6, Lin2,"Trat."

PrWIN TX_CTR,    TCol6, Lin1, TCol7, Lin1,"Cód."
PrWIN TX_CTR,    TCol6, Lin2, TCol7, Lin2,"Reflex."

PrWIN TX_CTR,    TCol7, Lin1, TCol8, Lin1,"Decl."
PrWIN TX_CTR,    TCol7, Lin2, TCol8, Lin2,"Anual"

PrWIN TX_CTR,    TCol8, Lin1, TCol9, Lin1,"Decl"
PrWIN TX_CTR,    TCol8, Lin2, TCol9, Lin2,"Per."

PrWIN TX_CTR,    TCol9, Lin2, TCol10,Lin2,"Observações"

PrWin FON,"BOLD-"                                     'desactivar bold
PrWIN COR_T,   CorLin                                'cor para linhas
InicioEscrita=32 
end sub


Sub PW_PlcCnfLin 'linha
LCol1=  1
LCol2= 24
LCol3= 92
Lcol4=100
Lcol5=117
Lcol6=130
Lcol7=140
Lcol8=150
Lcol9=160
LCol10=MargemD-10


PrWIN AJT_B, Margem, InicioEscrita+Doc_CntLin*4      'posicao base
PrWIN TX_NP,   LCol1  ,Lin1,"N", @Ct
'PrWIN TX_DMX,  LCol2  ,Lin1,Col3-Col2, @Nome

PrWIN TX_N,    LCol2  ,Lin1, @NomeP
PrWIN TX_N,    LCol3  ,Lin1, @Rza
PrWIN TX_N,    LCol4  ,Lin1, @Reflexao
PrWIN TX_N,    LCol5+6,Lin1, @Trt
PrWIN TX_N,    LCol6+3,Lin1, @Ref
PrWIN TX_N,    LCol7+2,Lin1, @IvaA
PrWIN TX_N,    LCol8+3,Lin1, @IvaP
PrWIN TX_N,    LCol9+2,Lin1, @Obs
end sub


Sub PW_PlcCnfFim 'fim de listagem
Call PW_PlcFim
end sub
##


'==============================================================================
#INC - Inclusao de funcoes
'==============================================================================
Funcoes comuns                    =[SIG_Dir.Div],LsComPgm.std
##


