Árvore de páginas

Correção da inconsistência ao realizar a devolução parcial de epis.

Linha de Produto:

Microsiga Protheus.

Segmento:

Serviços.

Módulo:

Medicina e Segurança do Trabalho.

Função:

MDTA695

Situação/Requisito:

Quando realizo a Devolução Parcial de um EPI na rotina de Funcionário x EPI (MDTA695) ocorre o erro log abaixo descrito impedindo a devolução do mesmo. Para isso é necessário entregar duas vezes o mesmo EPI ao funcionário, realizar a devolução parcial do ultimo EPI entregue e em seguida realizar a devolução parcial do primeiro EPI entregue.

THREAD ERROR (roberta.borchardt, NG022-PC) 01/12/2016 10:27:57
array out of bounds ( 2 of 1 ) on NG695GRAV(MDTA695.PRX) 10/11/2016 08:55:09 line : 1461

[TOTVS build: 7.00.131227A-20160331]
Called from GRAVAEPI(MDTA695.PRX) 10/11/2016 08:55:09 line : 980
Called from NGFUN695(MDTA695.PRX) 10/11/2016 08:55:09 line : 915
Called from FWMBROWSE:EXECUTE(FWFORMBROWSE.PRW) 05/10/2016 15:57:00 line : 1064
Called from { || OSELF:EXECUTE("NGFUN695", 4, 0,"EPIS", 3,"","EPIS","", 3) } line : 578
Called from ::MSDIALOG:ACTIVATE
Called from FWMBROWSE:ACTIVATE(FWMBROWSE.PRW) 08/09/2016 14:54:42 line : 669
Called from FWMBROWSE(MSLIB.PRW) 30/09/2016 13:19:22 line : 12664
Called from MBROWSE(MSLIB.PRW) 30/09/2016 13:19:22 line : 170
Called from MDTA695(MDTA695.PRX) 10/11/2016 08:55:09 line : 212
Called from __EXECUTE(APLIB090.PRW) 14/07/2016 09:52:18 line : 581
Called from MDIEXECUTE(APLIB260.PRW) 06/06/2016 16:11:42 line : 806

Solução/Implementação:

Correção da inconsistência através do posicionamento no registro que será devolvido, quando utilizado o botão de "Devolução Parcial".