'Nome       : EncArt.std
'Tipo       : LST
'Data       : 2009/03/02
'Versao     : 3.0b
'Descricao  : Listagem de Encomendas (por artigo)

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 3.0b  2009/03/02 --------------------------------------------------
'Artigo discriminado em XLS

'- Versao : 3.0a  2006/09/29 --------------------------------------------------
'correccao da listagem em modo texto - ultrapassava os 132 caracteres

'- Versao : 3.0   2006/09/29 --------------------------------------------------
'listagem grafica

'- Versao : 2.2   2000/??/?? --------------------------------------------------
'Estava a acumular valores sem o desconto

'- Versao : 2.1   2001/12/14 --------------------------------------------------
'Listagem Resumo Quantidade/valor

'- Versao : 2.0   2000/10/06 --------------------------------------------------
'correcao na listagem resumida

'- Versao : 1.1   2000/05/31 --------------------------------------------------
'Estava a acumular os totais das somas anteriores
'Nao listava a coluna Valor total

'- Versao : 1.0b  1999/03/05 --------------------------------------------------
'Versao base


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
'Especifico 1                      [EspOp1]=Opcao 1
'Especifico 2                      [EspOp2]=Opcao 2
'Limites a listar                  [EspLim]=?
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncArtDisL
Nome                       [DocNom]=EncArtDisL,Discriminada

'formato
Saida/Impressora           [DocSai]=1
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]=EncArtDis_Cab
Listar linhas               [FxLIN]=EncArtDis_Lin;Ide;Doc;Tot
Listar fim                  [FxFIM]=EncArtDis_Fim
##



'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncArtDisL
Nome                       [DocNom]=EncArtDisLC,Discriminada Cod Postal

'formato
Saida/Impressora           [DocSai]=1
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]=EncArtDisLCG_Cab
Listar linhas               [FxLIN]=EncArtDisLCG_Lin;Ide;Doc;Tot
Listar fim                  [FxFIM]=EncArtDisLCG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncArtDisL
Nome                       [DocNom]=EncArtDisLCSP,Discriminada sem preços

'formato
Saida/Impressora           [DocSai]=1
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]=EncArtDisLCSP_Cab
Listar linhas               [FxLIN]=EncArtDisLCSP_Lin;Ide;Doc;Tot
Listar fim                  [FxFIM]=EncArtDisLCSP_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncArtResL
Nome                       [DocNom]=EncArtResL,Resumo

'formato
Saida/Impressora           [DocSai]=1
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]=EncArtRes_Cab
Listar linhas               [FxLIN]=EncArtRes_Lin
Listar fim                  [FxFIM]=EncArtRes_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncArtResL
Nome                       [DocNom]=EncArtResQV,Resumo Qnt+Valor

'formato
Saida/Impressora           [DocSai]=1
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]=EncArtResQV_Cab
Listar linhas               [FxLIN]=EncArtResQv_Lin
Listar fim                  [FxFIM]=EncArtResQv_Fim
##


'==============================================================================
'= GRF = Listagem grafica =====================================================
'==============================================================================
'==============================================================================
#DOC - Configuracao do documento 
'==============================================================================
Tipo                       [DocTip]=EncArtDisL
Nome                       [DocNom]=EncArtDisL_G,Discriminada

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=56
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=LstTot=0
                           [DocEsp]=LstTit=1
'funcoes de listagem
Listar cabecalho            [FxCAB]=EncArtDisLG_Cab
Listar linhas               [FxLIN]=EncArtDisLG_Lin;Ide;Doc;Tot
Listar fim                  [FxFIM]=EncArtDisLG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncArtDisL
Nome                       [DocNom]=EncArtDisL_XLS,Discriminado (XLS)

'formato
Saida/Impressora           [DocPrt]=NULA
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=LstTot=1
                           [DocEsp]=LstTit=1

'funcoes de listagem
Base para documento         [FxDOC]=XlsEncArtDisL
Listar cabecalho            [FxCAB]=XlsEncArtDisL_Cab
Listar linhas               [FxLIN]=XlsEncArtDisL_Lin,0; Ide,0; Tot,0
Listar fim                  [FxFIM]=XlsEncArtDisL_Fim

Matriz auxiliar            [DocMat]=EncArtDis.xls
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncArtDisL
Nome                       [DocNom]=EncArtDisLCP_XLS,Discriminado (C.Post) (XLS)

'formato
Saida/Impressora           [DocPrt]=NULA
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=LstTot=1
                           [DocEsp]=LstTit=1

'funcoes de listagem
Base para documento         [FxDOC]=XlsEncArtDisL
Listar cabecalho            [FxCAB]=XlsEncArtDisL_Cab
Listar linhas               [FxLIN]=XlsEncArtDisLCP_Lin,0; Ide,0; Tot,0
Listar fim                  [FxFIM]=XlsEncArtDisL_Fim

Matriz auxiliar            [DocMat]=EncArtDis.xls
##



'==============================================================================
#DOC - Configuracao do documento 
'==============================================================================
Tipo                       [DocTip]=EncArtDisL
Nome                       [DocNom]=EncArtDisLC_G,Discriminada Cod Postal

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=56
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=LstTot=0
                           [DocEsp]=LstTit=1
'funcoes de listagem
Listar cabecalho            [FxCAB]=EncArtDisLCG_Cab
Listar linhas               [FxLIN]=EncArtDisLCG_Lin;Ide;Doc;Tot
Listar fim                  [FxFIM]=EncArtDisLCG_Fim
##


'==============================================================================
#DOC - Configuracao do documento 
'==============================================================================
Tipo                       [DocTip]=EncArtDisL
Nome                       [DocNom]=EncArtDisLCSP_G,Discriminada sem preços

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=56
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=LstTot=0
                           [DocEsp]=LstTit=1
