PROCEDURE ncm_ler_material()
HReadSeekFirst(ncm,ncm_classificacao,EDT_Ncm_classificacao)
IF HFound(ncm) THEN STC_ipi_nome=DateToString(ncm.importado_vigencia_inicio,"DD-MM-YYYY")+" A "+ ... DateToString(ncm.importado_vigencia_final,"DD-MM-YYYY")+" "+ ... ncm.descricao_ncm EDT_Percentual_ipi=ncm.aliquota_ipi
ELSE EDT_Percentual_ipi="" STC_ipi_nome=""
END
SWITCH empresa_parametro_conhecimento.versao_xml CASE "3.00" SWITCH conhecimento.modelo CASE "57" s_xml=_0920_010_ide() CASE "67" s_xml=_0920_010_ide() OTHER CASE END OTHER CASE
END