;** EV_0009  *******************************************************************
;* Monta Etiqueta p/ Impressora Termica - Zebra - Interno Thardelly            *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 05/05/2017 por Anivel Augusto Rodrigues
;Ultima Alteracao: 29/06/2017 por Bruno Carvalho 
;Motivo Alteracao: Adicionado ajustes no modelo p/ #0318#
;Ultima Alteracao: 04/07/2017 por Bruno Carvalho 
;Motivo Alteracao: Ajustes #0318#
;Ultima Alteracao: 04/07/2017 por Bruno Carvalho 
;Motivo Alteracao: Criado uma variavel de controle "INICIO" para a impressÆo inicial, antes utilizava posio‡Æo A40, 
;                  ajustado p/ A10 diante de uma troca de impressora #0318#
;Ultima Alteracao: 23/02/2021 por Bruno Carvalho 
;Motivo Alteracao: Adicionado ajustes para #0370#

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc Monta_Etiqueta()

Print File Arquivo "q1272\n"        ;DOT a 12 por mm
Print File Arquivo "Q320,032\n"     ;DOT a  8 por mm
Print File Arquivo "rN\n"
Print File Arquivo "S3\n"
Print File Arquivo "D7\n"
Print File Arquivo "ZT\n"
Print File Arquivo "JF\n"
Print File Arquivo "O\n"
Print File Arquivo "N\n"

If SYS_CODIGO_CLIENTE="0318"
   Then INICIO = "10"
        ;---- Modelo 1 ---------------------------------------------------------
        Print File Arquivo "A"+INICIO+",010,0,3,1,2,N,\""+CLIENTE+"\"\n"                ;5,1,1
        Print File Arquivo "A"+INICIO+",070,0,4,1,2,N,\""+CIDADE+"\"\n"
        Print File Arquivo "A"+INICIO+",120,0,4,1,3,N,\""+VOLUME+ETQ+"\"\n"
        Print File Arquivo "A"+INICIO+",190,0,5,1,1,N,\""+NOTAFISC+"\"\n"
        Print File Arquivo "A"+StrVal(NumVal(INICIO)+10)+",240,0,4,1,2,N,\""+RAZTRA+"\"\n"
        
        ;---- Modelo 2 ---------------------------------------------------------
        ;Print File Arquivo "A40,010,0,5,1,1,N,\""+CLIENTE+"\"\n"
        ;Print File Arquivo "A40,070,0,4,1,2,N,\""+CIDADE+"\"\n"
        ;Print File Arquivo "A40,120,0,4,1,3,N,\""+VOLUME+ETQ+"\"\n"
        ;Print File Arquivo "A40,190,0,5,1,1,N,\""+NOTAFISC+"\"\n"
        ;Print File Arquivo "A50,250,0,4,1,2,N,\""+RAZTRA+"\"\n"
        
        ;---- Erro ao tentar colocar negrito -----------------------------------
        ;Print File Arquivo "A40,010,0,4,2,2,N,\""+CLIENTE+"\"\n"
        ;Print File Arquivo "A40,070,0,4,1,2,N,\""+CIDADE+"\"\n"
        ;Print File Arquivo "A40,120,0,4,1,3,N,\""+VOLUME+ETQ+"\"\n"
        ;Print File Arquivo "A40,190,0,4,2,2,N,\""+NOTAFISC+"\"\n"
        ;Print File Arquivo "A50,250,0,4,1,2,N,\""+RAZTRA+"\"\n"
        
   Else Print File Arquivo "A40,010,0,4,1,2,N,\""+CLIENTE+"\"\n"
        Print File Arquivo "A40,060,0,4,1,2,N,\""+CIDADE+"\"\n"
        Print File Arquivo "A40,110,0,4,1,2,N,\""+VOLUME+ETQ+"\"\n"

        If SYS_CODIGO_CLIENTE="0404"
           then  Print File Arquivo "A40,170,0,4,1,2,N,\""+NOTAFISC+"\"\n"
           else  Print File Arquivo "A40,170,0,4,2,2,N,\""+NOTAFISC+"\"\n"
        endif

        Print File Arquivo "A50,230,0,4,1,2,N,\""+RAZTRA+"\"\n"
EndIf
Print File Arquivo "P1\n"         

EndProc                                         

;*******************************************************************************
;* Monta Comandos p/ Impressora Termica                                        *
;*******************************************************************************
Proc Monta_Comandos()

Verifica=False
RAZTRA = ""

Arquivo="EV_0009.EJF"
Deleta_Arquivo(Arquivo)

Fim=False
CoEdit "Answer"
Moveto [Sequencia]
Scan
  NOME_FANTASIA = [Nome Fantasia EmitDest]                     
  RAZAOSOCIAL   = [Razao Social]
  CIDADE        = [Cidade      ]
  ESTADO        = [UF          ]

  RAZTRA      = ""

  VOLUME      = ""
  TPDOCTO     = ""
  
  GetRecord "\\Sistemas\\Vendas\\FaturaC" [Numero da OF] To REG_FATURAC
  If RetVal
    Then 
         RAZTRA  = REG_FATURAC["Razao Social Transport"]
         VOLUME  = StrVal(REG_FATURAC["Numero de Volumes"])
         TPDOCTO = REG_FATURAC["Docto Nota Gerada"]
  EndIf
  
   
  NUMNOT = [Numero do Documento]
  NCOP   = [NCopias]    
  
  ;---- Formata‡Æo da Etiqueta -------------------------------------------------
  
  Switch
    Case SYS_CODIGO_CLIENTE="0370" : CLIENTE  = Format("W31"," CLIENTE: "+NOME_FANTASIA) 
    Case SYS_CODIGO_CLIENTE="0318" : CLIENTE  = Format("W21",RAZAOSOCIAL)                  ;At‚ 21 Caracteres no tamanho 5,1,1
    OtherWise                      : CLIENTE  = Format("W49"," CLIENTE: "+RAZAOSOCIAL)
  EndSwitch
  CIDADE   = Format("W49",Format("W32","  CIDADE: "+Rtrim(CIDADE))+"  UF: "+ESTADO)
  
  TM = NumVal(VOLUME)
  If IsBlank(TM) Or TM<=0 Or Type(TM)<>"N"
     Then TM = 1
  EndIf
  FIM    = ALINHM(StrVal(TM),3)
  VOLUME = Format("W28",Format("W28"," VOLUMES: "+VOLUME))
  For wi From 1 To TM 
   INI = ALINHM(StrVal(wi),3)
   ETQ   = "ETIQUETA: "+INI+"/"+FIM
   If SYS_CODIGO_CLIENTE="0318"
      Then If Rtrim(TPDOCTO)<>""
              Then NOTAFISC = Format("W21,AC",TPDOCTO+": "+NUMNOT)
              Else NOTAFISC = Format("W21,AC",NUMNOT)    
            EndIf
      Else If Rtrim(TPDOCTO)<>""
              Then NOTAFISC = Format("W49","     "+TPDOCTO+": "+NUMNOT)
              Else NOTAFISC = Format("W49",NUMNOT)    
            EndIf
   EndIf            
   Monta_Etiqueta()    
  EndFor  
EndScan
Do_It!
ClearAll

ImpriArq(Arquivo)

Sleep 1000
Deleta_Arquivo(Arquivo)

EndProc

Monta_Comandos()
Release Vars INICIO
Release Procs Monta_Etiqueta,Monta_Comandos
