;** ET_CB002  ******************************************************************
;** Impressao de Etiqueta c/ C¢digo de Barras - Jato de Tinta    ** QUEOPS **  *
;** Adaptado para ImpressÆo de C¢digos de Barra : COD128
;** Etiqueta Pimaco Com 3 Colunas e 10 Linhas de Etiqueta (6,6 x 2,5)
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido em : 21/01/2011 por Bruno Carvalho
;Ultima Alteracao:   /  /     por 
;Motivo Alteracao: 

;*******************************************************************************
;* Rotina de Impressao das Etiquetas                                           *
;*******************************************************************************
Proc MONTA_ETIQUETA()

If QUEBRA_PAGINA > 30
   Then QUEBRA_PAGINA = 0
        Print File ARQIMP "\f"
        Print File ARQIMP "\n\n\n"
EndIf

Print File ARQIMP Spaces(03)

For I From 1 to K
  Print File ARQIMP DESC_ITEM[I]+Spaces(04)
EndFor
Print File ARQIMP "\n\n"

Print File ARQIMP Spaces(09)
For I From 1 to K
  Print File ARQIMP COD_BARRA[I]
  Print File ARQIMP Spaces(47)
EndFor
Print File ARQIMP "\n\n\n\n"

EndProc
;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
ClearAll

Tabela=Cria_Temp(PrivDir())
Copy "Answer" Tabela
ClearAll

CONTADOR = 0
QUEBRA_PAGINA = 0

View "Answer"
View Tabela

ArqImp=PrivDir()+"Etiqueta.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ARQIMP)
EndIf

Print File ARQIMP CI_15CPP

Array DESC_ITEM[3]
Array COD_BARRA[3]
K=0

Print File ARQIMP "\n\n\n"

While [Quantidade] > CONTADOR
      CONTADOR=CONTADOR + 1  
      QUEBRA_PAGINA = QUEBRA_PAGINA + 1
      K=K+1                                                             ;07                                          ;03
      DESC_ITEM[K] = "\027E"+Format("W30,AL",[Descricao do Item])+Spaces(04)+Format("W03,AR",[Unidade Fiscal])+Spaces(06)+"\027F"
      COD_BARRA[K] = Chr(27)+"(B"+Chr(16)+"0230150"+[Codigo de Barras]
      If K=3                    
         Then MONTA_ETIQUETA()
              K=0
      EndIf
      If [Quantidade] = CONTADOR
         Then CONTADOR = 0
              Skip                      
              If EOT() Then QuitLoop EndIf
      EndIf
EndWhile

;Esquema para Fazer Etiqueta em Formato EAN13 : Chr(27)+"(B"+Chr(19)+"0030150"+[Codigo de Barras]
                                                                                                           
If K>0
   Then MONTA_ETIQUETA()
EndIf

Print File ARQIMP "\n"

LIMPAGUARDE()

Delete Tabela

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



