'Nome       : EncLot.std
'Tipo       : LST
'Data       : 2005/06/16
'Versao     : 2.0
'Descricao  : Listagem de lotes


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   2001/03/15 --------------------------------------------------
'Versao base

'- Versao : 1.1   2004/06/07 --------------------------------------------------
'Opcoes para listar medidas

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


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
'Especifico 1                      [EspOp1]=Opcao 1
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=LotEs
Nome                       [DocNom]=LotEs,Entradas/Sa�das

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

'especifico do documento
Documentos de entrada      [DocEsp]=DocE=LE1
Documentos de saida        [DocEsp]=DocS=LS1
Agr. artigo substituicao   [DocEsp]=AgpSbt=N


'funcoes de listagem
Listar cabecalho            [FxCAB]=LotEs_Cab
Listar linhas               [FxLIN]=LotEs_Lin; Ide; Sbt,2
Listar fim                  [FxFIM]=LotEs_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=LotDoc
Nome                       [DocNom]=LotDocE,Entradas

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

'especifico do documento
Tipo de documento          [DocEsp]=DocTip=E
Documentos de entrada      [DocEsp]=DocUsa=LE1

'funcoes de listagem
Listar cabecalho            [FxCAB]=DocEs_Cab
Listar linhas               [FxLIN]=DocEs_Lin; Ide; Sbt
Listar fim                  [FxFIM]=DocEs_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=LotDoc
Nome                       [DocNom]=LotDocS,Sa�das

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

'especifico do documento
Tipo de documento          [DocEsp]=DocTip=S
Documentos de entrada      [DocEsp]=DocUsa=LS1

'funcoes de listagem
Listar cabecalho            [FxCAB]=DocEs_Cab
Listar linhas               [FxLIN]=DocEs_Lin; Ide; Sbt
Listar fim                  [FxFIM]=DocEs_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=LotEs
Nome                       [DocNom]=LotEsMed,Entradas/Sa�das (MED)

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

'especifico do documento
Documentos de entrada      [DocEsp]=DocE=LE1
Documentos de saida        [DocEsp]=DocS=LS1
Agr. artigo substituicao   [DocEsp]=AgpSbt=N


'funcoes de listagem
Listar cabecalho            [FxCAB]=LotEsMed_Cab
Listar linhas               [FxLIN]=LotEsMed_Lin; Ide; Sbt,2
Listar fim                  [FxFIM]=LotEsMed_Fim
##


'==============================================================================
'= GRF = Listagem grafica =====================================================
'==============================================================================
'==============================================================================
'#DOC - Configuracao do documento 
'==============================================================================
'Tipo                       [DocTip]=LotES
'Nome                       [DocNom]=LotEs_G,Entradas/Sa�das

''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

'Documentos de entrada      [DocEsp]=DocE=LE1
'Documentos de saida        [DocEsp]=DocS=LS1
'Agr. artigo substituicao   [DocEsp]=AgpSbt=N

''funcoes de listagem
'Listar cabecalho            [FxCAB]=LotESG_Cab
'Listar linhas               [FxLIN]=LotESG_Lin;Ide;Sbt,2
'Listar fim                  [FxFIM]=LotESG_Fim
'##


'==============================================================================
'#DOC - Configuracao do documento 
'==============================================================================
'Tipo                       [DocTip]=LotDoc
'Nome                       [DocNom]=LotDocE_G,Entradas

''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

''especifico do documento
'Tipo de documento          [DocEsp]=DocTip=E
'Documentos de entrada      [DocEsp]=DocUsa=LE1

''funcoes de listagem
'Listar cabecalho            [FxCAB]=LotDocEG_Cab
'Listar linhas               [FxLIN]=LotDocEG_Lin; Ide; Sbt
'Listar fim                  [FxFIM]=LotDocEG_Fim
'##


'==============================================================================
'#DOC - Configuracao do documento 
'==============================================================================
'Tipo                       [DocTip]=LotDoc
'Nome                       [DocNom]=LotDocS_G,Sa�das

''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

'Tipo de documento          [DocEsp]=DocTip=S
'Documentos de entrada      [DocEsp]=DocUsa=LS1

''funcoes de listagem
'Listar cabecalho            [FxCAB]=LotDocSG_Cab
'Listar linhas               [FxLIN]=LotDocSG_Lin; Ide; Sbt,2
'Listar fim                  [FxFIM]=LotDocSG_Fim
'##