'funcoes de listagem
Listar cabecalho            [FxCAB]=EncArtDisLCSP_Cab
Listar linhas               [FxLIN]=EncArtDisLCSP_Lin;Ide;Doc;Tot
Listar fim                  [FxFIM]=EncArtDisLCSP_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncArtResL
Nome                       [DocNom]=EncArtResL_G,Resumo

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=LstTot=0
                           [DocEsp]=LstTit=1

'funcoes de listagem
Listar cabecalho            [FxCAB]=EncArtResLG_Cab
Listar linhas               [FxLIN]=EncArtResLG_Lin
Listar fim                  [FxFIM]=EncArtResLG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=EncArtResL
Nome                       [DocNom]=EncArtResQV_G,Resumo Qnt+Valor

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=LstTot=0
                           [DocEsp]=LstTit=1

'funcoes de listagem
Listar cabecalho            [FxCAB]=EncArtResQVG_Cab
Listar linhas               [FxLIN]=EncArtResQVG_Lin
Listar fim                  [FxFIM]=EncArtResQVG_Fim
##



'==============================================================================
#VAR - Variaveis
'==============================================================================
Pag       = Doc_CntPag
Cnt       = FrmVal$(CntAux(1),21,4)
Tit80     = TxTit$("TT=12CPI, LD, PT=48C, TL=10CPI",Memtxt$(1))
Tit132    = TxTit$("TT=16CPI, LD, PT=66C",Memtxt$(1))

DataExt   = FrmVal$(Sig_DtHoje,45,0)

Art       = StcCodFrm$(Enc_Mov_Art$)
ArtR      = MemTxt$(10)
Desc      = left$(Stc_Mst_Nome1$,32)
Ct        = Enc_Mov_Ct$
CtNom     = left$(Cta_Mst_Nome$,30)
Cpost     = Cta_Ang_Cpost$


Ndoc      = FrmNdo$("",Enc_Mov_Tdoc$,Enc_Mov_Ndoc$)
Qu1       = FrmVal$(Enc_Mov_Qu,21,8.2)
Qu2       = FrmVal$(Enc_Mov_Qu2,21,8.2)
Preco     = FrmVal$(Enc_Mov_Prc,21,8.2)
Vtot      = FrmVal$(Enc_Mov_Qu*Enc_Mov_Prc,21,10.2)
Arz       = FrmVal$(Enc_Mov_ArzEnt,21,2)
Dtpe      = FrmVal$(Enc_Mst_Dtpe,42,0)
Tqu1      = FrmVal$(Total(Qu1),21,8.2)
Tqu2      = FrmVal$(Total(Qu2),21,8.2)
TvTot     = FrmVal$(Total(Vtot),21,12.2)

Taqu1     = FrmVal$(MemNum(11),21,11.2)
Taqu2     = FrmVal$(MemNum(12),21,11.2)
TaVl      = FrmVal$(MemNum(13),21,11.2)
TaDsq     = FrmVal$(MemNum(14),21,11.2)
TaVPmc    = FrmVal$(Stc_Acm_Pmc*MemNum(11),21,11.2)

TGaqu1    = FrmVal$(Total(Taqu1),21,11.2)
TGaqu2    = FrmVal$(Total(Taqu2),21,11.2)
TGTaVl    = FrmVal$(Total(TaVl),21,11.2)
TGTaVpmc  = FrmVal$(Total(TaVPmc),21,11.2)
TgTaDsq   = FrmVal$(Total(TaDsq),21,11.2)

StQu1     = 0
StQu2     = 0
StVto     = 0
##


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


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
SUB Lst_AJT
end sub


'- Encomendas por artigo (Discriminada) --------------------------------------
SUB EncArtDis_Cab
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                            #
?Data: @DataExt                                                                                                   Folha No: @Pag    #
?====================================================================================================================================
?  Documento    Quantidade   Quantidade 2     Preco       V.Total         Conta             Nome                      Armz  Dt.P.E. #
?====================================================================================================================================
end sub


SUB EncArtDis_LinIde
Print PrtCmd$("[16CPILD]");
'?@Art           @Desc                                                                                                    #

print Enc_Mov_Art$;
print tab(16) Stc_Mst_Nome1$;
print PrtCmd$("[16CPILN]")
end sub

SUB EncArtDis_LinDoc
?@Ndoc          @Qu1           @Qu2         @Preco      @Vtot         @Ct             @CtNom                         @Arz @Dtpe    #
end sub

SUB EncArtDis_LinTot
? Total :       @Tqu1          @Tqu2                  @TvTot                                                                       #
?
x=totlpz(0)
end sub


SUB EncArtDis_Fim
?====================================================================================================================================
FxDiv LstPer,SP
end sub


'- Encomendas por artigo (Discriminada Cod Postal) --------------------------------------
SUB EncArtDisLC_Cab
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                            #
?Data: @DataExt                                                                                                   Folha No: @Pag    #
?====================================================================================================================================
?  Documento    Quantidade   Quantidade 2     Preco       V.Total         Conta             Codigo Postal                           #
?====================================================================================================================================
end sub


SUB EncArtDisLC_LinIde
Print PrtCmd$("[16CPILD]");
'?@Art           @Desc                                                                                                    #

print Enc_Mov_Art$;
print tab(16) Stc_Mst_Nome1$;
print PrtCmd$("[16CPILN]")
end sub

SUB EncArtDisLC_LinDoc
?@Ndoc          @Qu1           @Qu2          @Preco       @Vtot       @Ct             @Cpost                                      #
end sub

SUB EncArtDiLC_LinTot
? Total :       @Tqu1          @Tqu2                  @TvTot                                                                       #
?
x=totlpz(0)
end sub


SUB EncArtDisLC_Fim
?====================================================================================================================================
FxDiv LstPer,SP
end sub

