Histórico da Página

...

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.

Exemplo:	O exemplo, demostra a inclusão, alteração e exclusão de um produto através da utilização da rotina automática. -------------------------------------------------- Adicionar 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
Observações:

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave