'Nome       : ERD_CMV
'Tipo       : LST
'Data       : 2001/07/25
'Versao     : 1.0
'Descricao  : Mapa de estatistico de codigos de movimento - com limites


'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.0  2001/??/?? ---------------------------------------------------
'Versao base


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


'-----------------------------------------------------------------------------
' Campos especificos
'-----------------------------------------------------------------------------
#ESP
##


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=ERD2
Nome                       [DocNom]=ERD,Analise de Abonos

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Codigos de movimento a     [DocEsp]=LimCmv=100:400
Listar quantidade          [DocEsp]=LstQu=0
Listar valor               [DocEsp]=LstVl=1

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_Cab
Listar linhas               [FxLIN]=Lst_; Trb ; Lin ; St ;Sec
Listar fim                  [FxFIM]=Lst_Fim
##

#DOC
Tipo                       [DocTip]=ERD2
Nome                       [DocNom]=ERD,Analise de Faltas

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Codigos de movimento a     [DocEsp]=LimCmv=400:700
Listar quantidade          [DocEsp]=LstQu=1
Listar valor               [DocEsp]=LstVl=0


'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_Cab
Listar linhas               [FxLIN]=Lst_; Trb ; Lin ; St ;Sec
Listar fim                  [FxFIM]=Lst_Fim
##

#DOC
Tipo                       [DocTip]=ERD2
Nome                       [DocNom]=ERD,Analise de Descontos

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Codigos de movimento a     [DocEsp]=LimCmv=700:900
Listar quantidade          [DocEsp]=LstQu=0
Listar valor               [DocEsp]=LstVl=1


'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_Cab
Listar linhas               [FxLIN]=Lst_; Trb ; Lin ; St ;Sec
Listar fim                  [FxFIM]=Lst_Fim
##

#DOC
Tipo                       [DocTip]=ERD2
Nome                       [DocNom]=ERD,Analise Configuravel

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=1
Codigos de movimento a     [DocEsp]=LimCmv=?
Listar quantidade          [DocEsp]=LstQu=?
Listar valor               [DocEsp]=LstVl=?

'funcoes de listagem
Listar cabecalho            [FxCAB]=Lst_Cab
Listar linhas               [FxLIN]=Lst_; Trb ; Lin ; St ; Sec
Listar fim                  [FxFIM]=Lst_Fim
##



'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
DatDia     = FrmDt$("EXT",Sig_DtHoje)
Pag        = Doc_CntPag
Tit        = MemTxt$(1)
PerSon     = LstIde$("PERSON")

TrbLin     = Gpe_Mst_Trb$+"  "+Gpe_Mst_Nome$
CodLin     = Gpe_Cmv_Cod$+" "+left$(Gpe_Cmv_Descr$,18)
Sec        = GpeCodFrm$("SEC",Gpe_Mst_Sec$)+"  "+GpeTabCon$("SEC",Gpe_Mst_Sec$,"DESC")

Jan        = GpeFrmMoe$("",-6,Gpe_Acm_V01)
fev        = GpeFrmMoe$("",-6,Gpe_Acm_V02)
Mar        = GpeFrmMoe$("",-6,Gpe_Acm_V03)
Abr        = GpeFrmMoe$("",-6,Gpe_Acm_V04)
Mai        = GpeFrmMoe$("",-6,Gpe_Acm_V05)
Jun        = GpeFrmMoe$("",-6,Gpe_Acm_V06)
Jul        = GpeFrmMoe$("",-6,Gpe_Acm_V07)
Ago        = GpeFrmMoe$("",-6,Gpe_Acm_V08)
Set        = GpeFrmMoe$("",-6,Gpe_Acm_V09)
Out        = GpeFrmMoe$("",-6,Gpe_Acm_V10)
Nov        = GpeFrmMoe$("",-6,Gpe_Acm_V11)
Dez        = GpeFrmMoe$("",-6,Gpe_Acm_V12)
TLin       = GpeFrmMoe$("",-6,MemNum(10))


Jan2       = GpeFrmT$("?",3.2,Gpe_Acm_H01)
fev2       = GpeFrmT$("?",3.2,Gpe_Acm_H02)
Mar2       = GpeFrmT$("?",3.2,Gpe_Acm_H03)
Abr2       = GpeFrmT$("?",3.2,Gpe_Acm_H04)
Mai2       = GpeFrmT$("?",3.2,Gpe_Acm_H05)
Jun2       = GpeFrmT$("?",3.2,Gpe_Acm_H06)
Jul2       = GpeFrmT$("?",3.2,Gpe_Acm_H07)
Ago2       = GpeFrmT$("?",3.2,Gpe_Acm_H08)
Set2       = GpeFrmT$("?",3.2,Gpe_Acm_H09)
Out2       = GpeFrmT$("?",3.2,Gpe_Acm_H10)
Nov2       = GpeFrmT$("?",3.2,Gpe_Acm_H11)
Dez2       = GpeFrmT$("?",3.2,Gpe_Acm_H12)
TLin2      = GpeFrmT$("?",3.2,MemNum(20))

