;** PC_0266 ********************************************************************
;*  Impressao Ordem Entrada Producao Corte                                     *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 14/02/2013 por Kamila Gomes
;Ultima Alteracao:   /  /     por
;Motivo Alteracao:

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
{Ask} {PCFACC}
Moveto [Numero_Producao_Corte   ] Check Example "num" TypeIn ", ~NPROD"
Moveto [Numero_Programacao_Corte] 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} {PCFACRI} Check
Moveto [Numero_Producao_Corte   ] Example "num"
Do_It!
ClearAll
Switch
  Case DESTINO="INTERNO"   : CopyReport "\\Base\\Sistemas\\Faccao\\Rm_0110" "1" "Answer" "R"
EndSwitch

IMPRIREL("Answer","R")

Delete "Answer"

