;** Rp_0171 ********************************************************************
;*  Impressao Ordem Producao/Estamparia/Faccao                                 *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 26/03/2007 por Anivel Augusto Rodrigues
;Ultima Alteracao: 11/04/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Estamparia
;Ultima Alteracao: 26/04/2017 por Rafael Matos
;Motivo Alteracao: Ajustes dados Destinat

{Ask} {Pfacc}
Moveto [Numero_Programacao    ] Check Example "num" TypeIn ", ~NPROG"
Moveto [Numero_Corte          ] Check
Moveto [Codigo da Empresa     ] Check
Moveto [Nome Fantasia Empresa ] Check
Moveto [Data_Programacao      ] Check
Moveto [Destino_Producao      ] Check
Moveto [Codigo                ] Check Example "cod"
Moveto [Nome Fantasia EmitDest] Check
Moveto [Razao Social          ] Check
Moveto [Situacao_Programacao  ] Check
{Ask} {PfacRI} Check
Moveto [Numero_Programacao    ] Example "num"
{Ask} TypeIn "\\Sistemas\\Cadastro\\Destinat" Enter Check
Moveto [Codigo                ] Example "cod"
Do_It!
ClearAll

Switch
  Case DESTINO="FACCAO"    : CopyReport "\\Base\\Sistemas\\Faccao\\Rm_0100" "5" "Answer" "R"
  Case DESTINO="INTERNO"   : CopyReport "\\Base\\Sistemas\\Faccao\\Rm_0100" "6" "Answer" "R"
  Case DESTINO="ESTAMPARIA": CopyReport "\\Base\\Sistemas\\Faccao\\Rm_0100" "7" "Answer" "R"
EndSwitch

IMPRIREL("Answer","R")

Delete "Answer"

