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:= 35 //Opção a ser executada. 5-Exclusã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" , "PP"           , 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" ,  "SI0001"		  , 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" ,  "SI0001"		  , 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