;** OE_0389 ********************************************************************
;** Imprime a Posi‡Ćo Expedi‡Ćo - Quantidade de Itens do Pedido           ***  *
;** Modo Simples                                                          ***  *
;*******************************************************************************
;Autor: Visao/Vise
;Desenvolvido  em: 30/01/2020 por Bruno Carvalho
;Ultima Alteracao:   /  /     por                    
;Motivo Alteracao: 

;*******************************************************************************
;* Rotina para Impressao do Relatorio                                          *
;*******************************************************************************
Proc IMPPED()
Private NOMEMPRESA, NUMPEDIDO, RAZSOCIAL, SITUACAOOE, DATALIBERA

;ClearAll

NOMEMPRESA=[\Sistemas\Vendas\ExpedC->Nome Fantasia Empresa]
NUMPEDIDO =[\Sistemas\Vendas\ExpedC->Numero do Pedido     ]
RAZSOCIAL =[\Sistemas\Vendas\ExpedC->Razao Social         ]
SITUACAOOE=[\Sistemas\Vendas\ExpedC->Situacao da OE       ]
DATALIBERA=[\Sistemas\Vendas\ExpedC->Data_Liberacao       ]

Moveto "ExpedC"
If [Numero do Pedido]<>""
   Then Moveto [Numero do Pedido]
        If Busca_Lookup("Numero do Pedido",[Numero do Pedido],"SM")
          Then If [Numero do Pedido]=REG_BUSCA_LOOKUP["Numero do Pedido"]
                  Then  CODREP  =REG_BUSCA_LOOKUP["Codigo do Representante"]
                        NOMREP  =REG_BUSCA_LOOKUP["Nome Fantasia Represent"]
                        NOMTRA  =REG_BUSCA_LOOKUP["Nome Fantasia Transport"]
                        CONDPAG =REG_BUSCA_LOOKUP["Descricao CondPagto"]
                        CODIGO  =REG_BUSCA_LOOKUP["Codigo"]
                        CGC     =REG_BUSCA_LOOKUP["CGC"]
                        ENDERECO=REG_BUSCA_LOOKUP["Endereco"]
                        BAIRRO  =REG_BUSCA_LOOKUP["Bairro"]
                        CIDADE  =REG_BUSCA_LOOKUP["Cidade"]
                        UF      =REG_BUSCA_LOOKUP["UF"]
                        CEP     =REG_BUSCA_LOOKUP["Cep"]
               EndIf
        EndIf
   Else CODREP  =""
        NOMREP  =""
        NOMTRA  =""
        CONDPAG =""
        CODIGO  =""
        CGC     =""
        ENDERECO=""
        BAIRRO  =""
        CIDADE  =""
        UF      =""
        CEP     =""   
EndIf

If Not IsAssigned(NOMEMPRESA)
   Then NOMEMPRESA=""
EndIf                                 

;************************* IMPRESSAO DOS ITENS *********************************

Cabecalho()

Moveto "\\Sistemas\\Vendas\\ExpedI"

Cont=1

CONTPED=0
CONTEXP=0
AUX=[Numero da OE]
SEQ    =0

 Scan
   While AUX=[Numero da OE]
      
    CONTPED=CONTPED+[Quantidade_Pedido]
    CONTEXP=CONTEXP+[Quantidade_Expedida]
    
    NLINHA=NLINHA+1
    SEQ = SEQ + 1
    
    CALCDIF=([Quantidade_Expedida]-[Quantidade_Pedido])
  
       Print File ARQIMP ASP1+Spaces(02)+Format("W04,AR",StrVal(SEQ))   
       Print File ARQIMP Spaces(01)+Format("W08,AC",[Referencia])   
       Print File ARQIMP Spaces(01)+Format("W11,AL",[Codigo do Item])
       Print File ARQIMP Format("W40,AL",[Descricao do Item])
       Print File ARQIMP Format("W03,AL",[Unidade Fiscal])   
       Print File ARQIMP Format("W11.3,EIC",[Quantidade_Pedido])   
       Print File ARQIMP Format("W11.3,EIC",[Quantidade_Expedida])      
       Print File ARQIMP Format("W11.3,EIC",CALCDIF)+ASP2+"\n"
       Skip
       If EOT() Then QuitLoop Endif
       Cont=Cont+1
       If NLINHA=65
          Then Print File ARQIMP ASP1+"\f"+ ASP2 + "\n"
               Cabecalho()
       EndIf
       
   EndWhile
   Total()
 EndScan
