Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Deck of Cards
idExemplos
Card
id1
labelInclusão

Para efetuar a inclusão de um Purchase Order via rotina automática, existem duas possibilidades que podem ser abordadas. A primeira opção é o envio dos dados de inclusão, já informando uma Solicitação de Importação previamente cadastrada. A segunda forma de Incçusão, é não informar um código para a Solicitação de Importação, neste caso o sistema efetuará o cadastro da Solicitação de forma automática para os itens enviados na execução da Inclusão.


Informações
titleImportante
  1. Quando não for informado o número da Solicitação de Importação (W3_SI_NUM), a sequência dos itens do Purchase Order será a informada no campo W3_REG;
  2. Quando for informada a Solicitação de Importação, o campo W3_REG deve corresponder a sequência do item na Solicitação de Importação;
Bloco de código
languagepy
themeEclipse
titleModelo de Inclusão do Purchase Order por rotina automática
linenumberstrue
#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-0003" 				, 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"  ,  2.70000000      , NIL},;
      {"W3_PESO_BR",  1.000000        , NIL}})
      //{"W3_SI_NUM" ,  "4748-1",     NIL}}) //A SI deve ser informada quando já possuir a solicitação gerada no sistema. QUando não informada, será gerada de forma automática
 
   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"  ,  3.10000000      , NIL},;
      {"W3_PESO_BR",  1.000000        , NIL}})
      //{"W3_SI_NUM" ,  "4748-2",     NIL}}) //A SI deve ser informada quando já possuir a solicitação gerada no sistema. QUando não informada, será gerada de forma automática

   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

Card
id2
labelAlteração
Bloco de código
languagepy
themeEclipse
titleModelo de Alteração do Purchase Order por rotina automática com Exclusão de item
linenumberstrue
collapsetrue
#Include 'Protheus.ch'
#Include 'Totvs.ch'
#Include 'Tbiconn.ch'
   
User Function 1PO400Auto()
   
Local aCab  := {} //Array com os dados da Capa do Purchase Order
Local aItem := {} //Array com os dados dos Itens do Purchase Order
  
Local nOpc:= 4 //Opção a ser executada. 4-Alteraçã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-0004"         , NIL})
   AADD(aCab,{"W2_PO_DT"   , dDataBase              , NIL})
   AADD(aCab,{"W2_FORN"    , "GEN-00"               , NIL})
   AADD(aCab,{"W2_FORLOJ"  , "00"                   , NIL})
   AADD(aCab,{"W2_COMPRA"  , "GEN"                  , NIL})
   AADD(aCab,{"W2_IMPORT"  , "GN"                   , NIL})
   AADD(aCab,{"W2_AGENTE"  , "GN2"                  , 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})

Ao realizar a alteração de um Purchase Order, obrigatoriamente deverá ser informado, além do código do PO nas informações da Capa, os dados de número da SI (Solicitação de Importação), Código do Produto, Centro de Custo e Reg para os Itens.

Durante uma alteração, também será possível adicionar novos itens ao PO ou até mesmo retirar itens já vinculados ao PO. 

Informações
titleImportante
  1. Para todas as alterações do PO, será sempre obrigatório o envio de uma Solicitação de Importação e a sequência do item (W3_REG). Ao informar uma SI e uma sequência (W3_REG) que não exista, a alteração do PO efetuará a inclusão deste item na SI e o vinculará no PO. Também é possível enviar uma SI e um REG de um registro que já exista na SI, desta forma este item somente será adicionado ao PO.
  2. Para o envio de uma Alteração do PO, para a exclusão de Itens (O item será desmarcado do PO, sendo desvinculado do mesmo e seu saldo devolvido à SI) será obrigatório o envio da opção "AUTDELETA" com o conteúdo "S".
Bloco de código
languagepy
themeEclipse
titleModelo de Alteração do Purchase Order por rotina automática
linenumberstrue
#Include 'Protheus.ch'
#Include 'Totvs.ch'
#Include 'Tbiconn.ch'
  
User Function 1PO400Auto()
  
Local aCab  := {} //Array com os dados da Capa do Purchase Order
Local aItem := {} //Array com os dados dos Itens do Purchase Order
 