'- Encomendas por artigo (Resumo) --------------------------------------------
SUB EncArtRes_Cab
FxDiv LstIde,10CPI,0
?
?@Tit80                                                                         #                                #
?@DataExt                                                       Folha No: @Pag  #
?================================================================================
?  Codigo       Designacao                               Quant. 1     Quant. 2
?================================================================================
end sub


SUB EncArtRes_Lin
?@ArtR           @Desc                            @Taqu1          @Taqu2        #
end sub


SUB EncArtRes_Fim
?================================================================================
?                Totais :                         @TGaqu1         @TGaqu2       #
?================================================================================
x=totlpz(0)
FxDiv LstPer,SP
end sub


'- Encomendas por artigo (Resumo QU+valor) --------------------------------------------
SUB EncArtResQV_Cab 'cabecalho
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                            #
?Data: @DataExt                                                                                                   Folha No: @Pag    #
?====================================================================================================================================
?  Codigo         Designacao                           Quant 1       Quant 2           Valor      Descont efect.       Valor PMC              
?====================================================================================================================================
end sub


SUB EncArtResqv_Lin 'linha
?@ArtR           @Desc                            @Taqu1          @Taqu2            @TaVl          @TaDsq              @TaVpmc            #
end sub


SUB EncArtResqv_Fim 'fim de listagem
?====================================================================================================================================
?                Totais :                         @TGaqu1         @TGaqu2           @TGTaVl        @TgTaDsq          @TGTaVPmc         #
?====================================================================================================================================
x=totlpz(0)
FxDiv LstPer,SP
end sub


'==============================================================================
'= GRF = Listagem grafica =====================================================
'==============================================================================
SUB FxIni 'funcao de inicializacao
Call SigLstIni
FimDoc=272
End sub


'-------------------------------------------------------------------------------------------------------------------------
'- Encomendas por artigo (Discriminada) - Modo gráfico
'-------------------------------------------------------------------------------------------------------------------------
SUB EncArtDisLG_Cab 'listagem por artigo (discriminada) - cabecalho (modo grafico)
'SigCabNorOpcTit=2 		            'alterar origem do titulo
Titulo$="Encomendas por Artigo (Discriminada)"
Call SigLstCab

Lin1=1           'linha 1
Lin2=5           'linha 2

TCol1  =  0
TCol2  = 21
TCol3  = 30
TCol4  = 50
TCol5  = 70
TCol6  =108
TCol7  =110
TCol8  =170
TCol9  =182
TCol10 =190
Cmax=TCol10

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,   8,   1                        	'activar fonte
PrWIN AJT_B,  Margem, 26                    	'posicao base

PrWin FON, "BOLD+"
PrWIN TX_CTR,  TCol1,Lin1,TCol2,Lin1,"Documento"
PrWIN TX_CTR,  TCol2,Lin1,TCol3,Lin1,"Quant."
PrWIN TX_CTR,  TCol3,Lin1,TCol4,Lin1,"Quant. 2"
PrWIN TX_CTR,  TCol4,Lin1,TCol5,Lin1,"Preço"
PrWIN TX_CTR,  TCol5,Lin1,TCol6,Lin1,"Valor Total"
PrWIN TX_CTR,  TCol6,Lin1,TCol7,Lin1,"Conta"
PrWIN TX_CTR,  TCol7,Lin1,TCol8,Lin1,"Nome"
PrWIN TX_CTR,  TCol8,Lin1,TCol9,Lin1,"Armz"
PrWIN TX_CTR,  TCol9,Lin1,TCol10,Lin1,"Dtpe"
PrWin FON, "BOLD-"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN GR_LI, 0, 5, Cmax, 5                      'linha

PrWIN FON  ,   8,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
InicioLinhas=28
end sub


SUB EncArtDisLG_Lin 'listagem por artigo (discriminada) - linha (modo grafico)
Col1=  0
Col2= 15
Col3= 30
Col4= 47
Col5= 75
Col6=100
Col7=125
Col8=168
Col9=176
Col10=190
Cmax =Col10

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1+3,0     ,@Ndoc
PrWIN TX_NP,    Col2,0       ,"N",@Qu1
PrWIN TX_NP,    Col3,0       ,"N",@Qu2
PrWIN TX_NP,    Col4,0       ,"N",@Preco
PrWIN TX_NP,    Col5,0       ,"N",@Vtot
PrWIN TX_N,     Col6,0       ,@Ct
PrWIN TX_N,     Col7,0       ,@CtNom
PrWIN TX_NP,    Col8,0       ,"T",@Arz
PrWIN TX_NP,    Col9,0       ,"T",@Dtpe
end sub


SUB EncArtDisLG_LinIde 'listagem por artigo (discriminada) - identificação (modo grafico)
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorTit
PrWIN FON  ,  10,   1                           'activar fonte
PrWin FON,"BOLD+"
PrWIN TX_N,     Col0,0,@Art
PrWIN TX_N,     Col3,0,@Desc
PrWin FON,"BOLD-"
PrWIN FON  ,   8,   1                           'activar fonte
end sub


SUB EncArtDisLG_LinDoc 'listagem por artigo (discriminada) - documento (modo grafico)
Col1=  0
Col2= 15
Col3= 30
Col4= 47
Col5= 73
Col6=100
Col7=120
Col8=175
Col9=182
Col10=190
Cmax=Col10

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1+3,0         ,@Ndoc
PrWIN TX_NP,    Col2,0       ,"N",@Qu1
PrWIN TX_NP,    Col3,0       ,"N",@Qu2
PrWIN TX_NP,    Col4,0       ,"N",@Preco
PrWIN TX_NP,    Col5,0       ,"N",@Vtot
PrWIN TX_N,     Col6,0           ,@Ct
PrWIN TX_N,     Col7,0           ,@CtNom
PrWIN TX_N,     Col8,0           ,@Arz
PrWIN TX_N,     Col9,0           ,@Dtpe
end sub


