Função: EICPO400 - Pedido de Importação
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
Descrição:
Exemplo de ExecAuto na rotina Purchase Order - POExecAuto. Funcionalidade disponível a partir do Microsiga Protheus 11.
Programa Fonte:
eicpo400
Sintaxe:
EICPO400 - Pedido de Importação ( [ ] )
Retorno:
- ()
Observações
Exemplos
*-------------------------*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 NilUpdates
UIEXECAUTO
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |