O exemplo, demonstra a inclusão, alteração e exclusão de um NCM através da utilização da rotina automática.
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