;** RR_0171 ********************************************************************
;*  Impressao Ordem Entrada Producao, Retorno 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

{Ask} {RFACC}
Moveto [Numero_Producao       ] Check Example "num" TypeIn ", ~NPROD"
Moveto [Numero_Programacao    ] Check
Moveto [Codigo da Empresa     ] Check
Moveto [Nome Fantasia Empresa ] Check
Moveto [Data_Producao         ] Check
Moveto [Destino_Producao      ] Check
Moveto [Codigo                ] Check
Moveto [Nome Fantasia EmitDest] Check
Moveto [Razao Social          ] Check
Moveto [Situacao_Producao     ] Check
{Ask} {RFACRI} Check
Moveto [Numero_Producao       ] Example "num"
Do_It!
ClearAll

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

IMPRIREL("Answer","R")

Delete "Answer"

