Ir para conteúdo
Fórum Script Brasil
  • 0

Webservice ( Regra De Negócio )


an_cp

Pergunta

Na minha regra de negócio , quando inclu-o um novo registro,

pego uma nova numeracao no banco,

e precisaria q este novo numero retorna-se para a minha aplicação client.

[

If ( UpdateKind = ukInsert ) Then

Begin

If CodigoIcms = '' Then

Begin

CdsNovoIcms.Close ;

CdsNovoIcms.Params [ 0 ].Value := DeltaDS.FieldByName ( 'Codigoempresa' ).Value ;

CdsNovoIcms.Params [ 1 ].Value := DeltaDS.FieldByName ( 'Codigofilial' ).Value ;

CdsNovoIcms.Open ;

CodigoIcms := CdsNovoIcms.FieldByname ( 'Codigo' ).Value ;

End ;

DeltaDS.Edit ;

DeltaDS.FieldByName ( 'Codigoicms' ).NewValue := CodigoIcms ;

DeltaDS.Post ;

Applied := False ;

CdsNovoIcms.Close ;

End ;

]

Se alguém puder me ajudar agradeço .

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...