Árvore de páginas

Versões comparadas

Chave

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

GFEXWS14 -

Funcionalidade para alterar a situação do romaneio e não realizar a sua eliminação

FUNCIONALIDADE PARA ALTERAR A SITUAÇÃO DO ROMANEIO E NÃO REALIZAR A SUA ELIMINAÇÃO

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEXWS14

Descrição:

Quando executada a função de eliminação do romaneio, permitir que o mesmo continue na base apenas com a situação alterada

Localização:

Antes de realizar a eliminação da tabela de romaneio (GWN)

Programa Fonte:

GFEXWSFUN - Serviço de Integração do Frete Embarcador (SIGAGFE) WebService Integração SIGAGFE X Datasul

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]Array

Array contendo o conteúdo dos dados que serão gravados no GFE.

Sim
PARAMIXB[2]ObjetoObjeto contendo o modelo de dados da tabela GWN Sim

Retorno:

Nome

Tipo

Descrição

Obrigatório

cRet

Caracter

Se informado "ok" indica que o processo de eliminação padrão não deverá ser feito

Sim

Bloco de código
languagedelphi
titleExemplo: GFEXWS14
linenumberstrue
User Function GFEXWS14()
	
	aDados  := PARAMIXB[1]
	oModel  := PARAMIXB[2]
	cTransp := '' 
	cClFrete := ''
	lElimin := .T.
		
		dbSelectArea("GWN")
		If dbSeek(	PADR(Alltrim(aDados[1]) , TamSX3("GWN_FILIAL" )[1],'') + ;
					PADL(Alltrim(aDados[2]) , TamSX3("GWN_NRROM" )[1],'0'))
					
			RecLock("GWN",.F.)
				GWN->GWN_XDEL := '1' 
			MsUnlock()
			
			If GWN->GWN_SIT == '3' //Necessario reabrir
				GFEA050REA(.T.)
			EndIF
				
			If GWN->GWN_SIT <> '3'
				RecLock("GWN",.F.)
					GWN->GWN_XVAL := '1' 
				MsUnlock()
			Else
				aErro := oModel:GetErrorMessage()
				conout("Erro na exclusão do registro. Motivo: " + aErro[6])
			EndIf
		EndIF
Return 'ok'