quinta-feira, 11 de junho de 2015
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
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
Assinar:
Postagens (Atom)