[RESOLVIDO] Como ver se existe registro no Buffer-Value (UPC)?

Discussão em 'EMS , HCM e Totvs 11' iniciado por Clayton Oliveira, Abril 10, 2014.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. Clayton Oliveira

    Clayton Oliveira Membro Participativo

    Olá, pessoal.
    Poderiam me ajudar com o seguinte programa, ele está cadastrado como upc no axsep017. Com isso a intenção é buscar os dados da nota corrente, durante a efetivação da mesma no Totvs 11.

    Ocorre o seguinte erro: "Registro ttAdi não está disponível."
    Logo em seguida ocorre outro erro: "Não é possível extrair o BUFFER-VALUE para o campo cFabricante. (7366)" .

    Sei que a ttAdi não tem dados, mas como no programa posso fazer esta verificação antes de estar dando assign na tabela específica?





    Código:
    {cdp/cdcfgdis.i}
    {include/i-epc200.i1}
    
    def input        param p-ind-event as char no-undo.
    def input-output param table for tt-epc.
       
    
    define variable h-ttTrab     as widget-handle   no-undo.
    define variable hquerybuffer as widget-handle   no-undo.
    define variable h-query      as widget-handle   no-undo.
    define variable h-cprod      as widget-handle   no-undo.
    define variable h-campo      as widget-handle   no-undo.
    
    def new global shared var v_cod_usuar_corren as character no-undo.
    
    /****************************************************************************************/
    
    if p-ind-event = "AtualizaDadosNFe":u then do:
    
        for each tt-epc no-lock
           where tt-epc.cod-event     = p-ind-event
             and tt-epc.cod-parameter = "ttAdi":u :
    
            assign h-ttTrab     = widget-handle(tt-epc.val-parameter)
                   hquerybuffer = h-ttTrab:default-buffer-handle.
    
    
            if  valid-handle(hquerybuffer) then do:
    
                create query h-query.              
                h-query:set-buffers(hquerybuffer).
                h-query:query-prepare('for each ' + h-ttTrab:name + ' no-lock').
                h-query:query-open().
    
    
                create es-tb-adi.
                assign es-tb-adi.cFabricante  =  hquerybuffer:buffer-field('cFabricante':U):buffer-value.
               
            end.
        end.
    end.
    
  2. jaisonantoniazzi

    jaisonantoniazzi Membro Ativo

  3. Clayton Oliveira

    Clayton Oliveira Membro Participativo

    Bom dia Jaison.

    Deu certo.

    Obrigado!
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página