GFEA0702 - Consistência na Funcionalidade "Atualizar Doc Frete Fiscal ERP"
Características do Requisito
Linha de Produto: | Microsiga Protheus |
Segmento: | Logística |
Módulo: | SIGAGFE |
Ponto de Entrada - GFEA0702
Descrição: | Permitir realizar as consistências na funcionalidade Atualizar Doc Frete Fiscal ERP | ||||||||
Localização: | Botão Atualizar Doc Frete Fiscal ERP, da rotina de Digitação de Faturas de Frete. | ||||||||
Programa Fonte: | GFEA070 - Digitação de Faturas de Frete (SIGAGFE) | ||||||||
Parâmetros: | Este ponto de entrada não recebe parâmetros | ||||||||
Retorno: |
|
Exemplo: GFEA0702
#INCLUDE "PROTHEUS.CH" User Function GFEA0702() Local aAreaGW3 := GetArea() Local lRet := .T. Local cExpGW3 := "GW3->GW3_FILFAT + GW3->GW3_EMIFAT + GW3->GW3_SERFAT + GW3->GW3_NRFAT + DToS(GW3->GW3_DTEMFA)" Local cExpGW6 := "GW6->GW6_FILIAL + GW6->GW6_EMIFAT + GW6->GW6_SERFAT + GW6->GW6_NRFAT + DToS(GW6->GW6_DTEMIS)" Local cSeek := &cExpGW6 GW3->( dbSetOrder(8) ) GW3->( dbSeek(cSeek) ) While !GW3->( Eof() ) .And. cSeek == &cExpGW3 If GW3->GW3_ORIGEM <> "2" GFEMsgErro("Funcionalidade bloqueada pois existe um ou mais CTRCs com 'Origem' diferente de 'Usuário' !") lRet := .F. Exit EndIf GW3->( dbSkip() ) EndDo RestArea(aAreaGW3) Return lRet
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas