;** 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     : 16/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()+"CertPos.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

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

    NomedaEmpresa="GDA INDUSTRIA E DISTRIBUIDORA DE FUNDIDOS LTDA"

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

    Print File ARQIMP CI_10CPP
    Print File ARQIMP CI_8LPP

    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: 3046370")+"7310475803"+"\n"
    Print File ARQIMP "\f"

    Print File ARQIMP CI_10CPP
    Print File ARQIMP CI_6LPP


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


  EndFor
  If Fim Then QuitLoop EndIf
EndScan
Do_It!
ClearAll

LIMPAGUARDE()
Release Vars Fim, wwi, NomedaEmpresa