'==============================================================================
'#DOC - Configuracao do documento 
'==============================================================================
'Tipo                       [DocTip]=LotEs
'Nome                       [DocNom]=LotEsMed,Entradas/Sa�das (MED)

''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
'Documentos de entrada      [DocEsp]=DocE=LE1
'Documentos de saida        [DocEsp]=DocS=LS1
'Agr. artigo substituicao   [DocEsp]=AgpSbt=N

''funcoes de listagem
'Listar cabecalho            [FxCAB]=LotEsMedG_Cab
'Listar linhas               [FxLIN]=LotEsMedG_Lin; Ide; Sbt,2
'Listar fim                  [FxFIM]=LotEsMedG_Fim
'##


'==============================================================================
#VAR - Variaveis
'==============================================================================
'MemTxt$(01)   - Titulo da listagem
'MemTxt$(11)   - Identificacao do lote

'MemTxt$(21)   - Codigo do artigo
'MemTxt$(22)   - Codigo do artigo formatado
'MemTxt$(23)   - Nome do artigo

'MemTxt$(30)   - Documento formatado
'MemTxt$(31)   - Tipo de documento
'MemTxt$(32)   - Numero de documento

'MemTxt$(41)   - Codigo da conta
'MemTxt$(42)   - Nome da conta


'diversos
'MemNum(01)    - data do documento

'entradas
'MemNum(10)    - quantidade
'MemNum(11)    - valor medio/unitario
'MemNum(12)    - valor total
'MemNum(13)    - medidas por unidade
'MemNum(14)    - medidas totais

'saidas
'MemNum(20)    - quantidade
'MemNum(21)    - valor medio/unitario
'MemNum(22)    - valor total
'MemNum(23)    - medidas por unidade
'MemNum(24)    - medidas totais

'existencia
'MemNum(30)    - quantidade
'MemNum(31)    - valor medio/unitario
'MemNum(31)    - valor total
'MemNum(33)    - medidas por unidade (nao usado)
'MemNum(34)    - medidas totais

'margem
'MemNum(41)    - valor medio/unitario
'MemNum(42)    - valor total
'MemNum(45)    - percentagem


Pag       = Doc_CntPag
Cnt       = FrmVal$(CntAux(1),21,4)
Tit080    = TxTit$("TT=10CPI, LD, PT=40C, TL=10CPI",Memtxt$(1))
Tit132    = TxTit$("TT=16CPI, LD, PT=66C",Memtxt$(1))

DataExt   = FrmDt$("EXT",Sig_DtHoje)

Lote      = MemTxt$(11)
Art       = MemTxt$(21)
ArtF      = MemTxt$(22)
Desc26    = left$(MemTxt$(23),26)

'documento
DocIde    = MemTxt$(30)
DocTip    = MemTxt$(31)
DocNum    = MemTxt$(32)
DocDt     = FrmDt$("",MemNum(1))

'conta
CtCod     = MemTxt$(41)
CtIde     = MemTxt$(42)

'valores por artigo/lote
'entradas
Equ       = FrmNum$(7.1,MemNum(10))
Evu       = FrmNum$(9.1,MemNum(11))
Evl       = FrmNum$(9.1,MemNum(12))
Eqm       = FrmNum$(5.3,MemNum(14))

'saidas
Squ       = FrmNum$(7.1,MemNum(20))
Svu       = FrmNum$(9.1,MemNum(21))
Svl       = FrmNum$(9.1,MemNum(22))
Sqm       = FrmNum$(5.3,MemNum(24))

'residual
Rqu       = FrmNum$(7.1,MemNum(30))
Rvu       = FrmNum$(9.1,MemNum(31))
Rvl       = FrmNum$(9.1,MemNum(32))
Rqm       = FrmNum$(5.3,MemNum(34))

'margem
Mvu       = FrmNum$(9.1,MemNum(41))
Mvl       = FrmNum$(9.1,MemNum(42))
Mper      = FrmNum$(3.1,MemNum(45))


'subtotais por lote
sEqu      = FrmNum$(7.1,Total(Equ,1))
sEvl      = FrmNum$(9.1,Total(Evl,1))
sEqm      = FrmNum$(5.3,Total(Eqm,1))