Do_it!

EndProc

;*******************************************************************************
;* Rotina para Impressao do Cabe‡alho                                          *
;*******************************************************************************               
Proc Cabecalho()  
Print File ARQIMP ASP1+CI_6LPP+CI_15CPP+ASP2
Print File ARQIMP ASP1+ "  --------------------------------------------------------------------------------------------------------------------------------" + ASP2+"\n"
Print File ARQIMP ASP1+ Spaces(02)+Format("W36,AL",NOMEMPRESA)+Spaces(16)+"Posicao Expedicao"+Spaces(29)+"Impressao: "+Format("D13",Today())+"-"+Time()                                      + ASP2+"\n"
Print File ARQIMP ASP1+ "  --------------------------------------------------------------------------------------------------------------------------------" +ASP2+ "\n"
Print File ARQIMP ASP1+Spaces(02)+"  Numero da OE: "+Format("W08,AL",[Numero da OE])+Spaces(13)+"Pedido: "+Format("W07,AL",NUMPEDIDO)+Spaces(14)+"Cliente: "+CODIGO
Print File ARQIMP Spaces(02)+Format("W27,AL",RAZSOCIAL)+Spaces(02)+Format("W18,AL",CGC)+ASP2+"\n"                                                                                     
Print File ARQIMP ASP1+Spaces(02)+" Representante: "+Format("W21,AL",NOMREP)+Spaces(44)+Format("W41,AL",ENDERECO)+ASP2+"\n"
Print File ARQIMP ASP1+Spaces(02)+"Transportadora: "+Format("W21,AL",NOMTRA)+Spaces(44)+BAIRRO+Spaces(05)+CIDADE+"/"+UF+ASP2+"\n"
Print File ARQIMP ASP1+Spaces(02)+"        Volume: "+Format("W21,AL",[Numero de Volumes])+"  Peso Bruto: "+Strval([Peso Bruto])+ASP2+"\n"
Print File ARQIMP ASP1+Spaces(02)+" Cond. de Pag.: "+Format("W21,AL",CONDPAG)+"    Situacao: "+Format("W10,AL",SITUACAOOE)+ASP2+"\n"
Print File ARQIMP ASP1+Spaces(39)+"Dt Liberacao: "+Format("D13",DATALIBERA)+Spaces(15)+"Pedido/Expedicao"+ASP2+"\n"
Print File ARQIMP ASP1+ "  --------------------------------------------------------------------------------------------------------------------------------" +ASP2+ "\n"
Print File ARQIMP ASP1+Spaces(02)+"Sq   Ref.     Item                                               UN  Pedido     "
Print File ARQIMP "Exped.     Difer."+ASP2+"\n"
Print File ARQIMP ASP1+Spaces(02)+"---- -------- -------------------------------------------------- --- ---------- " 
Print File ARQIMP "---------- ----------"+ASP2+"\n"
NLINHA=12

EndProc

;*******************************************************************************
;* Rotina para Impressao do Rodap‚                                          *
;*******************************************************************************
Proc Total()

Print File ARQIMP ASP1+Spaces(02)+"---------------------------------------------------------------------------------" 
Print File ARQIMP "---------------------"+ASP2+"\n"
Print File ARQIMP ASP1+ Spaces(53)+"Total do Pedido: "+Format("W11.3,EIC",CONTPED)+ASP2+"\n"

EndProc  ;Total()

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************

Seta_FilePrint("OE_0001")

Moveto "ExpedC"
CoeditKey

IMPPED()
Imprime_FilePrint("Imprimindo Posi‡Ćo Expedi‡Ćo -> "+"OE_0001", "R")

Release Vars VALOR,DATA, NOMEMPRESA, NUMPEDIDO, RAZSOCIAL, SITUACAOOE, DATALIBERA,
             CODREP, NOMREP, CODTRA,  NOMTRA, CONDPAG, CODIGO, ENDERECO, BAIRRO, 
             CIDADE, UF, CEP
Release Procs IMPPED, Cabecalho, Total, Seta_FilePrint, Imprime_FilePrint