Local nOpc:= 4 //Opção a ser executada. 4-Alteração
  
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.
  
   RPCSetEnv("99", "01", NIL, NIL, "EIC", NIL, {"SW2", "SW3"})
     
   //Capa do Purchase Order
   AADD(aCab,{"W2_PODT_NUMPAR"  , "PO-0004"dDataBase              , NIL})
   AADD(aCab,{"W2_POPARID_DTU" , 1.000000 , dDataBase              , NIL})
   AADD(aCab,{"W2_FORNE_LC"    , "00012"                    , NIL})
  " 
   //Dados para os Itens do Purchase Order
   aAdd(aItem,{;
  , NIL})
   AADD(aCab,{"W2W3_COD_FORLOJI"  ,  "01PA-001"        , NIL},;          , NIL})
   AADD(aCab,{"W2_COMPRA"  , {"GENW3_CC"     ,  "GEN00"           , NIL})
   AADD(aCab,{"W2_IMPORT"  , "GN",;           
      {"W3_REG"    , NIL})
  1    AADD(aCab,{"W2_AGENTE"  , "GN "       , NIL},;          , NIL})
   AADD(aCab,   {"W2W3_TIPO_EMPRECO"  , "GN"  101.00000       , NIL},;           , NIL})
   AADD(aCab,{"W2_ORIGEM"
  , "SPO"   {"W3_FABR"   ,    "GEN-01"        , NIL}),;
   AADD(aCab,   {"W2W3_DESTFABLOJ" ,  "00"  , "GRU"         , NIL},;        , NIL})
   AADD(aCab,{"W2_INCOTER" , "CIF" 
      {"W3_FORN"   ,  "GEN-00"        , NIL}),;
   AADD(aCab,   {"W2W3_FREPPCCFORLOJ" ,  "PP00"            , NIL},;          , NIL})
   AADD(aCab,{"W2_COND_PA" , "GN
      {"W3_QTDE"   ,  11.000           , NIL})
,;     AADD(aCab,{"W2_MOEDA"   , "US$"  
      {"W3_DT_EMB" ,  dDataBase       , NIL}),;
     AADD(aCab, {"W2W3_DT_PARENTR"  , dDataBase       dDataBase       , NIL}),;
      AADD(aCab,{"W2W3_PARID_UPESOL"  , 1 2.00000090000000               , NIL}),;
      AADD(aCab,{"W2W3_EPESO_LCBR"    , "2" 1.000000        , NIL},;
      {"W3_SI_NUM" ,   , NIL})
  
   //Dados para os Itens do Purchase Order"SITET1",     NIL}})
   
   aAdd(aItem,{;
      {"W3_COD_I"  ,  "GENPA-00001"        , NIL},;            
      {"W3_CC"     ,  "GEN00"         , NIL},;            
      {"W3_REG"    ,  12               , NIL},;            
      {"W3_PRECO"  ,  100102.00000       , NIL},;                
      {"W3_FABR"   ,  "0001  GEN-01"        , NIL},;
      {"W3_FABLOJ" ,  "0100"            , NIL},;              
      {"W3_FORN"   ,  "0001  GEN-00"        , NIL},;
      {"W3_FORLOJ" ,  "0100"            , NIL},;              
      {"W3_QTDE"   ,  1045.000          , NIL},;            
      {"W3_DT_EMB" ,  dDataBase       , NIL},;
      {"W3_DT_ENTR",  dDataBase       , NIL},;
      {"W3_PESOL"  ,  23.9000000030000000      , NIL},;
      {"W3_PESO_BR",  1.000000        , NIL},;
      {"W3_SI_NUM" ,  "SSSST6SITET1",     NIL}})
   
      aAdd(aItem,{;
      {"W3_COD_I"  ,  "GEN-00"        , NIL},;            
      {"W3_CC"     ,  "GEN00"         , NIL},;            
      {"W3_REG"    ,  23               , NIL},;            
      {"W3_PRECO"  ,  100103.00000       , NIL},;                
      {"W3_FABR"   ,  "0001  GEN-01"        , NIL},;
      {"W3_FABLOJ" ,  "0100"            , NIL},;              
      {"W3_FORN"   ,  "0001  GEN-00"        , NIL},;
      {"W3_FORLOJ" ,  "0100"            , NIL},;              
      {"W3_QTDE"   ,  1510.000          , NIL},;            
      {"W3_DT_EMB" ,  dDataBase       , NIL},;
      {"W3_DT_ENTR",  dDataBase       , NIL},;
      {"W3_PESOL"  ,  3.30000000      , NIL},;
      {"W3_PESO_BR",  1.000000        , NIL},;
      {"W3_SI_NUM" ,  "SSSST6","SITET1"        , NIL},;
      {"AUTDELETA" ,  "S"             , NIL}}) //Informa que este item deve ser deletado no PO. Seu saldo retornará para o item na SI
  
  
   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
Card
id3
labelExclusão

Para a realização da exclusão do Purchase Order via rotina automática, é necessário apenas que seja enviado as informações referente a capa do PO, podendo também, de forma opcional, enviar os dados dos itens.


Bloco de código
languagepy
themeEclipse
titleModelo de Exclusão do Purchase Order por rotina automática
linenumberstrue
#Include 'Protheus.ch'
#Include 'Totvs.ch'
#Include 'Tbiconn.ch'
  
User Function 1PO400Auto()
  
Local aCab  := {} //Array com os dados da Capa do Purchase Order
Local aItem := {} //Array com os dados dos Itens do Purchase Order
 
Local nOpc:= 5 //Opção a ser executada. -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-0004"              , 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"  ,  2.90000000      , NIL},;
      {"W3_PESO_BR",  1.000000        , 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"  ,  3.30000000      , NIL},;
      {"W3_PESO_BR",  1.000000        , 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

...