01. DADOS GERAIS
Produto: | TOTVS Comércio Exterior |
---|---|
Linha de Produto: | Linha Protheus |
Segmento: | Manufatura |
Módulo: | SIGAEIC |
Função: | EICPO400.PRW |
02. Exemplo de Utilização
O Easy Import Control (SIGAEIC) disponibiliza a utilização de rotinas automáticas para a manutenção de Purchase Orders. Para isso, deve ser utilizado um rdmake que faça a chamada via Execauto da rotina EICPO400, responsável pela manutenção dos POs. Esta rotina espera receber um array com os dados da Capa do Purchase Order, e outro com os dados dos Itens. Também deve ser enviada a opção desejada, como Incluir, Alterar, ou Excluir.
Importante
Ao incluir um Purchase Order via rotina automática, o mesmo não poderá sofrer alterações via tela no Protheus. Qualquer alteração ou exclusão que venha a ser necessária ser executada para um Purchase Order inserido via rotina automática, deverá ser feita via rotina automática.
Abaixo iremos abordar algumas características de cada opçã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.
Importante
- 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;
- 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 (W1_REG);
#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
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.
Importante
- 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 com 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.
- 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".
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.
#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
03. Outras Informações
Ao utilizar a rotina automático do Purchase Order sem a utilização de uma Solicitação de Importação já préviamente cadastrada, o sistema efetuará a inclusão de uma SI de forma automática. Esta Solicitação de Importação inserida de forma automática não poderá sofrer alterações via tela no Protheus, mesmo que o Purchase Order seja excluído.
Caso seja necessária a exclusão de uma SI gerada de forma automática, deverá ser utilizado o ponto de entrada VALIDA_EXCLUSAO, que pode ter sua documentação consultada em: DT PE EICSI400 - Solicitação de Importação
04. Tabelas Utilizadas
SW0 - Capa de Solicitação Importação
SW1 - Itens Solicitação Importação
SW2 - Capa de Purchase Order
SW3 - Itens de Purchase Order
SW5 - Itens Preparação Licença Imp
SW6 - Capa Declaração de Importação