'totais de seccao - valor
TotJan     = GpeFrmMoe$("",-6,MemNum(31))
TotFev     = GpeFrmMoe$("",-6,MemNum(32))
TotMar     = GpeFrmMoe$("",-6,MemNum(33))
TotAbr     = GpeFrmMoe$("",-6,MemNum(34))
TotMai     = GpeFrmMoe$("",-6,MemNum(35))
TotJun     = GpeFrmMoe$("",-6,MemNum(36))
TotJul     = GpeFrmMoe$("",-6,MemNum(37))
TotAgo     = GpeFrmMoe$("",-6,MemNum(38))
TotSet     = GpeFrmMoe$("",-6,MemNum(39))
TotOut     = GpeFrmMoe$("",-6,MemNum(40))
TotNov     = GpeFrmMoe$("",-6,MemNum(41))
TotDez     = GpeFrmMoe$("",-6,MemNum(42))
TotVl      = GpeFrmMoe$("",-6,MemNum(43))

'totais de seccao - quantidade (HORAS)
TJanh  = GpeFrmT$("H",3.2,MemNum(51))
TFevh  = GpeFrmT$("H",3.2,MemNum(52))
TMarh  = GpeFrmT$("H",3.2,MemNum(53))
TAbrh  = GpeFrmT$("H",3.2,MemNum(54))
TMaih  = GpeFrmT$("H",3.2,MemNum(55))
TJunh  = GpeFrmT$("H",3.2,MemNum(56))
TJulh  = GpeFrmT$("H",3.2,MemNum(57))
TAgoh  = GpeFrmT$("H",3.2,MemNum(58))
TSeth  = GpeFrmT$("H",3.2,MemNum(59))
TOuth  = GpeFrmT$("H",3.2,MemNum(60))
TNovh  = GpeFrmT$("H",3.2,MemNum(61))
TDezh  = GpeFrmT$("H",3.2,MemNum(62))
Toth   = GpeFrmT$("H",3.2,MemNum(63))

'totais de seccao - quantidade (DIAS)
TJanD  = GpeFrmT$("D",3.2,MemNum(51))
TFevD  = GpeFrmT$("D",3.2,MemNum(52))
TMarD  = GpeFrmT$("D",3.2,MemNum(53))
TAbrD  = GpeFrmT$("D",3.2,MemNum(54))
TMaiD  = GpeFrmT$("D",3.2,MemNum(55))
TJunD  = GpeFrmT$("D",3.2,MemNum(56))
TJulD  = GpeFrmT$("D",3.2,MemNum(57))
TAgoD  = GpeFrmT$("D",3.2,MemNum(58))
TSetD  = GpeFrmT$("D",3.2,MemNum(59))
TOutD  = GpeFrmT$("D",3.2,MemNum(60))
TNovD  = GpeFrmT$("D",3.2,MemNum(61))
TDezD  = GpeFrmT$("D",3.2,MemNum(62))
Totd   = GpeFrmT$("D",3.2,MemNum(63))

##



'-----------------------------------------------------------------------------
' Formato do documento
'-----------------------------------------------------------------------------
#PGM
Sub Lst_Cab
FxDiv LstIde,16CPI,1
Print PrtCmd$("[16CPILN]");
?                                               @Tit                                                                      #
?                                                                                                                     Pag. @Pag    #
?====================================================================================================================================
?                         |  Jan  |  Fev  |  Mar  |  Abr  |  Mai  |  Jun  |  Jul  |  Ago  |  Set  |  Out  |  Nov  |  Dez  |  Total  # 
?====================================================================================================================================
end sub

Sub Lst_Trb
?@TrbLin                                                                #
End sub


Sub Lst_Lin
if MemNum(5)>0 then
? @CodLin                (V)@Jan    @Fev    @Mar    @Abr    @Mai    @Jun    @Jul    @Ago    @Set    @Out    @Nov    @Dez    @TLin    #
end if
IF MemNum(6)>0 then
? @CodLin                (Q)@Jan2   @Fev2   @Mar2   @Abr2   @Mai2   @Jun2   @Jul2   @Ago2   @Set2   @Out2   @Nov2   @Dez2   @TLin2   #
end if

if MemNum(5)=MemNum(6) then      'listou ambas as linhas
 tmp=CntLin("INC",1)             'contar linha extra
end if
end sub



Sub Lst_Sec
Print PrtCmd$("[16CPILD]");
?   Seccao: @Sec                                                          #
Print PrtCmd$("[16CPILN]");
end sub


Sub Lst_St
?--SubTotal---------------------------------------------------------------------------------------------------------------------------
if MemNum(5)>0 then
?                   Valores @TotJan @TotFev @TotMar @TotAbr @TotMai @TotJun @TotJul @TotAgo @TotSet @TotOut @TotNov @TotDez @TotVl   #
end if
if MemNum(6)>0 then
?                  Dias  -> @TJand  @TFevd  @TMard  @TAbrd  @TMaid  @TJund  @TJuld  @TAgod  @TSetd  @TOutd  @TNovd  @TDezd  @Totd    #
?                  Horas -> @TJanh  @TFevh  @TMarh  @TAbrh  @TMaih  @TJunh  @TJulh  @TAgoh  @TSeth  @TOuth  @TNovh  @TDezh  @Toth    #
tmp=CntLin("INC",1)             'contar linha extra
end if
x=totlpz(1)
?====================================================================================================================================

if MemNum(5)=MemNum(6) then      'listou ambas as linhas
 tmp=CntLin("INC",1)             'contar linha extra
end if
end sub

Sub Lst_Fim
?====================================================================================================================================
FxDiv LstPer
Print PrtCmd$("[SP]");
end sub

##