SUB EncArtDisLG_LinTot 'listagem por artigo (discriminada) - totais (modo grafico)
colT=73

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha

PrWin FON,"BOLD+"
PrWIN TX_CTR,   Col1,Lin1,Col1,Lin1,"Total :"
PrWIN TX_NP,    Col2,1.0     ,"N",@Tqu1
PrWIN TX_NP,    Col3,1.0     ,"N",@Tqu2
PrWIN TX_NP,    colT,1.0     ,"N",@TvTot
PrWin FON,"BOLD-"
x=totlpz(0)

cnt=Doc_CntLin+1
tmp=CntLin("FRC",cnt)                        'incrementar contador linhas
end sub


SUB EncArtDisLG_Fim 'listagem por artigo (discriminada) - final (modo grafico)
PrWIN AJT_B,Margem,FimDoc                       'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
Call SigLstRod
PrWin FP
end sub


SUB EncArtDisLGSP_LinDoc 'listagem por artigo (sem preços) - documento (modo grafico)
Col1=  0
Col2= 15
Col3= 30
Col4= 47
Col5= 73
Col6=100
Col7=120
Col8=175
Col9=182
Col10=190
Cmax=Col10

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1+3,0         ,@Ndoc
PrWIN TX_NP,    Col2,0       ,"N",@Qu1
'PrWIN TX_NP,    Col3,0       ,"N",@Qu2
'PrWIN TX_NP,    Col4,0       ,"N",@Preco
'PrWIN TX_NP,    Col5,0       ,"N",@Vtot
PrWIN TX_N,     Col6,0           ,@Ct
PrWIN TX_N,     Col7,0           ,@CtNom
PrWIN TX_N,     Col8,0           ,@Arz
PrWIN TX_N,     Col9,0           ,@Dtpe
end sub


SUB EncArtDisLGSP_LinTot 'listagem por artigo (sem preços) - totais (modo grafico)
colT=73

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha

PrWin FON,"BOLD+"
PrWIN TX_CTR,   Col1,Lin1,Col1,Lin1,"Total :"
PrWIN TX_NP,    Col2,1.0     ,"N",@Tqu1
PrWIN TX_NP,    Col3,1.0     ,"N",@Tqu2
PrWIN TX_NP,    colT,1.0     ,"N",@TvTot
PrWin FON,"BOLD-"
x=totlpz(0)

cnt=Doc_CntLin+1
tmp=CntLin("FRC",cnt)                        'incrementar contador linhas
end sub


SUB EncArtDisLGsp_Fim 'listagem por artigo (sem preços) - final (modo grafico)
PrWIN AJT_B,Margem,FimDoc                       'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
Call SigLstRod
PrWin FP
end sub



'-------------------------------------------------------------------------------------------------------------------------
'- Encomendas por artigo (Codigo Postal) - Modo gráfico
'-------------------------------------------------------------------------------------------------------------------------
SUB EncArtDisLCG_Cab 'listagem por artigo (Codigo Postal) - cabecalho (modo grafico)
'SigCabNorOpcTit=2 		            'alterar origem do titulo
Titulo$="Encomendas por Artigo (Codigo Postal)"
Call SigLstCab

Lin1=1           'linha 1
Lin2=5           'linha 2

TCol1  =  0
TCol2  = 21
TCol3  = 30
TCol4  = 50
TCol5  = 70
TCol6  =108
TCol7  =110
TCol8  =170
TCol9  =182
TCol10 =190
Cmax=TCol10

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,   8,   1                        	'activar fonte
PrWIN AJT_B,  Margem, 26                    	'posicao base

PrWin FON, "BOLD+"
PrWIN TX_CTR,  TCol1,Lin1,TCol2,Lin1,"Documento"
PrWIN TX_CTR,  TCol2,Lin1,TCol3,Lin1,"Quant."
'PrWIN TX_CTR,  TCol3,Lin1,TCol4,Lin1,"Quant. 2"
'PrWIN TX_CTR,  TCol4,Lin1,TCol5,Lin1,"Preço"
'PrWIN TX_CTR,  TCol5,Lin1,TCol6,Lin1,"Valor Total"
'PrWIN TX_CTR,  TCol6,Lin1,TCol7,Lin1,"Conta"
PrWIN TX_CTR,  TCol7,Lin1,TCol8,Lin1,"Codigo Postal"
PrWIN TX_CTR,  TCol8,Lin1,TCol9,Lin1,"Armz"
PrWIN TX_CTR,  TCol9,Lin1,TCol10,Lin1,"Dtpe"
PrWin FON, "BOLD-"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN GR_LI, 0, 5, Cmax, 5                      'linha

PrWIN FON  ,   8,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
InicioLinhas=28
end sub


SUB EncArtDisLCG_Lin 'listagem por artigo (Codigo Postal) - linha (modo grafico)
Col1=  0
Col2= 15
Col3= 30
Col4= 47
Col5= 75
Col6=100
Col7=125
Col8=168
Col9=176
Col10=190
Cmax =Col10

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1+3,0     ,@Ndoc
PrWIN TX_NP,    Col2,0       ,"N",@Qu1
PrWIN TX_NP,    Col3,0       ,"N",@Qu2
PrWIN TX_NP,    Col4,0       ,"N",@Preco
PrWIN TX_NP,    Col5,0       ,"N",@Vtot
PrWIN TX_N,     Col6,0       ,@Ct
PrWIN TX_N,     Col7,0       ,@Cpost
PrWIN TX_NP,    Col8,0       ,"T",@Arz
PrWIN TX_NP,    Col9,0       ,"T",@Dtpe
end sub