sSqu      = FrmNum$(7.1,Total(Squ,1))
sSvl      = FrmNum$(9.1,Total(Svl,1))
sEqm      = FrmNum$(5.3,Total(Sqm,1))

sRqu      = FrmNum$(7.1,Total(Rqu,1))
sRvl      = FrmNum$(9.1,Total(Rvl,1))
sRqm      = FrmNum$(5.3,Total(Rqm,1))

sMvl      = FrmNum$(9.1,Total(Mvl,1))

'totais gerais
tEqu      = FrmNum$(7.1,Total(Equ,0))
tEvl      = FrmNum$(9.1,Total(Evl,0))
tEqm      = FrmNum$(5.3,Total(Eqm,0))

tSqu      = FrmNum$(7.1,Total(Squ,0))
tSvl      = FrmNum$(9.1,Total(Svl,0))
tSqm      = FrmNum$(5.3,Total(Sqm,0))

tRqu      = FrmNum$(7.1,Total(Rqu,0))
tRvl      = FrmNum$(9.1,Total(Rvl,0))
tRqm      = FrmNum$(5.3,Total(Rqm,0))

tMvl      = FrmNum$(9.1,Total(Mvl,0))
##


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


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


'------------------------------------------------------------------------------
'- Entradas/Saidas ------------------------------------------------------------
'------------------------------------------------------------------------------
SUB LotEs_Cab 'cabecalho
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                            #
?Data: @DataExt                                                                                                       Folha No: @Pag#
?====================================================================================================================================
?                                                  Entradas                 Saidas                  Existencia             Margem
?  Codigo        Designacao                   Quant.       Valor      Quant.       Valor      Quant.       Valor        Valor     %  
'123456789.12345 123456789.123456789.123456 123,123.0 12,123,123.0  123,123.0 12,123,123.0  123,123.0 12,123,123.0 12,123,123.0 123.1
?====================================================================================================================================
end sub


SUB LotEs_LinIde 'identificacao do lote
Print "Lote: " MemTxt$(11)
end sub


SUB LotEs_Lin 'linha de artigo
?@ArtF           @Desc26                    @Equ      @Evl          @Squ      @Svl          @Rqu      @Rvl         @Mvl         @Mper
end sub


SUB LotEs_LinSbt 'subtotal do lote
?      Subtotal:                            @sEqu     @sEvl         @sSqu     @sSvl         @sRqu     @sRvl        @sMvl            #
print
x=TotLpz(1)
end sub


SUB LotEs_Fim
?====================================================================================================================================
?      Total:                               @tEqu     @tEvl         @tSqu     @tSvl         @tRqu     @tRvl        @tMvl            #
?====================================================================================================================================
FxDiv LstPer,SP
end sub



'------------------------------------------------------------------------------
'- Entradas/Saidas + Medidas --------------------------------------------------
'------------------------------------------------------------------------------
SUB LotEsMed_Cab 'cabecalho
FxDiv LstIde,16CPI,0
?@Tit132                                                                                                                            #
?Data: @DataExt                                                                                                       Folha No: @Pag#
?====================================================================================================================================
?                                                  Entradas                 Saidas                  Existencia             Margem
?  Codigo        Designacao                   Quant.       Valor      Quant.       Valor      Quant.       Valor        Valor     %  
'123456789.12345 123456789.123456789.123456 123,123.0 12,123,123.0  123,123.0 12,123,123.0  123,123.0 12,123,123.0 12,123,123.0 123.1
?====================================================================================================================================
end sub


SUB LotEsMed_LinIde 'identificacao do lote
Print "Lote: " MemTxt$(11)
end sub


SUB LotEsMed_Lin 'linha de artigo
?@ArtF           @Desc26                    @Eqm      @Evl          @Sqm      @Svl          @Rqm      @Rvl         @Mvl         @Mper
end sub


SUB LotEsMed_LinSbt 'subtotal do lote
?      Subtotal:                            @sEqm     @sEvl         @sSqm     @sSvl         @sRqm     @sRvl        @sMvl            #
print
x=TotLpz(1)
end sub


SUB LotEsMed_Fim
?====================================================================================================================================
?      Total:                               @tEqm     @tEvl         @tSqm     @tSvl         @tRqm     @tRvl        @tMvl            #
?====================================================================================================================================
FxDiv LstPer,SP
end sub


