Histórico da Página

#Include 'Protheus.ch'
#Include 'Totvs.ch'
#Include 'Tbiconn.ch'

User Function PO400Auto()

Local aCab  := {} //Array com os dados da Capa do Purchase Order  
Local aItem := {} //Array com os dados dos Itens do Purchase Order
Local nOpc:= 3 //Opção a ser executada. 3-Inclusão

Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.

   RPCSetEnv("99", "01", NIL, NIL, "EIC", NIL, {"SW2", "SW3"})
   
   //Capa do Purchase Order
   AADD(aCab,{"W2_PO_NUM"  , "PO-0001" , NIL})
   AADD(aCab,{"W2_PO_DT"   , dDataBase     , NIL})
   AADD(aCab,{"W2_FORN"    , "0001  "              , NIL}) 
   AADD(aCab,{"W2_FORLOJ"  , "01"                  , NIL})
   AADD(aCab,{"W2_COMPRA"  , "GEN"                 , NIL})
   AADD(aCab,{"W2_IMPORT"  , "GN"                  , NIL})
   AADD(aCab,{"W2_AGENTE"  , "GN "                 , NIL})
   AADD(aCab,{"W2_TIPO_EM" , "GN"                  , NIL})
   AADD(aCab,{"W2_ORIGEM"  , "SPO"                 , NIL})
   AADD(aCab,{"W2_DEST"    , "GRU"                 , NIL})
   AADD(aCab,{"W2_INCOTER" , "CIF"                 , NIL})
   AADD(aCab,{"W2_FREPPCC" , "CC"                  , NIL})
   AADD(aCab,{"W2_COND_PA" , "GN   "               , NIL})
   AADD(aCab,{"W2_MOEDA"   , "US$"                 , NIL})
   AADD(aCab,{"W2_DT_PAR"  , dDataBase             , NIL})
   AADD(aCab,{"W2_PARID_U" , 1.000000              , NIL})
   AADD(aCab,{"W2_E_LC"    , "2"                   , NIL})

   //Dados para os Itens do Purchase Order
   aAdd(aItem,{; 
      {"W3_COD_I"  ,  "GEN-00"   	  , NIL},;              
      {"W3_CC"     ,  "GEN00"         , NIL},;              
      {"W3_REG"    ,  1           	  , NIL},;              
      {"W3_PRECO"  ,  100.00000       , NIL},;                  
      {"W3_FABR"   ,  "0001  "        , NIL},; 
      {"W3_FABLOJ" ,  "01"            , NIL},;                
      {"W3_FORN"   ,  "0001  "        , NIL},; 
      {"W3_FORLOJ" ,  "01"            , NIL},;                
      {"W3_QTDE"   ,  10.000           , NIL},;              
      {"W3_DT_EMB" ,  dDataBase       , NIL},;
      {"W3_DT_ENTR",  dDataBase       , NIL},;
      {"W3_PESOL"  ,  1.00000000      , NIL},;
      {"W3_PESO_BR",  1.000000        , NIL},;     
      {"W3_SALDO_Q",  0.000           , NIL}}),;
      {"W3_SI_NUM" ,  PadR("000025",   TamSX3("W3_SI_NUM")[1]),     NIL}})

   aAdd(aItem,{; 
      {"W3_COD_I"  ,  "GEN-00"   	  , NIL},;              
      {"W3_CC"     ,  "GEN00"         , NIL},;              
      {"W3_REG"    ,  2           	  , NIL},;              
      {"W3_PRECO"  ,  100.00000       , NIL},;                  
      {"W3_FABR"   ,  "0001  "        , NIL},; 
      {"W3_FABLOJ" ,  "01"            , NIL},;                
      {"W3_FORN"   ,  "0001  "        , NIL},; 
      {"W3_FORLOJ" ,  "01"            , NIL},;                
      {"W3_QTDE"   ,  15.000           , NIL},;              
      {"W3_DT_EMB" ,  dDataBase       , NIL},;
      {"W3_DT_ENTR",  dDataBase       , NIL},;
      {"W3_PESOL"  ,  1.00000000      , NIL},;
      {"W3_PESO_BR",  1.000000        , NIL},;     
      {"W3_SALDO_Q",  0.000           , NIL}}),;
      {"W3_SI_NUM" ,  PadR("000025"	  ,   TamSX3("W3_SI_NUM")[1]),     NIL}})


   MSExecAuto({|a,b,c,d| EICPO400(a,b,c,d)}, NIL, aCab, aItem, nOpc)

   If lMsErroAuto  
      MostraErro()
   Else
      MsgInfo("Ok - P.O.")
   EndIf       

RPCClearEnv()

Return Nil