;** EV_0319 ********************************************************************
;** Imprime a Rela‡Æo de Carregamento por Marca                      ** GM **  *
;*******************************************************************************
;Autor: Visao/Vise
;Desenvolvido  em: 13/09/2012 por Bruno Carvalho
;Ultima Alteracao: 05/10/2012 por Bruno Carvalho
;Motivo Alteracao: Alterado a variavel NOTAS p/ receber "Numero Nota Gerada" e nÆo "Numero da OF"

;*******************************************************************************
;* Rotina para Impressao do Carregamento . Cabe‡alho                           *
;*******************************************************************************
Proc Cabecalho()      

PAG = PAG + 1

Print File ARQIMP CI_10CPP
Print File ARQIMP CI_6LPP

Moveto "AcCarrgC"

Print File ARQIMP "\n"

If PAG=1
   Then DATA = StrVal(Today()) 
        DATA = Substr(DATA,1,2)+"/"+SubStr(DATA,4,2)+"/"+SubStr(DATA,7,4)+Spaces(1)
        HORA = StrVal(Time())+Spaces(2)
EndIf                        
                  
Print File ARQIMP "\015"                  
Print File ARQIMP Fill("=",132)+"\n"
Print File ARQIMP Format("W35","GM COMERCIAL")+Spaces(59)+"Emissao: "+DATA+HORA+"PAG: "+AlinhM(StrVal(PAG),3)+"\n"   
Print File ARQIMP Fill("=",132)+"\n\n"    

Print File ARQIMP Format("W132,AC","RELACAO DE CARREGAMENTO / MARCA")+"\n\n"   

Print File ARQIMP "FILIAL....... : "+Format("W40","GM COMERCIAL")+Spaces(15)+"CARGA... : "+[Numero_Carregamento]+"\n"
    
If [Codigo do Representante]<>""
   Then REPRESENTANTE="VENDEDOR : "+Format("W5",[Codigo do Representante])+Format("35",[Nome Fantasia Represent])+Spaces(15)                    
   Else REPRESENTANTE="VENDEDOR : "+Format("40",[Nome Fantasia Represent])+Spaces(15)      
EndIf

Print File ARQIMP "N§ PEDIDO.... : "+Spaces(5)+Spaces(50)+REPRESENTANTE+"\n"
                  
If [Codigo da Transportadora]<>"" 
   Then TRANSPORTADOR="TRANSPORTADOR : "+Format("W5",[Codigo da Transportadora])+Format("35",[Nome Fantasia Transport])+Spaces(15)                 
   Else TRANSPORTADOR="TRANSPORTADOR : "+Format("W40",[Nome Fantasia Transport])+Spaces(15)                 
EndIf

If [Codigo do Veiculo]<>""
   Then VEICULO="VEICULO. : "+Spaces(1)+Format("W4",[Codigo do Veiculo])+Format("W35",[Placa do Veiculo])
   Else VEICULO="VEICULO. : "+Format("W40",[Placa do Veiculo])
EndIf     

Print File ARQIMP TRANSPORTADOR+VEICULO+"\n\n"

Print File ARQIMP "CODIGO       DESCRICAO                                                    UN     QUANTIDADE           PESO"+"\n"
Print File ARQIMP "------------ ------------------------------------------------------------ --  -------------  -------------"+"\n"

NLINHA=13

EndProc ;(Cabecalho)

;=========================================================================================================================================
;AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA                                                           Emissao: DD/MM/AAAA 00:00:00  PAG: AAA
;=========================================================================================================================================
;
;                                                     RELACAO DE CARREGAMENTO / MARCA 
;
;FILIAL....... : AAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA               CARGA... : AAAAAAAAAA
;N§ PEDIDO.... : AAAAA                                                  VENDEDOR : AAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
;TRANSPORTADOR : AAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA               VEICULO. :  AAA AAAAAAAA
;
;CODIGO       DESCRICAO                                                    UN     QUANTIDADE           PESO
;------------ ------------------------------------------------------------ --  -------------  -------------
;XXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XX  XXXXXXXXXX.XX  XXXXXXXXX.XXX
;
;                                               TOTAL ..................... :  XXXXXXXXXX.XX  XXXXXXXXX.XXX
               
;*******************************************************************************
;* Rotina para Impressao do Carregamento . Itens                               *
;*******************************************************************************
Proc Itens()

Moveto "Answer"

MARCA     = "***"
TOT_MARCA = 0
TOT_PESOM = 0
MARCA_TOT = 0
PESOM_TOT = 0     
TIT_MARCA = False 

