[RESOLVIDO] UPC - Pegar codigo do emitente ft4004b

Discussão em 'EMS , HCM e Totvs 11' iniciado por mpdelphi, Abril 28, 2015.

Status do Tópico:
Não esta aberto para novas mensagens.
Página 1 de 2
  1. mpdelphi

    mpdelphi Membro Participativo

    Pessoal, boa tarde..

    estou fazendo uma upc, no ft4004b, onde eu preciso pegar o codigo do emitente, no ft4004b, eu consigo acessar todos os campos sem problemmas, a questão como pegar o codigo do emitentes que esta no ft4004 e no ft4004b nao tem essa informacao. ?
    mpdelphi, Abril 28, 2015
    #1
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    tem que pegar o handle do ft4004 e depois vc pega o campo que precisa.
    bootstrapmaster, Abril 28, 2015
    #2
  3. mpdelphi

    mpdelphi Membro Participativo

    Richard, obrigado pelo retorno, mais nao faço ideia de como fazer isso... :D

    vc tem algum exemplo.... disso ?
    mpdelphi, Abril 28, 2015
    #3
  4. mpdelphi

    mpdelphi Membro Participativo

    /* Parameter Definitions ****************************************************/
    define input parameter p-ind-event as character.
    define input parameter p-ind-object as character.
    define input parameter p-wgh-object as handle.
    define input parameter p-wgh-frame as widget-handle.
    define input parameter p-cod-table as character.
    define input parameter p-row-table as rowid.

    /* variaveis locais *********************************************************/
    DEFINE VARIABLE c-objeto AS CHAR NO-UNDO.
    DEFINE VARIABLE h-frame AS WIDGET-HANDLE NO-UNDO.
    def buffer b-wt-docto for wt-docto.
    DEFINE NEW GLOBAL SHARED VAR wh-it-codigo AS WIDGET-HANDLE NO-UNDO.
    DEFINE VARIABLE h-object AS HANDLE NO-UNDO.
    Porem nao sei como
    {utp\ut-glob.i}
    /*
    OUTPUT TO c:\temp\upc.txt APPEND.
    PUT "oii" SKIP.
    */
    assign c-objeto = entry(num-entries(p-wgh-object:file-name, "~/"), p-wgh-object:file-name, "~/").
    IF p-wgh-frame <> ? THEN assign h-object = p-wgh-frame:FIRST-CHILD.

    IF p-wgh-frame <> ? THEN ASSIGN h-frame = p-wgh-frame:FIRST-CHILD.
    /*ASSIGN h-frame = h-frame:FIRST-CHILD.*/
    DO WHILE h-frame <> ?:

    IF h-frame:TYPE <> "field-group" THEN
    DO:

    IF h-frame:NAME = "it-codigo" THEN
    ASSIGN wh-it-codigo = h-frame:HANDLE.

    end.
    end.


    minha upc da ft4004b, esta assim.. mais preciso pegar o codigo do emitente que esta la no ft4000
    mpdelphi, Abril 28, 2015
    #4
  5. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    dentro da sua upc no ft4004b faz ....
    Código:
        run utils/findWidgetByProc.p (input 'ft4004',
                                  input ?,
                                  input 'cod-emitente',
                                  input 'fill-in',
                                  output codEmitenteHandle).
    Segue os 2 programas que vc precisa pra localizar os handles da vida, salva em uma pasta utils abaixo de alguma pasta que esteja pro propath

    Arquivos Anexados:

    bootstrapmaster, Abril 28, 2015
    #5
    mpdelphi e elmo curtiram isso.
  6. mpdelphi

    mpdelphi Membro Participativo

    vc pode me envia o arquivo utils/findFrameByProc.p também...
    mpdelphi, Abril 29, 2015
    #6
Página 1 de 2
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página