'------------------------------------------------------------------------------
'- Documentos -----------------------------------------------------------------
'------------------------------------------------------------------------------
SUB DocEs_Cab 'cabecalho
FxDiv LstIde,10CPI,0
?@Tit080                                                                        #
?Data: @DataExt                                                   Folha No: @Pag#
?================================================================================
?  Documento           Data      Conta                Nome 
?================================================================================
end sub


SUB DocEs_LinIde 'identificacao do lote
Print tab(5) "Lote: " MemTxt$(11)
end sub


SUB DocEs_Lin 'linha de documento
'LS1 123,456/2000   2000/01/02   123456789.12   123456789.123456789.123456789.
?@DocIde            @DocDt       @CtCod         @CtIde                          #
end sub


SUB DocEs_LinSbt 'subtotal do lote
print
end sub


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


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

'-------------------------------------------------------------------------------------------------------------------------
'- Encomendas por artigo (Discriminada) - Modo gr�fico
'-------------------------------------------------------------------------------------------------------------------------
SUB LotESG_Cab 'listagem lotes (entradas/Saidas)- cabecalho (modo grafico)
Titulo$="Lotes Entradas/Sa�das"
Call SigLstCab
Lin1=1                            		'linha 1
Lin2=5                                          'linha 2
esp=30

TCol1=0
TCol2=21
TCol3=30
TCol4=50
TCol5=70
TCol6=108
TCol7=110
TCol8=165
TCol9=178
TCol10=195
Cmax=TCol10

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

PrWIN TX_CTR,  TCol1 ,Lin2,TCol2 ,Lin2,"C�digo"
PrWIN TX_CTR,  TCol2 ,Lin2,TCol3 ,Lin2,"Designa��o"
PrWIN TX_CTR,  TCol3 ,Lin2,TCol4 ,Lin2,"Quant."
PrWIN TX_CTR,  TCol4 ,Lin2,TCol5 ,Lin2,"Valor"
PrWIN TX_CTR,  TCol5 ,Lin2,TCol6 ,Lin2,"Quant."
PrWIN TX_CTR,  TCol6 ,Lin2,TCol7 ,Lin2,"Valor"
PrWIN TX_CTR,  TCol7 ,Lin2,TCol8 ,Lin2,"Quant."
PrWIN TX_CTR,  TCol8 ,Lin2,TCol9 ,Lin2,"Valor"
PrWIN TX_CTR,  TCol9 ,Lin2,TCol10,Lin2,"Quant."
PrWIN TX_CTR,  TCol10,Lin2,TCol11,Lin2,"Valor"

PrWIN TX_CTR,  TCol3 ,Lin1,TCol5 ,Lin1,"Entradas"
PrWIN TX_CTR,  TCol5 ,Lin2,TCol7 ,Lin2,"Sa�das"
PrWIN TX_CTR,  TCol7 ,Lin2,TCol9 ,Lin2,"Exist�ncia"
PrWIN TX_CTR,  TCol9 ,Lin2,TCol11,Lin2,"Margem"

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

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

'?====================================================================================================================================
'?                                                  Entradas                 Saidas                  Existencia             Margem
'?  Codigo        Designacao                   Quant.       Valor      Quant.       Valor      Quant.       Valor        Valor     %  
''123456789.12345 123456789.123456789.123456 123,123.0 12,123,123.0  123,123.0 12,123,123.0  123,123.0 12,123,123.0 12,123,123.0 123.1
'?====================================================================================================================================

SUB LotESG_Lin 'listagem por lotes (entradas/saidas) - linha (modo grafico)
Col1=0
Col2=15
Col3=30
Col4=47
Col5=75
Col6=100
Col7=125
Col8=168
Col9=178
Col10=195
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 LoteESG_LinIde 'listagem por lote (entradas/Saidas)- 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 TX_N,     Col0,0,@Art
'PrWIN TX_N,     Col2,0,@Desc
'PrWIN FON  ,   8,   1                           'activar fonte
end sub


SUB LoteESG_Sbt 'listagem por lote (entradas/Saidas)- substituicao (modo grafico)
Col1=0
Col2=15
Col3=30
Col4=47
Col5=75
Col6=100
Col7=125
Col8=168
Col9=178
Col10=195
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 LotESG_Fim 'listagem por lotes (entradas/saidas) - 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
##


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

