Puma Sistemas

Exemplo de Utilização

Var

vComp : TCompromisso;

begin

vComp := TCompromisso.create;
vComp.Tipo    := '1';
vComp.Assunto := 'Teste de Compromisso';
vComp.Detalhe := 'teste';
vComp.Cliente := 'C00005';
vComp.Funcionario := '001';
vComp.Usuario     := IDUsuario;
vComp.Objeto     := '1';
vComp.Data    := date;
vComp.Hora    := '10:00';
vCOmp.VisivelTodosUsuarios := true;
vComp.EnviarLembrete := true;
vComp.AddProduto('001.011.001',10);
vComp.AddProduto('001.011.002',5);
vComp.Filial  := 1;
vComp.CriarCompromisso;