'Nome       : VndDia.std
'Tipo       : CDI
'Data       : 2005/06/15
'Versao     : 2.0
'Descricao  : Vendas do dia


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0b  1999/05/26 -------------------------------------------------
'Versao base

'- Versao : 2.0   2005/??/?? --------------------------------------------------
'modo grafico


'==============================================================================
#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
Vias                       [DocVia]=Original
Personalizacao             [DocPer]=


'formato
Impressora                 [DocPrt]=
'Impressora                 [DocPrt]=[SIG.DEV],PR01
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

'parametros especificos
Seleccao de limites         [DocEsp]=ConLim=+
   +SELECT min([EncMst].[Ndoc$]) AS Min, Max([EncMst].[Ndoc$]) AS Max +
   +FROM EncMst +
   +WHERE [EncMst].[Tdoc$] ={OpcTdoc} AND +
   +[EncMst].[Dtl] >={OpcDtlIni} and [EncMst].[Dtl] <={OpcDtlFim};

Dados a listar              [DocEsp]=ConCmd=+
   +SELECT [EncMov].[Art$], Sum([EncMov].[Qu]) AS Qu, Sum([EncMov].[Qu2]) AS Qu2 +
   +, Sum([EncMov].[Qu]*[EncMov].[Prc]) AS Vl +
   +FROM EncMov +
   +WHERE [EncMov].[Tdoc$] ={OpcTdoc} +
   +AND [EncMov].[Ndoc$] >={OpcNdocIni} and [EncMov].[Ndoc$] <={OpcNdocFim} +
   +AND [EncMov].[Ct$] >={OpcCtIni} and [EncMov].[Ct$] <={OpcCtFim} +
   +AND [EncMov].[Art$] >={OpcArtIni} and [EncMov].[Art$] <={OpcArtFim} +
   +GROUP BY [EncMov].[Art$];

Definicao de colunas  (9135) [DocEsp]=ConCol=+
   +N ,Codigo,        1005,T<   ,Art$;+
   +C?,Nome,          3630,T<   ,Art$:Stc_Mst_Nome1$;+
   +N ,Quantidade,    1500,N>6.1,qu;+
   +N ,Quantidade 2,  1500,N>6.1,qu2;+
   +N ,Valor,         1500,N>6.1,vl
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=VndRes
Nome                       [DocNom]=VndRes,Resumo de Vendas (CT/ART)
Vias                       [DocVia]=
Personalizacao             [DocPer]=


'formato
Impressora                 [DocPrt]=
'Impressora                 [DocPrt]=[SIG.DEV],PR01
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]=Doc2_Cab
Listar linhas               [FxLIN]=Doc2_Lin
Listar fim                  [FxFIM]=Doc2_Fim

'parametros especificos
Seleccao de limites         [DocEsp]=ConLim=+
   +SELECT min([EncMst].[Ndoc$]) AS Min, Max([EncMst].[Ndoc$]) AS Max +
   +FROM EncMst +
   +WHERE [EncMst].[Tdoc$] ={OpcTdoc} AND +
   +[EncMst].[Dtl] >={OpcDtlIni} and [EncMst].[Dtl] <={OpcDtlFim};

Dados a listar              [DocEsp]=ConCmd=+
   +SELECT [EncMov].[Art$], Sum([EncMov].[Qu]) AS Qu, Sum([EncMov].[Qu2]) AS Qu2 +
   +, Sum([EncMov].[Qu]*[EncMov].[Prc]) AS Vl +
   +FROM EncMov +
   +WHERE [EncMov].[Tdoc$] ={OpcTdoc} +
   +AND [EncMov].[Ndoc$] >={OpcNdocIni} and [EncMov].[Ndoc$] <={OpcNdocFim} +
   +AND [EncMov].[Ct$] >={OpcCtIni} and [EncMov].[Ct$] <={OpcCtFim} +
   +AND [EncMov].[Art$] >={OpcArtIni} and [EncMov].[Art$] <={OpcArtFim} +
   +GROUP BY [EncMov].[Art$];

Definicao de colunas  (9135) [DocEsp]=ConCol=+
   +N ,Codigo,        1005,T<   ,Art$;+
   +C?,Nome,          3630,T<   ,Art$:Stc_Mst_Nome1$;+
   +N ,Quantidade,    1500,N<6.1,qu;+
   +N ,Quantidade 2,  1500,N<6.1,qu2;+
   +N ,Valor,         1500,N>6.1,vl
##


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

Art      = MemTxt$(101)
Nome     = MemTxt$(102)

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

D1_Qu    = FrmVal$(MemTxt$(103),21,8.1)
D1_Q2    = FrmVal$(MemTxt$(104),21,8.1)
D1_Vl    = FrmVal$(MemTxt$(105),21,10.1)

D1_QuTot = FrmVal$(Total(D1_Qu),21,8.1)
D1_Q2Tot = FrmVal$(Total(D1_Q2),21,8.1)
D1_VlTot = FrmVal$(Total(D1_Vl),21,10.1)


D2_Qu    = FrmVal$(MemTxt$(103),21,8.1)
D2_Q2    = FrmVal$(MemTxt$(104),21,8.1)

D2_QuTot = FrmVal$(Total(D2_Qu),21,8.1)
D2_Q2Tot = FrmVal$(Total(D2_Q2),21,8.1)
##


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


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

'123456789.123456789.123456789.123456789.123456789.123456789.123456789.123456789.


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


SUB Doc1_Lin 'linha
?@Art          @Nome                           @D1_Qu    @D1_Q2      @D1_Vl     #
end sub


SUB Doc1_Fim 'totais
?================================================================================
?                        Totais :              @D1_QuTot @D1_Q2Tot   @D1_VlTot  #
?================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


'- Documento 2 ------------------------------------------------------------------
SUB Doc2_Cab 'cabecalho
FxDiv LstIde,16CPI,0
?@Tit80                                                                                                                #
?@Opc01                     @Opc02                     @Opc03                   #
?@Opc04                     @Opc05                     @Opc06                   #
?Data : @DataExt                                                  Folha No: @Pag#
?================================================================================
?              Artigo                              Quantidade     Quantidade 2  #
?================================================================================
end sub


SUB Doc2_Lin 'linha
?@Art          @Nome                                @D2_Qu         @D2_Q2       #
end sub


SUB Doc2_Fim 'totais
?================================================================================
?                           Totais :                @D2_QuTot      @D2_Q2Tot    #
?================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub
##


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


