EICPO400 - Pedido de Importação

*-------------------------*User Function POExecAuto()*-------------------------*Local cPedido :=  GetSxeNum("EW2", "W2_PO_NUM")Local aCab   := {}       Local aItem  := {}    Private lMsErroAuto := .F.AADD(aCab,{"W2_PO_NUM"    ,cPedido   ,NIL})AADD(aCab,{"W2_PO_DT"     ,dDatabase ,NIL})AADD(aCab,{"W2_FORN"      ,"FOR-01"  ,NIL})AADD(aCab,{"W2_COMPRA"    ,"C01"     ,NIL})AADD(aCab,{"W2_IMPORT"    ,"01    "  ,NIL})AADD(aCab,{"W2_AGENTE"    ,"01 "     ,NIL})AADD(aCab,{"W2_TIPO_EM"   ,"01"      ,NIL})AADD(aCab,{"W2_ORIGEM"    ,"VYX"     ,NIL})AADD(aCab,{"W2_DEST"      ,"BLM"     ,NIL})AADD(aCab,{"W2_INCOTER"   ,"FOB"     ,NIL})AADD(aCab,{"W2_FREPPCC"   ,"CC"      ,NIL})AADD(aCab,{"W2_COND_PA"   ,"01   "   ,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})aAdd(aItem,{  {"W3_COD_I"   ,  AvKey("PROD-01","W3_COD_I")     ,NIL},;              {"W3_CC"      ,  "UN-01"                         ,NIL},;              {"W3_REG"     ,  1                               ,NIL},;              {"W3_PRECO"   ,  1.00000                         ,NIL},;                   {"W3_FABR"    ,  "FAB-01"                        ,NIL},;              {"W3_FORN"    ,  "FOR-01"                        ,NIL},;              {"W3_QTDE"    ,  500.00000                       ,NIL},;              {"W3_DT_EMB"  ,  dDatabase                       ,NIL},;              {"W3_DT_ENTR" ,  dDatabase+2                     ,NIL},;              {"W3_SALDO_Q" ,  500.00000                       ,NIL} })    aAdd(aItem,{  {"W3_COD_I"   ,  AvKey("PROD-02","W3_COD_I")     ,NIL},;              {"W3_CC"      ,  "UN-01"                         ,NIL},;              {"W3_REG"     ,  1                               ,NIL},;              {"W3_PRECO"   ,  15.00000                        ,NIL},;                   {"W3_FABR"    ,  "FAB-01"                        ,NIL},;              {"W3_FORN"    ,  "FOR-01"                        ,NIL},;              {"W3_QTDE"    ,  300.00000                       ,NIL},;              {"W3_DT_EMB"  ,  dDatabase                       ,NIL},;              {"W3_DT_ENTR" ,  dDatabase+2                     ,NIL},;              {"W3_SALDO_Q" ,  300.00000                       ,NIL} })    MSExecAuto({|a,b,c,d| EICPO400(a,b,c,d)},NIL,aCab,aItem,3)If lMsErroAuto   MOSTRAERRO()EndIf        Return Nil