Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Claudineia Heerdt Reinert

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Claudineia Heerdt Reinert

Gravado em

Chave

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

01. VISÃO GERAL

O ponto de entrada OG430BSE() esta disponível na rotina do gestor de entidade, na opção financeiro, no ajuste de pendencia da fixação onde requer a geração de complemento de preço.

...

Por padrão a rotina define a serie do documento de saida pelo parametro MV_OGASERS, e a serie do documento de entrada pelo parametro MV_OGASERE. Caso o parametro esteja em branco, não configurado, o sistema abre a tela para o usuario informar a serie desejada. O ponto de entrada OG430BSE() permitira customizar a serie conforme retorno do ponto de entrada, e caso não seja definido pelo ponto de entrada seguirá o padrão do sistema, abrindo a tela para ser informado.


Localização:

OGA430B - geração de complemento de preço para a pendencia de fixação do romaneio.

Programa Fonte:

OGA450 - Serviço de Armazenagem

Função:

OG430BSE()

Chamada
cSerCompl := ExecBlock("OG430BSE",.F.,.F.,{NN8->NN8_CODCTR, NN8->NN8_ITEMFX, __lCtrVnd, __cSeriSF1,__cSeriSF2})

Parametros:

Nome

Tipo

Descrição

Obrigatório

NN8_CODCTR

Caracter

Código do contrato

Sim

NN8_ITEMFXCaracterItem da fixaçãoSim
__lCtrVndLogicoInforma se é contrato de Venda(.T.) ou Compra(.F.)Sim
__cSeriSF1CaracterSerie para a nota fiscal de entrada(SF1)Não
__cSeriSF2CaracterSerie para a nota fiscal de Saida(SF2)Não
Retorno:

Caso no retorno não seja definido a serie retornando um caracter vazio, o sistema seguirá o padrão abrindo a tela para informar a serie.

Nome

Tipo

Descrição

Obrigatório

cSerCompl

Caracter

Serie para o documento

Não

Sim


02. EXEMPLO DE UTILIZAÇÃO

Abaixo segue um exemplo do ponto de entrada.

Bloco de código
themeRDark
User Function OG430BSE()

	Local cCodRom  		:= PARAMIXB[1]
	Local cCodCtr       := PARAMIXB[1]
	Local cNN8_ITEMFX   := PARAMIXB[2]
	Local lCtrVnda      := PARAMIXB[3]
	Local cSeriSF1 		:= PARAMIXB[4]
	Local cSeriSF2 		:= PARAMIXB[5]  
	LcoalLocal cSerieAux 	:= ''

	If  lCtrVnda      
   		cSerieAux := '004'
	Else
   		cSerieAux := '003'
	EndIf
	
Return ( cSerieAux )