Árvore de páginas

Versões comparadas

Chave

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

...

03. DEMAIS INFORMAÇÕES

Parâmetro:


Nome        TipoDescrição

cTp (ParamIxb[01)

Caractere

Parametro 1 - cTp - Tipo: 1=Fatura / 2=Remito

cFilVV0 (ParamIxb[02)

Caractere

Parametro 2 - VV0_FILIAL - Filial

cCodVV0 (ParamIxb[03])

Caractere

Parametro 3 - VV0_NUMTRA - Nro da Transação de Saida


Retorno:

NomeTipoDescrição

aRet

Array (Vetor)

1a.posição: código do TES

2a.posição: .t. mostra a tela para o usuário confirmar o TES / .f. não mostra tela.

...

Bloco de código
themeRDark
firstline1
titleONJD15PERG VXX01TEA (AdvPL)
linenumberstrue
#INCLUDE "PROTHEUS.CH"
User Function VXX01TEA()
Local cTp     := ParamIxb[01]  // Parametro 1 - cTp - Tipo: 1=Fatura / 2=Remito
Local cFilVV0 := ParamIxb[02]  // Parametro 2 - VV0_FILIAL - Filial 
Local cCodVV0 := ParamIxb[03]  // Parametro 3 - VV0_NUMTRA - Nro da Transação de Saida
Local aRet    := {"   ",.t.}   // Default
If cTp == "1" // TES da Fatura -> Gera Dupl: SIM / Mov.Estoque: NAO
	aRet := {"502",.t.} // { TES Fatura , mostra tela }
ElseIf cTp == "2" // TES de Remito -> Gera Dupl: NAO / Mov.Estoque: SIM
	aRet := {"503",.t.} // { TES Remito , mostra tela }
EndIf
Return aClone(aRet)

...