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 4

changes.mady.by.user Claudineia Heerdt Reinert

Gravado em

Chave

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

...

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:

Nome

Tipo

Descrição

Obrigatório

cSerCompl

Caracter

Serie para o documento

Não


02. EXEMPLO DE UTILIZAÇÃO

...

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 )