;** RC_Ficha********************************************************************
;** Imprime dados Cliente                                       ** PADRAO **   *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 19/12/2008 por Cleber Alves
;Ultima Alteracao: 30/06/2009 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Layout
;Ultima Alteracao: 01/12/2011 por Bruno Carvalho
;Motivo Alteracao: Altera‡Æo de "ExecVise -> Vexe","Dosprinter -> Vdpr"
;Ultima Alteracao: 20/05/2014 por Andrey Fillipe
;Motivo Alteracao: Ajustes tamanho da IE de W14 para W15
;Ultima Alteracao: 15/03/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Santa Alice 0121

;*******************************************************************************
;* Rotina para Impressao dados Cliente                                         *
;*******************************************************************************
Proc IMPPAG()
Private TOTCH, NUMCH

;************************* IMPRESSAO DO CABECALHO *****************************
If Not IsAssigned(NOMEMPRESA)
   Then NOMEMPRESA=""
EndIf

Print File ARQIMP CI_10CPP
Print File ARQIMP "------------------------------------------------------------------------------------------------------------------------------------" + "\n"
Print File ARQIMP Format("W32,AL",NOMEMPRESA)+Spaces(2)+"Dados do Cliente"+Spaces(2)+"Imp: "+Format("D13",Today())+"-"+Time()+ "\n"
Print File ARQIMP "------------------------------------------------------------------------------------------------------------------------------------" + "\n\n"


Print File ARQIMP "C¢digo.... "+Format("W10,AL",[Codigo])+"\n"

Print File ARQIMP "Nome/RazÆo "+Format("W39,AL",[Razao Social])
Print File ARQIMP "Contato... "+Format("W10,AL",[Contato])+"\n"

Print File ARQIMP "Endere‡o.. "+Format("W39,AL",[Endereco])+"\n"

Print File ARQIMP "Bairro.... "+Format("W39,AL",[Bairro])
Print File ARQIMP "Cidade.... "+Format("W14,AL",[Cidade])+"\n"

Print File ARQIMP "CEP....... "+Format("W15,AL",[CEP])
Print File ARQIMP "UF...... "+Format("W15,AL",[UF])
Print File ARQIMP "Pais...... "+Format("W10,AL",[Pais])+"\n"

Print File ARQIMP "Fone...... "+Format("W15,AL",[Telefone])
Print File ARQIMP "Fax..... "+Format("W15,AL",[Fax])
Print File ARQIMP "Data...... "+Format("D13,AL",[Data_Cadastro])+"\n"

Print File ARQIMP "CNPJ/CPF.. "+Format("W39,AL",[CGC])
Print File ARQIMP "IE........ "+Format("W15,AL",[IE])+"\n"

Print File ARQIMP "E-mail.... "+Format("W39,AL",[Endereco_Eletronico])+"\n"+"\n"

Print File ARQIMP "Reconhe‡o as  normas  exigidas  pela "+Format("W35,AL",NOMEMPRESA)+" e, por  "+"\n"
Print File ARQIMP "este  instrumento  autorizo  a  entrega  de produtos  para  as  pessoas  abaixo "+"\n"
Print File ARQIMP "relacionadas, responsabilizando-me  pelo  pagamento  das  mercadorias por  elas "+"\n"
Print File ARQIMP "retiradas, bem como por manter estas informa‡äes cadastrais atualizadas."+"\n"

switch
  case sys_codigo_cliente="0121":
    Print File ARQIMP "\n" 
    Print File ARQIMP "As partes elegem o FORO da COMARCA  de  DIVINàPOLIS/MG,  como  competente  para"+"\n"
    Print File ARQIMP "dirimir quaisquer  controv‚rsias  oriundas  do  presente  CONTRATO,  e  excluem"+"\n"
    Print File ARQIMP "qualquer outro, por mais privil‚giado que seja."+"\n\n"

    Print File ARQIMP "Por estarem assim justos e contratados, firmam o presente instrumento, em  duas"+"\n"
    Print File ARQIMP "vias de igual teor."+"\n\n"
    
    Print File ARQIMP "Divin¢polis/MG, "+Format("D13",today())+"."+"\n\n\n"
    Print File ARQIMP "                Assinatura: _________________________________________"+"\n\n\n\n\n"

    Print File ARQIMP "    __________________________________   __________________________________    "+"\n"
    Print File ARQIMP "               Testemunha 1                        Testemunha 2                "+"\n\n"

  otherwise :
    Print File ARQIMP "\n\n" 
    
    Print File ARQIMP "             ASS: _________________________________________"+"\n\n\n\n"
    
endswitch

;---- Imprime Autorizados ------------------------------------------------------
Moveto "Destaut"
Print File ARQIMP " Autorizados"+"\n\n"
Print File ARQIMP "------------------------------------------------------------------------------------------------------------------------------------" + "\n"
Print File ARQIMP " Nome" +Spaces(35)+"CPF"+Spaces(19)+"Data"+"\n\n"
Scan
 Print File ARQIMP Spaces(1)+Format("W14,AL",[Nome])+Spaces(25)+Format("W13,AL",[CGC/CPF])+Spaces(8)+Format("D13,AL",[Data da Autorizacao])+"\n"
EndScan
Print File ARQIMP "------------------------------------------------------------------------------------------------------------------------------------" + "\n"
Moveto "Destinat"
EndProc

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
AGUARDE("Imprimindo Dados Cliente")
ArqImp=PrivDir()+"CliAlto.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ARQIMP)
EndIf
CI_10CPP="\10"
IMPPAG()
ExecVise("EXE c:\\vise\\Vdpr.exe /PDF /DEL "+ARQIMP)

Release Procs IMPPAG