SUB EncArtDisLCG_LinIde 'listagem por artigo (Codigo Postal) - identificação (modo grafico)
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorTit
PrWIN FON  ,  10,   1                           'activar fonte
PrWin FON,"BOLD+"
PrWIN TX_N,     Col0,0,@Art
PrWIN TX_N,     Col3,0,@Desc
PrWin FON,"BOLD-"
PrWIN FON  ,   8,   1                           'activar fonte
end sub


SUB EncArtDisLCG_LinDoc 'listagem por artigo (Codigo Postal) - documento (modo grafico)
Col1=  0
Col2= 15
Col3= 30
Col4= 47
Col5= 73
Col6=100
Col7=120
Col8=175
Col9=182
Col10=190
Cmax=Col10

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1+3,0         ,@Ndoc
PrWIN TX_NP,    Col2,0       ,"N",@Qu1
'PrWIN TX_NP,    Col3,0       ,"N",@Qu2
'PrWIN TX_NP,    Col4,0       ,"N",@Preco
'PrWIN TX_NP,    Col5,0       ,"N",@Vtot
PrWIN TX_N,     Col6,0           ,@Ct
PrWIN TX_N,     Col7,0           ,@Cpost
PrWIN TX_N,     Col8,0           ,@Arz
PrWIN TX_N,     Col9,0           ,@Dtpe
end sub


SUB EncArtDisLCG_LinTot 'listagem por artigo (discriminada) - totais (modo grafico)
colT=73

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha

PrWin FON,"BOLD+"
PrWIN TX_CTR,   Col1,Lin1,Col1,Lin1,"Total :"
PrWIN TX_NP,    Col2,1.0     ,"N",@Tqu1
PrWIN TX_NP,    Col3,1.0     ,"N",@Tqu2
PrWIN TX_NP,    colT,1.0     ,"N",@TvTot
PrWin FON,"BOLD-"
x=totlpz(0)

cnt=Doc_CntLin+1
tmp=CntLin("FRC",cnt)                        'incrementar contador linhas
end sub


SUB EncArtDisLCG_Fim 'listagem por artigo (Codigo Postal) - final (modo grafico)
PrWIN AJT_B,Margem,FimDoc                       'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
Call SigLstRod
PrWin FP
end sub

'-------------------------------------------------------------------------------------------------------------------------
'- Encomendas por artigo (sem preços) - Modo gráfico
'-------------------------------------------------------------------------------------------------------------------------
SUB EncArtDisLCSP_Cab 'listagem por artigo (sem preços) - cabecalho (modo grafico)
'SigCabNorOpcTit=2 		            'alterar origem do titulo
Titulo$="Encomendas por Artigo (sem preços)"
Call SigLstCab

Lin1=1           'linha 1
Lin2=5           'linha 2

TCol1  =  0
TCol2  = 21
TCol3  = 30
TCol4  = 50
TCol5  = 70
TCol6  =108
TCol7  =110
TCol8  =170
TCol9  =182
TCol10 =190
Cmax=TCol10

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,   8,   1                        	'activar fonte
PrWIN AJT_B,  Margem, 26                    	'posicao base

PrWin FON, "BOLD+"
PrWIN TX_CTR,  TCol1,Lin1,TCol2,Lin1,"Documento"
PrWIN TX_CTR,  TCol2,Lin1,TCol3,Lin1,"Quant."
PrWIN TX_CTR,  TCol3,Lin1,TCol4,Lin1,"Quant. 2"
PrWIN TX_CTR,  TCol4,Lin1,TCol5,Lin1,"Preço"
PrWIN TX_CTR,  TCol5,Lin1,TCol6,Lin1,"Valor Total"
PrWIN TX_CTR,  TCol6,Lin1,TCol7,Lin1,"Conta"
PrWIN TX_CTR,  TCol7,Lin1,TCol8,Lin1,"Nome"
PrWIN TX_CTR,  TCol8,Lin1,TCol9,Lin1,"Armz"
PrWIN TX_CTR,  TCol9,Lin1,TCol10,Lin1,"Dtpe"
PrWin FON, "BOLD-"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN GR_LI, 0, 5, Cmax, 5                      'linha

PrWIN FON  ,   8,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
InicioLinhas=28
end sub


SUB EncArtDisLCSP_Lin 'listagem por artigo (sem preços) - linha (modo grafico)
Col1=  0
Col2= 15
Col3= 30
Col4= 47
Col5= 75
Col6=100
Col7=125
Col8=168
Col9=176
Col10=190
Cmax =Col10

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1+3,0     ,@Ndoc
PrWIN TX_NP,    Col2,0       ,"N",@Qu1
'PrWIN TX_NP,    Col3,0       ,"N",@Qu2
'PrWIN TX_NP,    Col4,0       ,"N",@Preco
'PrWIN TX_NP,    Col5,0       ,"N",@Vtot
PrWIN TX_N,     Col6,0       ,@Ct
PrWIN TX_N,     Col7,0       ,@CtNom
PrWIN TX_NP,    Col8,0       ,"T",@Arz
PrWIN TX_NP,    Col9,0       ,"T",@Dtpe
end sub


SUB EncArtDisLCSP_LinIde 'listagem por artigo (sem preços) - identificação (modo grafico)
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorTit
PrWIN FON  ,  10,   1                           'activar fonte
PrWin FON,"BOLD+"
PrWIN TX_N,     Col0,0,@Art
PrWIN TX_N,     Col3,0,@Desc
PrWin FON,"BOLD-"
PrWIN FON  ,   8,   1                           'activar fonte
end sub


