;** CP_0000 ********************************************************************
;** Impressao de Certificado de Postagem - Individual  *** ISABELA GARCIA ***  *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 03/09/2002 por Anivel Augusto Rodrigues
;Alterado em     : 30/03/2004 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes
;Alterado em     : 20/06/2006 por Antonio Marcelo Alves
;Motivo Alteracao: Inclusao ImpriArq()
;*******************************************************************************
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 *******

Fim=False

CoEdit "Answer"
Scan
  Moveto [Sequencia]

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

    ConfGeral("Prepare Formulario, continuar a impress„o ?")
    If OK<>"S"
       Then Fim=True
            QuitLoop
    EndIf

    NomedaEmpresa="VALERIA MATEUS D. DA COSTA"

    Moveto [Codigo]
    Ativa_Lookup()
    Moveto [Codigo]
    Locate [Answer->Codigo]
    If RetVal
       Then RazaoSocial=[Razao Social]
            CEP        =[CEP         ]
       Else RazaoSocial="???"
            CEP        ="???"
    EndIf
    KeyPress "ESC"

    Print File ARQIMP  Chr(27)+Chr(18)       ; 18 Caracteres por Polegada
    Print File ARQIMP  Chr(27)+Chr(48)       ; 6 Linhas por Polegada

    Print File ARQIMP "\n\n\n\n\n\n\n"
    Print File ARQIMP Spaces(03)+Format("W43,AL",RazaoSocial)+CEP+"\n\n"
    Print File ARQIMP Spaces(03)+NomedaEmpresa+"\n\n\n"
    Print File ARQIMP Spaces(40)+"XX\n"
    Print File ARQIMP Spaces(40)+"XX\n\n\n\n\n\n"
    Print File ARQIMP Spaces(46)+"20304056"+"\n\n\n"
    Print File ARQIMP Spaces(40)+AlinhM(StrVal(Day(Today())),2)+AlinhM(StrVal(Month(Today())),2)+"\n\n"
    Print File ARQIMP Spaces(40)+"1026461"+"\n\n\n"
    Print File ARQIMP Spaces(03)+Format("W37,AL","Cartao: 2087995")+"4730116223"+"\n"
    Print File ARQIMP "\f"

    Print File ARQIMP Chr(27)+Chr(18)       ; 18 Caracteres por Polegada
    Print File ARQIMP Chr(27)+Chr(50)       ; 6 Linhas por Polegada

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

  EndFor
  If Fim Then QuitLoop EndIf
EndScan
Do_It!
ClearAll

LIMPAGUARDE()
Release Vars Fim, wwi, NomedaEmpresa
