Linha Microsiga Protheus

Árvore de páginas

Rotina Automática EECAP100 - Pedido de Exportação

Produto:

SIGAEEC - Easy Export Control

Versões:

Todas

Ocorrência:

Esta rotina permite a inclusão, alteração e exclusão do pedido de exportação (Capa/ Item) de forma automática. É necessário modificar a variável nModulo para 29 e a variável cModulo para "EEC" para utilizar a rotina automática a partir de outros módulos do protheus, diferentes do SIGAEEC.

Ambiente:

Todos

Exemplo:

  • Inclusão de pedido com 2 itens

User Function XEECAP100Inc()
Local aItens := {}
Local aCab := {}

aCab :={ {'EE7_PEDIDO' ,'P-EXEC-01' ,NIL},;
{'EE7_IMPORT' ,'001 ' ,NIL},;
{'EE7_IMLOJA' ,'01' ,NIL},;
{'EE7_IMPODE' ,"CLIENTE 001 " ,NIL},;
{'EE7_FORN' ,'001 ' ,NIL},;
{'EE7_FOLOJA' ,'01' ,NIL},;
{'EE7_IDIOMA' ,"INGLES-INGLES " ,NIL},;
{'EE7_CONDPA' ,'01 ' ,NIL},;
{'EE7_DIASPA' ,- 1 ,NIL},;
{'EE7_MPGEXP' ,'001' ,NIL},;
{'EE7_DSCMPE' ,"COBRANCA" ,NIL},;
{'EE7_INCOTE' ,'FOB' ,NIL},;
{'EE7_MOEDA' ,'US$' ,NIL},;
{'EE7_FRPPCC' ,'PP' ,NIL},;
{'EE7_EMBAFI' ,' ' ,NIL},;
{'EE7_CALCEM' ,'1' ,NIL},;
{'EE7_VIA' ,'01' ,NIL},;
{'EE7_VIA_DE' ,"VIA IMP 01" ,NIL},;
{'EE7_ORIGEM' ,'AJU' ,NIL},;
{'EE7_DEST' ,'BLM' ,NIL},;
{'EE7_DSCDES' ,"BELEM-PA" ,NIL},;
{'EE7_PAISET' ,'105' ,NIL},;
{'EE7_TIPTRA' ,'1' ,NIL}}


aItens := {{ {'EE8_SEQUEN' ," 1" , NIL},;
{'EE8_COD_I' ,'001 ' , NIL},;
{'EE8_FORN' ,'001 ' , NIL},;
{'EE8_FOLOJA' ,'01' , NIL},;
{'EE8_SLDINI' , 10 , NIL},;
{'EE8_EMBAL1' , '001 ' , NIL},;
{'EE8_QTDM1' ,1 , NIL},;
{'EE8_QE' ,10 , NIL},;
{'EE8_PSLQUN' ,200 , NIL},;
{'EE8_PRECO' ,2000 , NIL},;
{'EE8_PLSQUN' ,200 , NIL},;
{'EE8_TES' ,"501" , NIL},;
{'EE8_CF' ,"7101 " , NIL},;
{'EE8_POSIPI' ,"01011010" , NIL},;
{"AUTDELETA" ,"N" , Nil},;
{"LINPOS" ,"EE8_COD_I" ,"1"}},;
{ {'EE8_SEQUEN' ," 2" , NIL},;
{'EE8_COD_I' ,'DVD 01 ' , NIL},;
{'EE8_FORN' ,'001 ' , NIL},;
{'EE8_FOLOJA' ,'01' , NIL},;
{'EE8_SLDINI' , 20 , NIL},;
{'EE8_EMBAL1' , '001 ' , NIL},;
{'EE8_QTDM1' ,1 , NIL},;
{'EE8_QE' ,10 , NIL},;
{'EE8_PSLQUN' ,200 , NIL},;
{'EE8_PRECO' ,2000 , NIL},;
{'EE8_PLSQUN' ,200 , NIL},;
{'EE8_TES' ,"501" , NIL},;
{'EE8_CF' ,"7101 " , NIL},;
{'EE8_POSIPI' ,"01011010" , NIL},;
{"AUTDELETA" ,"N" , Nil},;
{"LINPOS" ,"EE8_COD_I" ,"2"}}}