SUB EncArtDisLCSP_LinDoc 'listagem por artigo (sem preços) - documento (modo grafico)
Col1=  0
Col2= 15
Col3= 30
Col4= 47
Col5= 73
Col6=100
Col7=120
Col8=175
Col9=182
Col10=190
Cmax=Col10

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1+3,0         ,@Ndoc
PrWIN TX_NP,    Col2,0       ,"N",@Qu1
'PrWIN TX_NP,    Col3,0       ,"N",@Qu2
'PrWIN TX_NP,    Col4,0       ,"N",@Preco
'PrWIN TX_NP,    Col5,0       ,"N",@Vtot
PrWIN TX_N,     Col6,0           ,@Ct
PrWIN TX_N,     Col7,0           ,@CtNom
PrWIN TX_N,     Col8,0           ,@Arz
PrWIN TX_N,     Col9,0           ,@Dtpe
end sub


SUB EncArtDisLCSP_LinTot 'listagem por artigo (sem preços) - totais (modo grafico)
colT=73

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha

PrWin FON,"BOLD+"
PrWIN TX_CTR,   Col1,Lin1,Col1,Lin1,"Total :"
PrWIN TX_NP,    Col2,1.0     ,"N",@Tqu1
PrWIN TX_NP,    Col3,1.0     ,"N",@Tqu2
PrWIN TX_NP,    colT,1.0     ,"N",@TvTot
PrWin FON,"BOLD-"
x=totlpz(0)

cnt=Doc_CntLin+1
tmp=CntLin("FRC",cnt)                        'incrementar contador linhas
end sub


SUB EncArtDisLCSP_Fim 'listagem por artigo (sem preços) - final (modo grafico)
PrWIN AJT_B,Margem,FimDoc                       'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
Call SigLstRod
PrWin FP
end sub




'-------------------------------------------------------------------------------------------------------------------------
'- Encomendas por artigo (Resumo) - Modo gráfico
'-------------------------------------------------------------------------------------------------------------------------
SUB EncArtResLG_Cab 'listagem por artigo (resumo) - cabecalho (modo grafico)
Titulo$="Encomendas por Artigo (Resumo)"
Call SigLstCab
Lin1=0.5                          	'linha 1
Lin2=5                                  'linha2

TCol1=  0
TCol2= 20
TCol3= 96
TCol4=140
Tcol5=190
Cmax=TCol5

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,   9,   1                        	'activar fonte
PrWIN AJT_B,  Margem, 26                    	'posicao base

PrWIN FON,"BOLD+"
PrWIN TX_CTR,  TCol1,Lin1,TCol2,Lin1,"Código"
PrWIN TX_CTR,  TCol2,Lin1,TCol3,Lin1,"Designação"
PrWIN TX_CTR,  TCol3,Lin1,TCol4,Lin1,"Quantidade 1"
PrWIN TX_CTR,  TCol4,Lin1,TCol5,Lin1,"Quantidade 2"
PrWIN FON,"BOLD-"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN GR_LI, 0, 5, Cmax, 5                      'linha

'PrWIN FON  ,   8,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
InicioLinhas=28
end sub


SUB EncArtResLG_Lin 'listagem por artigo (resumo) - linha (modo grafico)
Col1=  0
Col2= 38
Col3=105
Col4=152
Col5=190
Cmax=Col5

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1,0,           @ArtR
PrWIN TX_N,     Col2,0           ,@Desc
PrWIN TX_NP,    Col3,0       ,"N",@Taqu1
PrWIN TX_NP,    Col4,0       ,"N",@Taqu2
end sub


SUB EncArtResLG_Fim 'listagem por artigo (discriminada) - final (modo grafico)
cmax=190

PrWIN FON  ,   9,   1                           'activar fonte
PrWIN AJT_B,Margem,FimDoc-4                     'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas

PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN FON,"BOLD+"
PrWIN TX_CTR,   Col2,Lin1,Col2,Lin1,"Total :"
PrWIN TX_NP,    Col3,0       ,"N",@TGaqu1
PrWIN TX_NP,    Col4,0       ,"N",@TGaqu2
PrWIN GR_LI, 0, 5, Cmax, 5                      'linha
PrWIN FON,"BOLD-"

Call SigLstRod
PrWin FP
end sub



'-------------------------------------------------------------------------------------------------------------------------
'- Encomendas por artigo (Resumo -Quantidade+Valor) - Modo gráfico
'-------------------------------------------------------------------------------------------------------------------------
SUB EncArtResQVG_Cab 'listagem por artigo (resumo) - cabecalho (modo grafico)
Titulo$="Encomendas por Artigo (Resumo)"
Call SigLstCab
Lin1=1                          	'linha 1
Lin2=5                              'linha2

TCol1=  0
TCol2= 40
TCol3= 78
TCol4=103
Tcol5=135
Tcol6=150
Tcol7=172
Tcol8=190
Cmax=TCol8

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  ,   8,   1                        	'activar fonte
PrWIN AJT_B,  Margem, 26                    	'posicao base

PrWIN FON,"BOLD+"
PrWIN TX_N,TCol1,Lin1,"Código"
PrWIN TX_N,TCol2,Lin1,"Designação"
PrWIN TX_N,TCol3,Lin1,"Quantidade 1"
PrWIN TX_N,TCol4,Lin1,"Quantidade 2"
PrWIN TX_N,TCol5,Lin1,"Valor"
PrWIN TX_N,TCol6,Lin1,"Desconto ef."
PrWIN TX_N,TCol7,Lin1,"Valor PMC"
PrWIN FON,"BOLD-"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN GR_LI, 0, 5, Cmax, 5                      'linha

PrWIN FON  ,   8,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
InicioLinhas=28
end sub


SUB EncArtResQVG_Lin 'listagem por artigo (resumo) - linha (modo grafico)
Col1=  0
Col2= 30
Col3= 76
Col4=101
Col5=126
Col6=148
Col7=168
Col8=190
Cmax=Col8

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1,0,           @ArtR
PrWIN TX_N,     Col2,0           ,@Desc
PrWIN TX_NP,    Col3,0       ,"N",@Taqu1
PrWIN TX_NP,    Col4,0       ,"N",@Taqu2
PrWIN TX_NP,    Col5,0       ,"N",@Tavl
PrWIN TX_NP,    Col6,0       ,"N",@TaDsq
PrWIN TX_NP,    Col7,0       ,"N",@TaVpmc
end sub


