Prezados, bom dia a todos. Estou com dificuldade em imputar um valor automaticamente num determinado campo de um cadastro que eu estou fazendo. A lógica é de que quando o usuário informar um cnpj, o sistema buscar por esse valor informado em uma tabela de emitente e retornar para o campo nome, a informação que foi localizada pela busca. Ou seja, o input do campo ser feito com a busca pelo CNPJ. Agradeço a atenção, obrigado.
Código: FIND emitente WHERE emitente.cgc = STRING(campo-nome-abrev:SCREEN-VALUE IN FRAME {&FRAME-NAME}) NO-LOCK NO-ERROR. IF AVAIL emitente THEN ASSIGN campo-nome-abrev:SCREEN-VALUE IN FRAME {&FRAME-NAME} = emitente.nome. @x_jeferson facebook/jeferson EMAIL REMOVIDO! - Motivo: Recebendo Muito Span. skype: jeferson.de.chaves
Bom, aparentemente isso parace simples. Você irá colocar no evento "leave" do campo CNPJ a seguinte lógica: Código: fi_nome-abrev:SCREEN-VALUE = ''. FOR EACH emitente FIELDS(cgc nome-abrev) WHERE emitente.cgc = SELF:SCREEN-VALUE /*ou fi_cnpj:SCREEN-VALUE*/: fi_nome-abrev:SCREEN-VALUE = emitente.nome-abrev. END. É isso?!