MSExecAuto( {|X,Y,Z| EECAP100(X,Y,Z)},aCab ,aItens, 3)// 3 - Inclusão


If lMsErroAuto
lRetorno := .F.
MostraErro()
Else
lRetorno:=.T.
EndIf

Return

  • Exclusão do primeiro Item

User Function XEECAP100Inc()
Local aItens := {}
Local aCab := {}

aCab :={ {'EE7_PEDIDO' ,'P-EXEC-01' ,NIL},;
{'EE7_IMPORT' ,'001 ' ,NIL},;
{'EE7_IMLOJA' ,'01' ,NIL},;
{'EE7_IMPODE' ,"CLIENTE 001 " ,NIL},;
{'EE7_FORN' ,'001 ' ,NIL},;
{'EE7_FOLOJA' ,'01' ,NIL},;
{'EE7_IDIOMA' ,"INGLES-INGLES " ,NIL},;
{'EE7_CONDPA' ,'01 ' ,NIL},;
{'EE7_DIASPA' ,- 1 ,NIL},;
{'EE7_MPGEXP' ,'001' ,NIL},;
{'EE7_DSCMPE' ,"COBRANCA" ,NIL},;
{'EE7_INCOTE' ,'FOB' ,NIL},;
{'EE7_MOEDA' ,'US$' ,NIL},;
{'EE7_FRPPCC' ,'PP' ,NIL},;
{'EE7_EMBAFI' ,' ' ,NIL},;
{'EE7_CALCEM' ,'1' ,NIL},;
{'EE7_VIA' ,'01' ,NIL},;
{'EE7_VIA_DE' ,"VIA IMP 01" ,NIL},;
{'EE7_ORIGEM' ,'AJU' ,NIL},;
{'EE7_DEST' ,'BLM' ,NIL},;
{'EE7_DSCDES' ,"BELEM-PA" ,NIL},;
{'EE7_PAISET' ,'105' ,NIL},;
{'EE7_TIPTRA' ,'1' ,NIL}}


aItens := {{ {'EE8_SEQUEN' ," 1" , NIL},;
{'EE8_COD_I' ,'001 ' , NIL},;
{'EE8_FORN' ,'001 ' , NIL},;
{'EE8_FOLOJA' ,'01' , NIL},;
{'EE8_SLDINI' , 10 , NIL},;
{'EE8_EMBAL1' , '001 ' , NIL},;
{'EE8_QTDM1' ,1 , NIL},;
{'EE8_QE' ,10 , NIL},;
{'EE8_PSLQUN' ,200 , NIL},;
{'EE8_PRECO' ,2000 , NIL},;
{'EE8_PLSQUN' ,200 , NIL},;
{'EE8_TES' ,"501" , NIL},;
{'EE8_CF' ,"7101 " , NIL},;
{'EE8_POSIPI' ,"01011010" , NIL},;
{"AUTDELETA" ,"S" , Nil},;
{"LINPOS" ,"EE8_COD_I" ,"1"}},;

{ {'EE8_SEQUEN' ," 2" , NIL},;
{'EE8_COD_I' ,'DVD 01 ' , NIL},;
{'EE8_FORN' ,'001 ' , NIL},;
{'EE8_FOLOJA' ,'01' , NIL},;
{'EE8_SLDINI' , 20 , NIL},;
{'EE8_EMBAL1' , '001 ' , NIL},;
{'EE8_QTDM1' ,1 , NIL},;
{'EE8_QE' ,10 , NIL},;
{'EE8_PSLQUN' ,200 , NIL},;
{'EE8_PRECO' ,2000 , NIL},;
{'EE8_PLSQUN' ,200 , NIL},;
{'EE8_TES' ,"501" , NIL},;
{'EE8_CF' ,"7101 " , NIL},;
{'EE8_POSIPI' ,"01011010" , NIL},;
{"AUTDELETA" ,"N" , Nil},;
{"LINPOS" ,"EE8_COD_I" ,"2"}}}

