GFEA070A2 - Inclusão de posições no array aMKB

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEA070A2 

Descrição:

Permitir a inclusão de posições no array aMKB, no fonte GFEA070A que faz o vinculo entre o Fatura de Frete e um Documentos de Frete da Fatura .

Localização:

Apos a criação do array aMKB, na função de criação de tabelas temporárias.

Programa Fonte:

GFEA070A - Cria o vinculo entre o Fatura de Frete e um Documentos de Frete da Fatura.

Parâmetros:

aMKB := {{"OK" , "C", 02, 0},;
{"FILIAL", "C", Len(cFilAnt), 0},;
{"CDESP" , "C", TamSX3("GW3_CDESP")[1], 0},;
{"EMISDF", "C", TamSX3("GU3_CDEMIT")[1], 0},;
{"SERDF" , "C", TamSX3("GW3_SERDF")[1], 0},;
{"NRDF" , "C", TamSX3("GW3_NRDF")[1], 0},;
{"VLDF" , "N", TamSX3("GW3_VLDF")[1], 2},;
{"DTEMIS", "D", TamSX3("GW3_DTEMIS")[1], 0},;
{"CDREM" , "C", TamSX3("GU3_CDEMIT")[1], 0},;
{"NMREM" , "C", TamSX3("GU3_NMEMIT")[1], 0},;
{"CDDEST", "C", TamSX3("GU3_CDEMIT")[1], 0},;
{"NMDEST", "C", TamSX3("GU3_NMEMIT")[1], 0},;
{"TPDF" , "C", TamSX3("GW3_TPDF")[1], 0},;
{"DTENT" , "D", TamSX3("GW3_DTENT")[1], 0}}

Retorno:

Nome

Tipo

Descrição

Obrigatório

aMKB

array

Retornará o aMKB , com as posições já existentes e as adicionadas no ponto de entrada.

OBS: Não é permitido retirar nenhuma posição do array já existente, elas são usadas na logica do programa.

Sim

 

#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