GFEA0518 - Realizar processamento no botão "Cancelar Entrega"
Características do Requisito
Linha de Produto: | Microsiga Protheus |
Segmento: | Supply Chain - Logística |
Módulo: | SIGAGFE |
Ponto de Entrada: | GFEA0518 |
Descrição: | Realizar processamento na finalização da tela "Cancelar Entrega". Esse ponto tem por objetivo algum processamento específico, após encerramento da tela "Cancelar Entrega", acionada via menu da rotina de Documento de Carga. |
Localização: | No botão Cancelar Entrega do programa Registro de Entregas (GFEA051). |
Programa Fonte: | GFEA051 - Registro de Entregas |
Parâmetros: | Não se aplica. |
Retorno: | Não se aplica. |
Exemplo: GFEA0518
#INCLUDE "PROTHEUS.CH" User Function GFEA0518() Local oColEnt Local aLayout := {} Local aStruct := {} Local cSequen := "" Local nCntFor1 := 0 Local aAreaDT5 := {} dbSelectArea("DND") oColEnt := TMSBCACOLENT():New("DND") If oColEnt:DbGetToken() DND->(DbGoTo(oColEnt:config_recno)) aAreaDT5 := GWN->(GetArea()) conout(DND->DND_CODFON) //-- Inicializa a estrutura aStruct := TMSMntStru(DND->DND_CODFON,.F.) TMSSetVar("aStruct",aStruct) //-- Define o processo TMSSetVar("cProcesso", GWN->GWN_FILIAL + GWN->GWN_NRROM ) //-- Inicializa o localizador TMSSetVar("aLocaliza",{}) For nCntFor1 := 1 To Len(aStruct) If (Ascan(aStruct,{|x| x[11] + x[12] == aStruct[nCntFor1,1] + aStruct[nCntFor1,2]}) == 0) /*.And. aStruct[nCntFor1,10] == "2" .And. aStruct[nCntFor1,3] == "GWN"*/ //-- Não é adicional de ninguém e ainda não foi processado aLayout := BscLayout(aStruct[nCntFor1,1],aStruct[nCntFor1,2]) If !Empty(aLayout) If Empty(aStruct[nCntFor1,6]) //-- Inicia a gravação dos registros MontaReg(Aclone(aLayout),nCntFor1,,cSequen,.T.) TMSCtrLoop(Aclone(aLayout),nCntFor1) EndIf EndIf EndIf aStruct := TMSGetVar("aStruct") Next nCntFor1 RestArea(aAreaDT5) FwFreeArray(aAreaDT5) EndIf TMSAI86() Return .t.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas