;** RE_0352 ********************************************************************
;** Imprime Etiqueta Personalizada                   ** DECORART TECIDOS **    *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 23/07/2014 por Andrey Fillipe
;Alterado      em:   /  /     por 
;Motivo Alteracao: 

;*******************************************************************************
;* Rotina para Impressao do Relatorio                                          *
;*******************************************************************************
Proc IMPETIQUETA()

COLUNA = 0 
LINHA  = 0

Print File ARQIMP CI_10CPP
Print File ARQIMP "\n\n\n\n"

View "Answer"
Scan
  NUMERO = [Numero]
  While COLUNA < 7
    Print File ARQIMP CI_IEXP
    Print File ARQIMP CI_INEG
    If COLUNA = 0
       Then Print File ARQIMP Spaces(2)
    EndIf
    Print File ARQIMP NUMERO
    COLUNA = COLUNA + 1
    Switch
      Case COLUNA = 3 Or COLUNA = 5 : Print File ARQIMP Spaces(3)
      OtherWise : Print File ARQIMP Spaces(4)
    EndSwitch  
  EndWhile
  Switch
    Case MOD(LINHA,2)=1 : Print File ARQIMP "\n\n\n\n"
    OtherWise : Print File ARQIMP "\n\n\n"
  EndSwitch
  
  COLUNA = 0
  LINHA = LINHA + 1

  If LINHA = 18  
     Then Print File ARQIMP "\n\n\n\n\n"
          LINHA = 0 
  EndIf
    
EndScan
ClearAll

EndProc ;IMPETIQUETA()

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

AGUARDE("Imprimindo Etiqueta ...")

IMPETIQUETA()

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

Release Vars COLUNA, LINHA
Release Procs IMPETIQUETA

LIMPAGUARDE()