MSExecAuto( {|X,Y,Z| EECAP100(X,Y,Z)},aCab ,aItens, 4)//Alteração

If lMsErroAuto
lRetorno := .F.
MostraErro()
Else
lRetorno:=.T.
EndIf

Return

  • Incluindo novo item

User Function XEECAP100Inc()
Local aItens := {}
Local aCab := {}

aCab :={ {'EE7_PEDIDO' ,'P-EXEC-01' ,NIL},;
{'EE7_IMPORT' ,'001 ' ,NIL},;
{'EE7_IMLOJA' ,'01' ,NIL},;
{'EE7_IMPODE' ,"CLIENTE 001 " ,NIL},;
{'EE7_FORN' ,'001 ' ,NIL},;
{'EE7_FOLOJA' ,'01' ,NIL},;
{'EE7_IDIOMA' ,"INGLES-INGLES " ,NIL},;
{'EE7_CONDPA' ,'01 ' ,NIL},;
{'EE7_DIASPA' ,- 1 ,NIL},;
{'EE7_MPGEXP' ,'001' ,NIL},;
{'EE7_DSCMPE' ,"COBRANCA" ,NIL},;
{'EE7_INCOTE' ,'FOB' ,NIL},;
{'EE7_MOEDA' ,'US$' ,NIL},;
{'EE7_FRPPCC' ,'PP' ,NIL},;
{'EE7_EMBAFI' ,' ' ,NIL},;
{'EE7_CALCEM' ,'1' ,NIL},;
{'EE7_VIA' ,'01' ,NIL},;
{'EE7_VIA_DE' ,"VIA IMP 01" ,NIL},;
{'EE7_ORIGEM' ,'AJU' ,NIL},;
{'EE7_DEST' ,'BLM' ,NIL},;
{'EE7_DSCDES' ,"BELEM-PA" ,NIL},;
{'EE7_PAISET' ,'105' ,NIL},;
{'EE7_TIPTRA' ,'1' ,NIL}}


aItens := {{ {'EE8_SEQUEN' ," 1" , NIL},;
{'EE8_COD_I' ,'001 ' , NIL},;
{'EE8_FORN' ,'001 ' , NIL},;
{'EE8_FOLOJA' ,'01' , NIL},;
{'EE8_SLDINI' , 10 , NIL},;
{'EE8_EMBAL1' , '001 ' , NIL},;
{'EE8_QTDM1' ,1 , NIL},;
{'EE8_QE' ,10 , NIL},;
{'EE8_PSLQUN' ,200 , NIL},;
{'EE8_PRECO' ,2000 , NIL},;
{'EE8_PLSQUN' ,200 , NIL},;
{'EE8_TES' ,"501" , NIL},;
{'EE8_CF' ,"7101 " , NIL},;
{'EE8_POSIPI' ,"01011010" , NIL},;
{"AUTDELETA" ,"N" , Nil},;
{"LINPOS" ,"EE8_COD_I" ,"1"}},;
{ {'EE8_SEQUEN' ," 2" , NIL},;
{'EE8_COD_I' ,'DVD 01 ' , NIL},;
{'EE8_FORN' ,'001 ' , NIL},;
{'EE8_FOLOJA' ,'01' , NIL},;
{'EE8_SLDINI' , 20 , NIL},;
{'EE8_EMBAL1' , '001 ' , NIL},;
{'EE8_QTDM1' ,1 , NIL},;
{'EE8_QE' ,10 , NIL},;
{'EE8_PSLQUN' ,200 , NIL},;
{'EE8_PRECO' ,2000 , NIL},;
{'EE8_PLSQUN' ,200 , NIL},;
{'EE8_TES' ,"501" , NIL},;
{'EE8_CF' ,"7101 " , NIL},;
{'EE8_POSIPI' ,"01011010" , NIL},;
{"AUTDELETA" ,"N" , Nil},;
{"LINPOS" ,"EE8_COD_I" ,"2"}},;
{ {'EE8_SEQUEN' ," 3" , NIL},;
{'EE8_COD_I' ,'001 ' , NIL},;
{'EE8_FORN' ,'001 ' , NIL},;
{'EE8_FOLOJA' ,'01' , NIL},;
{'EE8_SLDINI' , 20 , NIL},;
{'EE8_EMBAL1' , '001 ' , NIL},;
{'EE8_QTDM1' ,1 , NIL},;
{'EE8_QE' ,10 , NIL},;
{'EE8_PSLQUN' ,200 , NIL},;
{'EE8_PRECO' ,2000 , NIL},;
{'EE8_PLSQUN' ,200 , NIL},;
{'EE8_TES' ,"501" , NIL},;
{'EE8_CF' ,"7101 " , NIL},;
{'EE8_POSIPI' ,"01011010" , NIL}}}


