Histórico da Página

/****************************************************************************************************************
** Cliente.....: Borrachas Vipal
** Programa....: wm0372a-upc.p
****************************************************************************************************************/
{include/i-epc200.i}

DEFINE INPUT PARAM p-ind-event AS CHAR NO-UNDO.
DEFINE INPUT PARAM p-ind-object AS CHAR NO-UNDO.
DEFINE INPUT PARAM p-wgh-object AS HANDLE NO-UNDO.
DEFINE INPUT PARAM p-wgh-frame AS WIDGET-HANDLE NO-UNDO.
DEFINE INPUT PARAM p-cod-table AS CHAR NO-UNDO.
DEFINE INPUT PARAM p-row-table AS ROWID NO-UNDO.

DEFINE NEW GLOBAL SHARED VARIABLE l-g-cliente-vipal AS LOGICAL VARIABLE hQTTWmDocto          AS HANDLE NO-UNDO.
DEFINE VARIABLE hBTTWmDocto          AS HANDLE NO-UNDO.
DEFINE VARIABLE htt1                 AS HANDLE NO-UNDO.

IF p-ind-event  = "afterInitializeInterface"btOk" AND 
   p-ind-object = "CONTAINER" THEN DO:

    IF VALID-HANDLE (h-ttWm-docto) THEN DO:
		
	    ASSIGN l-g-cliente-vipal = YES httwmdocto = h-ttWm-docto:DEFAULT-BUFFER-HANDLE.

        CREATE BUFFER hBTTWmDocto FOR TABLE httwmdocto BUFFER-NAME "ttWm-docto".
        CREATE QUERY hQTTWmDocto.
        hQTTWmDocto:SET-BUFFERS(hBTTWmDocto).
        IF VALID-HANDLE(hQTTWmDocto) THEN
            ASSIGN hQTTWmDocto:FORWARD-ONLY = YES.

        hQTTWmDocto:QUERY-PREPARE("FOR EACH ttWm-docto").
        hQTTWmDocto:QUERY-OPEN.
        hQTTWmDocto:GET-FIRST.

        DO WHILE NOT(hQTTWmDocto:QUERY-OFF-END):

            CREATE ttWm-docto.
            assign ttWm-docto.cod-estabel      = string(hBTTWmDocto:buffer-field("cod-estabel"):buffer-value)
                   ttWm-docto.cod-local        = string(hBTTWmDocto:buffer-field("cod-local"):buffer-value)
                   ttWm-docto.num-docto        = string(hBTTWmDocto:buffer-field("num-docto"):buffer-value)
                   ttWm-docto.serie            = string(hBTTWmDocto:buffer-field("serie"):buffer-value)
                   ttWm-docto.id-docto         = INT(hBTTWmDocto:buffer-field("id-docto"):buffer-value)
                   ttWm-docto.num-docto-origem = string(hBTTWmDocto:buffer-field("num-docto-origem"):buffer-value)
                   ttWm-docto.ind-tipo-trans   = INT(hBTTWmDocto:buffer-field("ind-tipo-trans"):buffer-value)
                   ttWm-docto.ind-origem-docto = INT(hBTTWmDocto:buffer-field("ind-origem-docto"):buffer-value)
                   ttWm-docto.id-carga         = INT(hBTTWmDocto:buffer-field("id-carga"):buffer-value)
                   ttWm-docto.alteracao        = YES
                   ttWm-docto.cod-depos        = ''
                   ttWm-docto.cdd-embarq       = INT(hBTTWmDocto:buffer-field("cdd-embarq"):buffer-value)
                   ttWm-docto.nr-resumo        = INT(hBTTWmDocto:buffer-field("nr-resumo"):buffer-value)
                   ttWm-docto.nr-pedcli        = string(hBTTWmDocto:buffer-field("nr-pedcli"):buffer-value)
                   ttWm-docto.nome-abrev       = string(hBTTWmDocto:buffer-field("nome-abrev"):buffer-value)
                   ttWm-docto.dt-implan-docto  = DATE(hBTTWmDocto:buffer-field("dt-implan-docto"):buffer-value)
                   ttWm-docto.ind-sit-docto    = INT(hBTTWmDocto:buffer-field("ind-sit-docto"):buffer-value)
                   ttWm-docto.rownum           = INT(hBTTWmDocto:buffer-field("rownum"):buffer-value)
                   ttWm-docto.r-rowid          = hBTTWmDocto:buffer-field("r-rowid"):BUFFER-VALUE.

            hQTTWmDocto:GET-NEXT.
        END.
        hQTTWmDocto:QUERY-CLOSE.
    END.
END.

RETURN "OK":U.