'Nome       : ProRes.std
'Tipo       : CDI
'Data       : 2005/10/24
'Versao     : 1.0
'Descricao  : Resumo de produção

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0  2004/02/05 ---------------------------------------------------
'Versao base

'- Versao : 1.0a 2005/??/?? ---------------------------------------------------
'Correccao ortografica


'==============================================================================
#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 - Resumo produção Texto
'==============================================================================
Tipo                       [DocTip]=CmpVnd
Nome                       [DocNom]=CmpVnd,Resumo Produção (T)
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]=Doc1_Cab
Listar linhas               [FxLIN]=Doc1_Lin
Listar fim                  [FxFIM]=Doc1_Fim

'parametros especificos
Seleccao de limites         [DocEsp]=ConLim= 
Dados a listar              [DocEsp]=ConCmd=+
   +SELECT distinct {OpcStcMov}.[Art$] +
   +FROM {OpcStcMov} +
   +where {OpcStcMov}.[Art$]>={OpcArtIni} and {OpcStcMov}.[Art$]<={OpcArtFim} 

Definicao de colunas  (9135) [DocEsp]=ConCol=+
   +N ,Codigo,        1005,T<   ,Art$;+
   +C?,Nome,          4630,T<   ,Art$:Stc_Mst_Nome1$;+
   +C?,Producao,      1500,N>7.2,SQL:SelPro;

Seleccao de producao   [DocEsp]=SelPro=+
   +SELECT Sum({OpcStcMov}.[Qu]) AS Qu +
   +FROM {OpcStcMov} +
   +WHERE   {OpcStcMov}.[Art$]={COD} and {OpcStcMov}.[cmv]=101 +
   +AND {OpcStcMov}.[Ct$] >={OpcCtIni} and {OpcStcMov}.[Ct$] <={OpcCtFim} +
   +AND {OpcStcMov}.[Dtl] >={OpcDtlIni} and {OpcStcMov}.[Dtl] <={OpcDtlFim} +
   +AND {OpcStcMov}.[RECVAL]<>255
##


'==============================================================================
#DOC - Resumo de produção Gráfica
'==============================================================================
Tipo                       [DocTip]=CmpVnd
Nome                       [DocNom]=CmpVnd_G,Resumo Produção (G)
Vias                       [DocVia]=
Personalizacao             [DocPer]=

'formato
Impressora                 [DocPrt]=PAG_W
'Impressora                 [DocPrt]=PAG_W,PRV
'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]=DocG_Cab
Listar linhas               [FxLIN]=DocG_Lin; Res
Listar fim                  [FxFIM]=DocG_Fim

'parametros especificos
Seleccao de limites         [DocEsp]=ConLim= 
Dados a listar              [DocEsp]=ConCmd=+
   +SELECT distinct {OpcStcMov}.[Art$] +
   +FROM {OpcStcMov} +
   +where {OpcStcMov}.[Art$]>={OpcArtIni} and {OpcStcMov}.[Art$]<={OpcArtFim} 

Definicao de colunas  (9135) [DocEsp]=ConCol=+
   +N ,Codigo,        1005,T<   ,Art$;+
   +C?,Nome,          4630,T<   ,Art$:Stc_Mst_Nome1$;+
   +C?,Producao,      1500,N>7.2,SQL:SelPro;

Seleccao de producao   [DocEsp]=SelPro=+
   +SELECT Sum({OpcStcMov}.[Qu]) AS Qu +
   +FROM {OpcStcMov} +
   +WHERE   {OpcStcMov}.[Art$]={COD} and {OpcStcMov}.[cmv]=101 +
   +AND {OpcStcMov}.[Ct$] >={OpcCtIni} and {OpcStcMov}.[Ct$] <={OpcCtFim} +
   +AND {OpcStcMov}.[Dtl] >={OpcDtlIni} and {OpcStcMov}.[Dtl] <={OpcDtlFim} +
   +AND {OpcStcMov}.[RECVAL]<>255
##


'==============================================================================
#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)

Und      = Stc_Mst_Unid$
D1_Qu    = FrmVal$(MemTxt$(103),21,8.2)
D1_QuTot = FrmVal$(Total(D1_Qu),21,8.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: @Opc04                           Data:@opc05                         #
?================================================================================
?              Artigo                                           Quantidade  
?================================================================================
end sub


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


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



'------------------------------------------------------------------------------
' *****  Formato dos documentos em modo grafico  ****
'------------------------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
Call SigLstIni
FimDoc=268
End sub


'- Diario de Artigos ---------------------------------------------------------
SUB DocG_Cab 'cabecalho
SigCabNorOpcTit=2 		                 'alterar origem do titulo
Titulo$="Resumo de Produção"
Call SigLstCab
Lin1=1                            		'linha 1
Lin2=5                                    'linha2
esp=20

Col1=0                          'artigo
Col2=30                         'descricao
Col3=Col2+90                    'quantidade
Col4=Col3+30                    'Unidade
Col5=Col4+30                    'margem direita
Cmax=Col5

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

PrWIN TX_CTR,  Col1,Lin1,Col2 ,Lin1,"Código"
PrWIN TX_CTR,  Col2,Lin1,Col3 ,Lin1,"Descrição"
PrWIN TX_CTR,  Col3,Lin1,Col4 ,Lin1,"Quantidade"
PrWIN TX_CTR,  Col4,Lin1,Col5 ,Lin1,"Und"

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  ,   10,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
InicioLinhas=35
end sub


SUB DocG_Lin 'linha de movimento
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4          	'posicao base
PrWIN COR_T,    CorLin
PrWIN TX_N,     Col1,0          ,    @Art
PrWIN TX_NP,    Col2,0          ,"N",@Nome
PrWIN TX_NP,    Col3,0          ,"N",@D1_Qu
PrWIN TX_NP,    Col4,0          ,"N",@Und
end sub


SUB DocG_FimAjt 'fim de pagina
call DocG_fim                                   'listar fim
end sub


SUB DocG_Fim 'fim de listagem
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,FimDoc                       'posicao base
PrWIN GR_LI,     0,  0, Cmax, 0            	'linha
PrWIN TX_NP,    Col3,0          ,"N",@D1_QuTot
Call SigLstRod
PrWin FP
end sub
##


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

