;** ET_0343 ********************************************************************
;** Imprime Etiqueta Personalizada                             ** Thardely **  * 
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 24/07/2013 por Bruno Carvalho
;Alterado      em: 31/07/2013 por NIkolas
;Motivo Alteracao: Ajustes
;Alterado      em: 18/09/2013 por Bruno Carvalho
;Motivo Alteracao: Formatado VR_EMBALAGEM para 8.2
;Alterado      em: 21/11/2013 por Bruno Carvalho
;Motivo Alteracao: Adicionado pais de origem caso tenha no item
;Alterado      em: 17/06/2016 por Kamila Gomes
;Motivo Alteracao: Ajustes getrecord iten_Com
;*******************************************************************************
;* Rotina para Impressao do Relatorio                                          *
;*******************************************************************************
Proc IMPETIQUETA()
Private Wh

If VSDGQUAN = blanknum()
   Then VSDGQUAN = 1
EndIf

GetRecord "\\Sistemas\\Estoque\\Itens" VSDGITEM To ITEM
If RetVal
   Then PAIS = ITEM["Pais"] 
   Else PAIS = ""
EndIf 


For Wh From 1 To VSDGQUAN
    
    Print File ARQIMP CI_10CPP

    Print File ARQIMP "\018" 
    Print File ARQIMP "\027E"+" ART: "+"\027F"+VSDGITEM+Spaces(01)+"\n"
    Print File ARQIMP "\n"
    
    Print File ARQIMP "\018" 
    Print File ARQIMP "\027E"+"COMP: "+"\027F"+SubStr(DESCRICAO,1,25)+"\n"
    Print File ARQIMP "\018"  
    Print File ARQIMP Spaces(06)+LTrim(SubStr(DESCRICAO,26,25))+"\n"
    Print File ARQIMP "\n"

    Print File ARQIMP "\018"                    
    Print File ARQIMP "\027E"+" PCA: "+"\027F"+Format("W8.2,AL",VR_EMBALAGEM)+" "+Format("W2",UN_EMBALAGEM)+"\n"
    Print File ARQIMP "\n"
    
    Print File ARQIMP "\018"  
    
    Print File ARQIMP "\027E"+"PAIS: "  +"\027F"+Format("W15,AL",PAIS)+"\n" 
    
    ;If SYS_CODIGO_CLIENTE="0343" And PAIS<>""
    ;   Then If REND=""
    ;           Then Print File ARQIMP "\027E"+"PAIS: "  +"\027F"+Format("W15,AL",PAIS)+"\n" 
    ;           Else Print File ARQIMP "\027E"+"REND: "  +"\027F"+Substr(REND,1,5)+Format("W10,AR",PAIS)+"\n" 
    ;        EndIf
    ;   Else Print File ARQIMP "\027E"+"REND: "  +"\027F"+Substr(REND,1,15)+"\n"
    ;EndIf
    
    Print File ARQIMP "\n"

    Print File ARQIMP "\018" 
    Print File ARQIMP "\027E"+" COD: "+"\027F"+VSDGCOD+Spaces(01)+"\n" 

    Print File ARQIMP CI_10CPP
    Print File ARQIMP CI_6LPP    
    
    If Wh = VSDGQUAN
       Then QuitLoop
       Else Print File ARQIMP "\n\n"
    EndIf
    
EndFor

EndProc ;IMPETIQUETA()

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
ARQIMP=PrivDir()+"ET_0343.Txt"
If IsFile(ARQIMP)
   Then Deleta_Arquivo(ARQIMP)
EndIf
AGUARDE("Imprimindo Etiqueta ...")

View "Answer"
Moveto [Codigo do Item]
Locate AlinhM(VSDGITEM,10)
If RetVal
   Then If [Descricao Complementar]<>""
           Then DESCRICAO=[Descricao Complementar]
           Else DESCRICAO=[Descricao do Item     ]
        EndIf 
        UN_EMBALAGEM = [Unidade Embalagem        ]    
        VR_EMBALAGEM = [Fator Conversao Embalagem]
        GetRecord "\\Sistemas\\Estoque\\Iten_Com" AlinhM(VSDGITEM,10) to REG_ITCOM
        If RetVal
           Then REND = REG_ITCOM["Codigo Concentrador"]
           Else REND = ""
        EndIf

   Else DESCRICAO    = ""
        UN_EMBALAGEM = ""
        VR_EMBALAGEM = ""
        GetRecord "\\Sistemas\\Estoque\\Iten_Com" AlinhM(VSDGITEM,10) to REG_ITCOM
        If RetVal
           Then REND = REG_ITCOM["Codigo Concentrador"]
           Else REND = ""
        EndIf

EndIf   
ClearAll

If VR_EMBALAGEM=""
   Then VR_EMBALAGEM = VSDGPEC
EndIf   

IMPETIQUETA()   

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

Release Vars VALOR, REG_ITCOM
Release Procs IMPETIQUETA

LIMPAGUARDE()