MSExecAuto( {|X,Y,Z| EECAP100(X,Y,Z)},aCab ,aItens, 4)//Alteração

If lMsErroAuto
lRetorno := .F.
MostraErro()
Else
lRetorno:=.T.
EndIf

Return

  • Exclusão e/ou cancelamento de pedido

Para exclusão do pedido é necessário enviar o AUTDELETA e para cancelar o pedido é necessário enviar o AUTCANCELA, sendo necessário envio somente dos dados da capa do processo.

User Function XEECAP100Inc()
Local aItens := {}
Local aCab := {}
Private lMsHelpAuto := .f. // Determina se as mensagens de help devem ser direcionadas para o arq. de log
Private lMsErroAuto := .f. // Determina se houve alguma inconsistência na execução da rotina

aCab :={ {'EE7_PEDIDO' ,'P-EXEC-03' ,NIL},;
{'EE7_IMPORT' ,'001 ' ,NIL},;
{'EE7_IMLOJA' ,'01' ,NIL},;
{'EE7_IMPODE' ,"CLIENTE 001 " ,NIL},;
{'EE7_FORN' ,'001 ' ,NIL},;
{'EE7_FOLOJA' ,'01' ,NIL},;
{'EE7_IDIOMA' ,"INGLES-INGLES " ,NIL},;
{'EE7_CONDPA' ,'01 ' ,NIL},;
{'EE7_DIASPA' ,- 1 ,NIL},;
{'EE7_MPGEXP' ,'001' ,NIL},;
{'EE7_DSCMPE' ,"COBRANCA" ,NIL},;
{'EE7_INCOTE' ,'FOB' ,NIL},;
{'EE7_MOEDA' ,'US$' ,NIL},;
{'EE7_FRPPCC' ,'PP' ,NIL},;
{'EE7_EMBAFI' ,' ' ,NIL},;
{'EE7_CALCEM' ,'1' ,NIL},;
{'EE7_VIA' ,'01' ,NIL},;
{'EE7_VIA_DE' ,"VIA IMP 01" ,NIL},;
{'EE7_ORIGEM' ,'AJU' ,NIL},;
{'EE7_DEST' ,'BLM' ,NIL},;
{'EE7_DSCDES' ,"BELEM-PA" ,NIL},;
{'EE7_PAISET' ,'105' ,NIL},;
{'EE7_TIPTRA' ,'1' ,NIL},;
{"AUTDELETA" ,"S" , Nil}}

MSExecAuto( {|X,Y,Z| EECAP100(X,Y,Z)},aCab ,aItens, 5)//Exclusão

If lMsErroAuto
lRetorno := .F.
MostraErro()
Else
lRetorno:=.T.
EndIf

Return

Observações:

  • aCab - Array que recebe o conteúdo dos campos de capa do Pedido de Exportação
  • aItens - Array que recebe o conteúdo dos campos de itens do Pedido de Exportação
  • nOPC
    3 - Inclusão
    4 - Alteração
    5 - Exclusão
  • LINPOS - Ex: {"LINPOS"   ,"EE8_COD_I"     ,"Sequencia do item"}
  • AUTDELETA - S(Exclui item), N(Não exclui item). Ex: {"AUTDELETA"     ,"N"            , Nil}
  • AUTCANCELA - S(Cancela Pedido), N(Não cancela pedido). Ex: {"AUTCANCELA"     ,"N"            , Nil}