Árvore de páginas

Versões comparadas

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 o ajuste gerando a geração de complemento de preço.

Permite definir o numero da serie para o documento de complemento de preço de venda ou compra que será gerado.

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:

cCodRom romaneio

Nome

Tipo

Descrição

Obrigatório

NN8_CODCTR

Caracter

Código do

Sim

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:

Nome

Tipo

Descrição

Obrigatório

cSerCompl

Caracter

Serie para o documento

Não

Retorno:Não é esperado nenhum retorno do ponto de entrada.


02. EXEMPLO DE UTILIZAÇÃO

Abaixo segue um exemplo do ponto de entrada apresentando mensagem de alerta.

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]
	Lcoal cSerieAux 	:= ''

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