SUB EncArtResQVG_Fim 'listagem por artigo (resumo quantidade+valor) - final (modo grafico)
cmax=190
LinF=0.5

PrWIN FON  ,   8,   1                           'activar fonte
PrWIN AJT_B,Margem,FimDoc-4                     'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas

PrWIN FON,"BOLD+"
PrWIN GR_LI, 0, 0, Cmax, 0                      'linha
PrWIN TX_CTR,   Col2,LinF,Col2,LinF,"Totais :"
PrWIN TX_NP,    Col3,LinF    ,"N",@TGaqu1
PrWIN TX_NP,    Col4,LinF    ,"N",@TGaqu2
PrWIN TX_NP,    Col5,LinF    ,"N",@TGTavl
PrWIN TX_NP,    Col6,LinF    ,"N",@TGTaDsq
PrWIN TX_NP,    Col7,LinF    ,"N",@TGTaVpmc
PrWIN GR_LI, 0, 5, Cmax, 5                      'linha
PrWIN FON,"BOLD-"

x=totlpz(0)
Call SigLstRod
PrWin FP
end sub


'=============================================================================
' Inventario de Artigos (EXCEL)
'=============================================================================
Sub XlsEncArtDisL_DocIni 'inicializar documento
xlsOpcNfi$ = "RND:EncArtDis.xls"          'nome do ficheiro a gerar
xlsOpcWks$ = ""                        'nome da woorksheet

call XlsComDoc_IniMat                  'inicializar documento por matriz

'preparacao especifica
res = XlsWks("Valores")                            'activar worksheet

'preparar cabecalho
empNum$ = Emp_Inf_Cod$                             'numero da empresa
empNom$ = Emp_Inf_Nome$                            'nome da empresa
lstDt$  = FrmDt$("EXT", Sig_DtHoje)                'data para listagem

res = XlsIdeLst("Emp_Num", empNum$)                'numero da empresa
res = XlsIdeLst("Emp_Nome", empNom$)               'nome da empresa
res = XlsIdeLst("Lst_Data", lstDt$)                'data

call XlsComLin_Ini                                 'iniciar linhas

'definicao das colunas
coDoc = 2                                          'documento
coCt  = 3                                          'conta
coNom = 4                                          'nome
coQu1 = 5                                          'quantidade
coQu2 = 6                                          'quantidade 2
coPrc = 7                                          'preco
coVto = 8                                          'valor total
coArz = 9                                          'armazem
coDpe =10                                          'data prevista de entrega
end sub


Sub XlsEncArtDisL_DocFim 'terminar documento
call XlsComDoc_Fim                                      'terminar/mostrar documento
end sub


'--------------------------------------------------------- LINHA INCREMENTO -------
Sub XlsEncArtDisL_IncLin 'incrementar linha	
call XlsComLin_IncRep                                   'incrementar linha + repor formato normal

zon$= XlsZon$(liUsa, coNom, liUsa, coNom)               'zona de identificacao
res = XlsAli(zon$, "<")                                 'alinhamento
end sub


'--------------------------------------------------------- LINHA SEPARACAO --------
Sub XlsEncArtDisL_LinSep 'linha de separacao
call XlsEncArtDisL_IncLin                               'incrementar linha
end sub


'--------------------------------------------------------- LINHA VALORES (TITULO) --------
Sub XlsEncArtDisL_LinIde 'linha de valores
call XlsEncArtDisL_IncLin                               'incrementar linha	

'valores a listar
Art$  = StcCodFrm$(Enc_Mov_Art$)                        'codigo do artigo
Des$  = Stc_Mst_Nome1$                                  'nome do artigo


'listar
call XlsComLin_ActB                                     'activar linha em BOLD
res = XlsLst(liUsa, coDoc, Art$)                        'codigo artigo
res = XlsLst(liUsa, coCt , Des$)                        'nome
end sub


'--------------------------------------------------------- LINHA VALORES ------------
Sub XlsEncArtDisL_Lin 'linha de valores
call XlsEncArtDisL_IncLin                               'incrementar linha	

'valores a listar
doc$ = FrmNdo$("46",Enc_Mov_Tdoc$,Enc_Mov_Ndoc$)        'documento
Qu1  = Enc_Mov_Qu                                       'quantidade 1
Qu2  = Enc_Mov_Qu2                                      'quantidade 2
Prc  = Enc_Mov_Prc                                      'preço
Vto  = Enc_Mov_Qu*Enc_Mov_Prc                           'valor total
Ct$  = Enc_Mov_Ct$                                      'conta
Nom$ = Cta_Mst_Nome$                                    'nome
Arz  = Enc_Mov_ArzEnt                                   'armazem
Dpe$ = FrmDt$("",Enc_Mst_Dtpe)                          'data prevista de entrega


'listar
res = XlsLst(liUsa, coDoc, doc$)                        'documento
res = XlsLst(liUsa, coCt , Ct$)                         'conta
res = XlsLst(liUsa, coNom, Nom$)                        'nome
res = XlsLst(liUsa, coQu1, Qu1)                         'quantidade
res = XlsLst(liUsa, coQu2, Qu2)                         'quantidade 2
res = XlsLst(liUsa, coPrc, Prc)                         'preço
res = XlsLst(liUsa, coVto, Vto)                         'valor total
res = XlsLst(liUsa, coArz, Arz)                         'armazem
res = XlsLst(liUsa, coDpe, Dpe$)                        'data prevista de entrega

