Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 12

changes.mady.by.user Flavio Danilo Ricardo

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Flavio Danilo Ricardo

Gravado em

Chave

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

EICA130

...

Cadastro de NCM

Produto:

Easy Import Control

Versões:

Versão 12

Ocorrência:

Esta rotina possibilita a inclusão/alteração/exclusão de NCM, no Cadastro de NCM de forma automática.
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)

Exemplo:


O exemplo, demonstra a inclusão, alteração e exclusão de um NCM através da utilização da rotina automática.

 

  • Incluir

Local aRotAuto := {}

aAdd(aRotAuto, {"YD_TEC", "11223344", Nil})
aAdd(aRotAuto, {"YD_UNID", "DM", Nil})
aAdd(aRotAuto, {"YD_PER_II", 1, Nil})
aAdd(aRotAuto, {"YD_PER_IPI", 2, Nil})
aAdd(aRotAuto, {"YD_ICMS_RE", 3, Nil})
aAdd(aRotAuto, {"YD_PER_PIS", 4, Nil})
aAdd(aRotAuto, {"YD_VLU_PIS", 5, Nil})
aAdd(aRotAuto, {"YD_RED_PIS", 6, Nil})
aAdd(aRotAuto, {"YD_PER_COF", 7, Nil})
aAdd(aRotAuto, {"YD_VLU_COF", 8, Nil})
aAdd(aRotAuto, {"YD_RED_COF", 9, Nil})
aAdd(aRotAuto, {"YD_ICMS_PC", 10, Nil})
aAdd(aRotAuto, {"YD_MAJ_COF", 11, Nil})
aAdd(aRotAuto, {"YD_MAJ_PIS", 12, Nil})
aAdd(aRotAuto, {"YD_PER_IE", 13, Nil})

Private lMsErroAuto := .F.

MSExecAuto({|x,y| EICA130(x, y)}, aRotAuto, 3)

If lMsErroAuto
Mostraerro()
EndIf


  • Alterar
    No exemplo abaixo, será alterado o campo YD_UNID para o valor "AR", de um NCM que tenha o campo YD_FILIAL com o valor de xFilial("SYD") e o campo YD_TEC com o valor de 28112210.


Local aRotAuto := {}

aAdd(aRotAuto, {"YD_FILIAL", xFilial("SYD"), Nil})
aAdd(aRotAuto, {"YD_TEC", "28112210", Nil})
aAdd(aRotAuto, {"YD_UNID", "AR", Nil})

Private lMsErroAuto := .F.

MSExecAuto({|x,y| EICA130(x, y)}, aRotAuto, 4)

If lMsErroAuto
Mostraerro()
EndIf


  • Excluir
    No exemplo a seguir, será excluído um NCM com YD_FILIAL que possui YD_FILIAL = xFilial("SYD"), YD_TEC = 11222222 e YD_EX_NCM = 3


Local aRotAuto := {}

aAdd(aRotAuto, {"YD_FILIAL", xFilial("SYD"), Nil})
aAdd(aRotAuto, {"YD_TEC", "11222222", Nil})
aAdd(aRotAuto, {"YD_EX_NCM", "3", Nil})

Private lMsErroAuto := .F.

MSExecAuto({|x,y| EICA130(x, y)}, aRotAuto, 5)

If lMsErroAuto
Mostraerro()
EndIf