Linha Microsiga Protheus

Árvore de páginas

OMSM0111 - Gravação de informações específicos do Documento de Carga

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Ponto de Entrada - OMSM0115

Descrição:

Permite a gravação de informações específicas do Documento de Carga ou de tabelas relacionadas.

Localização:

Após a integração da Nota Fiscal com o SIGAGFE (GFEA044).

Programa Fonte:

OMSM011

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]CaracterModel do Documento de Carga (GFEA044)Sim

Retorno:

Não se aplica.

Observação:

Do ERP Protheus para o Protheus SIGAGFE

Exemplo: OMSM0115
User Function OMSM0115()

	Local oModelNFS	:= PARAMIXB[1]
	Local cChaveGW1	:= ""
	
	cChaveGW1 := PadR(oModelNFS:GetValue('GFEA044_GW1','GW1_FILIAL'),TamSx3('GW1_FILIAL')[1]) + ;
	 			 PadR(oModelNFS:GetValue('GFEA044_GW1','GW1_CDTPDC'),TamSx3('GW1_CDTPDC')[1]) + ;
	 			 PadR(oModelNFS:GetValue('GFEA044_GW1','GW1_EMISDC'),TamSx3('GW1_EMISDC')[1]) + ;
				 PadR(oModelNFS:GetValue('GFEA044_GW1','GW1_SERDC') ,TamSx3('GW1_SERDC')[1]) + ;
				 PadR(oModelNFS:GetValue('GFEA044_GW1','GW1_NRDC')  ,TamSx3('GW1_NRDC')[1])
				 
	GW1->(dbSetOrder(1))
	If !GW1->(dbSeek(cChaveGW1))
		Return
	EndIf
	
	GWU->(dbSetOrder(1))
	If !GWU->(dbSeek(cChaveGW1))
		Return
	EndIf
	
	oModelNFS:Deactivate()
	oModelNFS:Destroy()
	oModelNFS := Nil

EndIf