;** EV_0000 ********************************************************************
;** Impressao de Etiquetas para Enderecamento de volumes                       *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 31/10/2002 por Anivel Augusto Rodrigues
;Alterado em     : 19/06/2006 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes
;Alterado em     : 20/06/2006 por Antonio Marcelo Alves
;Motivo Alteracao: Inclusao ImpriArq()
;Ultima Alteracao: 14/08/2007 por Antonio Marcelo Alves
;Motivo Alteracao: Ajustes Deleta_Arquivo

;*******************************************************************************
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
CoEdit "Answer"
Scan
  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 RazaoSocial=[Razao Social]
            ENDERECO   =[Endereco    ]
            BAIRRO     =[Bairro      ]
            CIDADE     =[Cidade      ]
            ESTADO     =[UF          ]
            CEP        =[CEP         ]

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

    KeyPress "ESC"

   ;Print File ARQIMP Chr(27)+"x1"      ; nql
   ;Print File ARQIMP  Chr(27)+"k0"      ; Roman
    Print File ARQIMP  CI_IEXP+CI_INEG+ SubStr(RAZAOSOCIAL,01,27)+CI_FEXP+CI_FNEG+"\n"
    Print File ARQIMP  CI_IEXP+CI_INEG+ SubStr(RAZAOSOCIAL,28,20)+CI_FEXP+CI_FNEG+"\n\n"
    Print File ARQIMP  CI_IEXP+CI_INEG+ SubStr(ENDERECO,01,27)   +CI_FEXP+CI_FNEG+"\n"
    Print File ARQIMP  CI_IEXP+CI_INEG+ SubStr(ENDERECO,28,20)   +CI_FEXP+CI_FNEG+"\n\n"
    Print File ARQIMP  CI_IEXP+CI_INEG+ BAIRRO+CI_FEXP+CI_FNEG+"\n\n"
    Print File ARQIMP  CI_IEXP+CI_INEG+ CIDADE+CI_FEXP+CI_FNEG+" - "
    Print File ARQIMP  CI_IEXP+CI_INEG+ ESTADO+CI_FEXP+CI_FNEG+"\n"
    Print File ARQIMP  CI_IEXP+CI_INEG+ CEP   +Spaces(7)+[Tipo do Documento]+" "+[Numero do Documento]+CI_FEXP+CI_FNEG+"\n\n\n"
  EndFor
  If Fim Then QuitLoop EndIf
EndScan
Do_It!
ClearAll

;Print File ARQIMP "x0"             ; Modulo Draft

;Print File ARQIMP CI_10CPP
;Print File ARQIMP CI_6LPP


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


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

