'Nome       : VndRes.std
'Tipo       : CDI
'Data       : 2005/07/25
'Versao     : 2.0
'Descricao  : Resumo de Vendas


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   1999/02/11 -------------------------------------------------
'Versao base

'- Versao : 1.0a  1999/05/10 -------------------------------------------------
'Alteracao da formatacao de colunas

'- Versao : 2.0  2005/??/?? --------------------------------------------------
'Conversao para versao 4


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
Opcoes a usar (TDO,NDO,CT,ART,DTL) [EspOpcUsa]=TDO,CT,ART,DTL
##


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


'formato
Impressora                 [DocPrt]=NULA
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]=Doc1_Cab
Listar linhas               [FxLIN]=Doc1_Lin
Listar fim                  [FxFIM]=Doc1_Fim

'controlo de listagem SQL
Gerador de limites         [SQLLim]=VndResLim
Gerador de dados a listar  [SQLDat]=VndResGda
Subtotalizadores           [SQLSbt]=

'especifico para consulta
Aspecto            (GRE/PAG) [ConAsp]=GRE

'A dimensao total devera ser:                   9135
Registar coluna  [ConDco]=N,art$,Codigo        ,1005,<,T,   ,=
Registar coluna  [ConDco]=N,art$,Nome          ,5130,<,CBK  ,Stc_Mst_Nome1$
Registar coluna  [ConDco]=N,qu  ,Quantidade    ,1500,>,N    ,6.1
Registar coluna  [ConDco]=N,vl  ,Valor         ,1500,>,N    ,6.1
##


'==============================================================================
#SQL - Comandos SQL
'==============================================================================
Dados a listar              [Cmd]=VndResGda=+
   +SELECT [EncMov].[Art$], Sum([EncMov].[Qu]) AS Qu, Sum([EncMov].[Qu]*[EncMov].[Prc]) AS Vl +
   +FROM EncMov +
   +LEFT JOIN EncMst on EncMst.Tdoc$=EncMov.tdoc$ and EncMst.Ndoc$=EncMov.Ndoc$ +
   +WHERE [EncMov].[Tdoc$] ='{Opc_Tdoc}' +
   +AND [EncMov].[Ndoc$] >='{Opc_Ndoc.Ini}' and [EncMov].[Ndoc$] <='{Opc_Ndoc.Fim}' +
   +AND [EncMov].[Art$] >='{Opc_Art.Ini}' and [EncMov].[Art$] <='{Opc_Art.Fim}' +
   +AND [EncMst].[Dtl] >='{Opc_Dtl.Ini}' and [EncMst].[Dtl] <='{Opc_Dtl.Fim}' +
   +GROUP BY [EncMov].[Art$]
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
Pag      = Doc_CntPag
DataExt  = FrmVal$(Sig_DtHoje,45,0)
Tit80    = TxTit$("TT=10CPI, LD, PT=40C",Memtxt$(1))

Art      = MemTxt$(201)
Nome     = MemTxt$(202)

Opc01    = MemTxt$(51)
Opc02    = MemTxt$(52)
Opc03    = MemTxt$(53)
Opc04    = MemTxt$(54)
Opc05    = MemTxt$(55)
Opc06    = MemTxt$(56)


Qu    = FrmVal$(MemNum(203),21,8.2)
QuTot = FrmVal$(Total(Qu),21,8.2)

Vl    = FrmVal$(MemNum(204),21,8.2)
VlTot = FrmVal$(Total(Vl),21,10.2)
##


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


'- Documento 1 ------------------------------------------------------------------
SUB Doc1_Cab 'cabecalho
FxDiv LstIde,16CPI,0
?
?@Tit80                                                                                                                #
?Data : @DataExt                                                  Folha No: @Pag#
?================================================================================
?              Artigo                           Quantidade            Valor  #
?================================================================================
end sub


SUB Doc1_Lin 'linha
?@Art          @Nome                             @Qu                 @Vl        #
end sub


SUB Doc1_Fim 'totais
?================================================================================
?                        Totais :                @QuTot            @VlTot       #
?================================================================================
FxDiv LstPer,SP
end sub
##