Scan   
   If [Codigo da Marca]<>MARCA
      Then If MARCA<>"***"
              Then Checa_Linha(1)
                   Print File ARQIMP Spaces(47)+"TOTAL ..................... :  "+Format("W13.2,EIC",TOT_MARCA)+Spaces(2)+
                                     Format("W13.3,EIC",TOT_PESOM)+"\n\n"
                   TOT_MARCA = 0
                   TOT_PESOM = 0
           EndIF
           MARCA = [Codigo da Marca]
           
           TIT_MARCA = False
           Checa_Linha(2) 
                     
           Print File ARQIMP "\27E"+"MARCA.........: "+[Codigo da Marca]+Spaces(1)+[Descricao da Marca]+"\27F"+"\n"
      Else TIT_MARCA = True 
           Checa_Linha(1)     
   EndIf
   
   ;If [Numero Nota Gerada]<>""
   ;   Then If Search([Numero Nota Gerada],NOTAS)=0
   ;           Then If NOTAS=""
   ;                   Then  NOTAS = NOTAS + [Numero Nota Gerada]
   ;                   Else  NOTAS = NOTAS + ", " + [Numero Nota Gerada]
   ;                EndIf  
   ;        EndIf    
   ;EndIf    
   
   TOT_MARCA = TOT_MARCA + [Quantidade]
   TOT_PESOM = TOT_PESOM + ([Peso Liquido]*[Quantidade])
      
   MARCA_TOT = MARCA_TOT + [Quantidade]
   PESOM_TOT = PESOM_TOT + ([Peso Liquido]*[Quantidade])      
      
   Print File ARQIMP Format("W12",[Referencia])+Spaces(1)
   Print File ARQIMP Format("W60",[Descricao do Item])+Spaces(1)
   Print File ARQIMP Format("W2",[Unidade Fiscal])+Spaces(2)
   Print File ARQIMP Format("W13.2,EIC",[Quantidade])+Spaces(2)
   Print File ARQIMP Format("W13.3,EIC",[Quantidade]*[Peso Liquido])+Spaces(1)+"\n"
   
EndScan                               

Checa_Linha(2)
Print File ARQIMP Spaces(47)+"TOTAL ..................... :  "+Format("W13.2",TOT_MARCA)+Spaces(2)+
                              Format("W13.3,EIC",TOT_PESOM)+"\n\n"

Print File ARQIMP Spaces(47)+"TOTAL FILIAL .............. :  "+Format("W13.2",MARCA_TOT)+Spaces(2)+
                              Format("W13.3,EIC",PESOM_TOT)+"\n\n"

If PARAM_NITENS - NLINHA > 0
   Then While NLINHA <> PARAM_NITENS - 3
           NLINHA = NLINHA + 1
           Print File ARQIMP "\n"
        EndWhile
   Else Checa_Linha(3)
EndIf    

Print File ARQIMP "RELACAO: "+"\n"
Print File ARQIMP SubStr(NOTAS,001,132)+"\n"
Print File ARQIMP SubStr(NOTAS,133,132)

EndProc ;(Itens)
 
;*******************************************************************************
;* Checa linha na area de impressao dos itens                                  *
;*******************************************************************************
Proc Checa_Linha(Nl)
private nl

If (NLINHA+nl)>(PARAM_NITENS)
   Then Print File ARQIMP "\f"
        Cabecalho()
        NLINHA=NLINHA + nl
        Moveto "Answer"
        If TIT_MARCA
           Then Print File ARQIMP "\27E"+"MARCA.........: "+[Codigo da Marca]+Spaces(1)+[Descricao da Marca]+"\27F"+"\n"
        EndIf   
   Else NLINHA=NLINHA+nl
EndIf
EndProc

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
ArqImp=PrivDir()+"EV_0319.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ARQIMP)
EndIf

PARAM_NITENS = 57      
PAG=0  

Sort "Answer" On "Codigo da Marca"
                     
View "Answer"
View "AcCarrgC"                  
Moveto [Numero_Carregamento] 
Locate NUMDOC

AGUARDE("Imprimindo Carregamento -> "+[Numero_Carregamento])

Cabecalho()
Itens()

ClearAll
;---- Imprime Arquivo Impressao ------------------------------------------------
ImpriArq(ARQIMP)

Release Vars VALOR,DATA
Release Procs IMPFAT,VENC
LIMPAGUARDE()
