Chave Composta

Chave Composta

IF EDT_Codigo_tributacao= 0 THEN
ELSE
    HReadSeekFirst(empresa_iss_tributacao,empresa_iss_tributacao.id_comp_empresa_codtributacao,[gnCodigo_empresa_par,EDT_Codigo_tributacao])   
    IF HFound(empresa_iss_tributacao) = True THEN
        COMBO_id_tributacao=EDT_Codigo_tributacao
        ListSelectPlus(COMBO_id_tributacao)
    ELSE
        Info("NAO EXISTE CODIGO DE TRIBUTAÇÃO")
        EDT_Codigo_tributacao=0
        SetFocus(EDT_Codigo_tributacao)   
    END
END

---

---

---

amarildo@matosinformatica.com.br

---