Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Fabiane Schulze

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Joao Leonardo Schmidt

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
OMSM0111

OMSM0115 -

 Gravação

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íficos 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/GFEM011

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

Bloco de código
languagedelphi
titleExemplo: OMSM0115
linenumberstrue
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