;** EV_0006 ********************************************************************
;** Impressao de Etiquetas para Enderecamento de Volumes           *  Brassol  *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 07/02/2011 por Bruno Carvalho
;Alterado em     : 10/09/2012 por Bruno Carvalho 
;Motivo Alteracao: Ajustes

;*******************************************************************************
Proc TestaImpressora()
;**** Teste da Impressora ****
While True
  If Not PrinterStatus()
     Then MENSAGEM("Impressora Fora de Linha ou Desligada")
          CONFGERAL("Imprime Certificados")
          If OK="S"
             Then Loop
             Else Return False
          EndIf
     Else Return True
  EndIf
EndWhile
EndProc

;********* Imprime Certificados *******
ArqImp=PrivDir()+"EtEndVol.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ARQIMP)
EndIf

Fim=False
View "\\Sistemas\\Vendas\\FaturaC"
CoEdit "Answer"
Scan
  NUM_OF = [Numero da OF     ]
  
  Moveto "\\Sistemas\\Vendas\\FaturaC"
  Moveto [Numero da OF]
  Locate NUM_OF
  If RetVal
     Then NVOLUME = [Numero de Volumes]
          TP_DOC  = [Docto Nota Gerada] 
     Else NVOLUME ="12345"
          TP_DOC  =""
  EndIf
  Moveto  "Answer"
  Moveto [Sequencia]

  For wi From 1 To [NCopias]
    AGUARDE("Imprimindo Certificados")
    If Not TestaImpressora()
       Then Fim=True
            QuitLoop
    EndIf

    Moveto [Codigo]
    Ativa_Lookup()
    Moveto [Codigo]
    Locate [Answer->Codigo]
    If RetVal
       Then CODIGO     =[Codigo      ]
            RAZAOSOCIAL=[Razao Social]
            ENDERECO   =[Endereco    ]
            BAIRRO     =[Bairro      ]
            CIDADE     =[Cidade      ]
            ESTADO     =[UF          ]
            CEP        =[CEP         ]

       Else CODIGO    =""
            RazaoSocial="1234567890123456789012345678901234567890"
            ENDERECO   ="1234567890123456789012345678901234567890"
            BAIRRO     ="12345678901234567890"
            CIDADE     ="12345678901234567890"
            ESTADO     ="12"
            CEP        ="1234567890"
     EndIf

    KeyPress "ESC"
    
    ;Print File ARQIMP CI_IEXP+CI_INEG+[]
    Print File ARQIMP CI_6LPP
    Print File ARQIMP CI_15CPP
    Print File ARQIMP ""+[Nome Fantasia Empresa]+"\n"
    Print File ARQIMP SubStr(CODIGO,1,4)+" "+SubStr(RAZAOSOCIAL,01,38)+"\n"
    ;Print File ARQIMP Spaces(05)+SubStr(RAZAOSOCIAL,26,25)+"\n"
    Print File ARQIMP SubStr(ENDERECO,01,43)   +"\n"
    ;Print File ARQIMP SubStr(ENDERECO,31,30)   +"\n"
    Print File ARQIMP BAIRRO+"\n"
    Print File ARQIMP CIDADE+" - "
    Print File ARQIMP ESTADO+Spaces(03)
    Print File ARQIMP CEP   +"\n"
    Print File ARQIMP "N§ de Vol.:"+Format("W5,AL",NVOLUME)+"\n"
    Print File ARQIMP TP_DOC+" "+[Numero do Documento]+"\n\n\n"
  EndFor
  If Fim Then QuitLoop EndIf
EndScan
Do_It!
ClearAll

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


LIMPAGUARDE()
Release Vars Fim, wwi, NomedaEmpresa, RazaoSocial, Endereco, Bairro, Cidade, Estado, Cep, Cont