'acumular
res = AcmExe("STQU1",Qu1)                               'acumular quantidades   (sub-totais)
res = AcmExe("STQU2",Qu2)                               'acumular quantidades 2 (sub-totais)
res = AcmExe("STVTO",vto)                               'acumular valores       (sub-totais)
end sub


'--------------------------------------------------------- LINHA VALORES (TOTAIS) --------
Sub XlsEncArtDisL_LinTot 'linha de valores
call XlsEncArtDisL_IncLin                               'incrementar linha	

'valores a listar
Tit$  = "Total :"                                       'titulo
Tqu1  = Total("STQU1",1)                                'sub-total
Tqu2  = Total("STQU2",1)                                'sub-total
TvTot = Total("STVTO",1)                                'sub-total

zon$= XlsZon$(liUsa, coNom, liUsa, coNom)               'zona de identificacao
res = XlsAli(zon$, ">")                                 'alinhamento

'listar
call XlsComLin_ActBI                                    'activar linha em BOLD+Italico
res = XlsLst(liUsa, coNom, Tit$)                        'titulo
res = XlsLst(liUsa, coQu1, Tqu1)                        'total quantidades 1
res = XlsLst(liUsa, coQu2, Tqu2)                        'total quantidades 2
res = XlsLst(liUsa, coVto, TvTot)                       'total geral
'call XlsComLin_DesBI                                    'desactivar linha em BOLD+Italico

call XlsEncArtDisL_IncLin                               'incrementar linha	
x = TotLpz(1)                                           'azerar totalizador
end sub


'--------------------------------------------------------- LINHA VALORES (TITULO -CPOST) --------
Sub XlsEncArtDisLCP_LinIde 'linha de valores
call XlsEncArtDisL_IncLin                               'incrementar linha	

'valores a listar
Art$  = StcCodFrm$(Enc_Mov_Art$)                        'codigo do artigo
Des$  = Stc_Mst_Nome1$                                  'nome do artigo


'listar
call XlsComLin_ActB                                     'activar linha em BOLD
res = XlsLst(liUsa, coDoc, Art$)                        'codigo artigo
res = XlsLst(liUsa, coCt , Des$)                        'nome
end sub


'--------------------------------------------------------- LINHA VALORES (CPOST) -------
Sub XlsEncArtDisLCP_Lin 'linha de valores
call XlsEncArtDisL_IncLin                               'incrementar linha	

'valores a listar
doc$ = FrmNdo$("46",Enc_Mov_Tdoc$,Enc_Mov_Ndoc$)        'documento
Qu1  = Enc_Mov_Qu                                       'quantidade 1
Qu2  = Enc_Mov_Qu2                                      'quantidade 2
Prc  = Enc_Mov_Prc                                      'preço
Vto  = Enc_Mov_Qu*Enc_Mov_Prc                           'valor total
Ct$  = Enc_Mov_Ct$                                      'conta
Nom$ = Cta_Mst_Nome$                                    'nome
Arz  = Enc_Mov_ArzEnt                                   'armazem
Dpe$ = FrmDt$("",Enc_Mst_Dtpe)                          'data prevista de entrega
Cpo$ = Cta_Ang_Cpost$                                   'codigo postal

'listar
res = XlsLst(liUsa, coDoc, doc$)                        'documento
res = XlsLst(liUsa, coCt , Ct$)                         'conta
res = XlsLst(liUsa, coNom, Cpo$)                        'codigo postal
res = XlsLst(liUsa, coQu1, Qu1)                         'quantidade
res = XlsLst(liUsa, coQu2, Qu2)                         'quantidade 2
res = XlsLst(liUsa, coPrc, Prc)                         'preço
res = XlsLst(liUsa, coVto, Vto)                         'valor total
res = XlsLst(liUsa, coArz, Arz)                         'armazem
res = XlsLst(liUsa, coDpe, Dpe$)                        'data prevista de entrega

'acumular
res = AcmExe("STQU1",Qu1)                               'acumular quantidades   (sub-totais)
res = AcmExe("STQU2",Qu2)                               'acumular quantidades 2 (sub-totais)
res = AcmExe("STVTO",vto)                               'acumular valores       (sub-totais)
end sub


'--------------------------------------------------------- LINHA VALORES (TOTAIS) --------
Sub XlsEncArtDisLCP_LinTot 'linha de valores
call XlsEncArtDisL_IncLin                               'incrementar linha	

'valores a listar
Tit$  = "Total :"                                       'titulo
Tqu1  = Total("STQU1",1)                                'sub-total
Tqu2  = Total("STQU2",1)                                'sub-total
TvTot = Total("STVTO",1)                                'sub-total

zon$= XlsZon$(liUsa, coNom, liUsa, coNom)               'zona de identificacao
res = XlsAli(zon$, ">")                                 'alinhamento

'listar
call XlsComLin_ActBI                                    'activar linha em BOLD+Italico
res = XlsLst(liUsa, coNom, Tit$)                        'titulo
res = XlsLst(liUsa, coQu1, Tqu1)                        'total quantidades 1
res = XlsLst(liUsa, coQu2, Tqu2)                        'total quantidades 2
res = XlsLst(liUsa, coVto, TvTot)                       'total geral
'call XlsComLin_DesBI                                    'desactivar linha em BOLD+Italico

call XlsEncArtDisL_IncLin                               'incrementar linha	
x = TotLpz(1)                                           'azerar totalizador
end sub


'----------------------------------------------------------------------- FIM -------
Sub XlsEncArtDisL_Fim 'terminar
call XlsComLin_Fim                                      'fim de linhas
end sub
##


'==============================================================================
#INC - Inclusao de ficheiros
'==============================================================================
Funcoes comuns                    =[SIG_Dir.Div],LsComPgm.std
Funcoes comuns XLS                =[SIG_LST_DIR.XLS],XlsCom_Pgm.inc
##
