Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
Módulo:
Função:	OMSA460 - Documento de saída Carga
País:	Brasil
Ticket:	20579804
Requisito/Story/Issue (informe o requisito relacionado) :	DLOGTMS02-26437

02. DESCRIÇÃO

Ponto de Entrada utilizado para bloquear faturamento parcial de carga na rotina, OMSA460 - Documento de saída Carga.

SINTAXE

OS460BLQ ( ) ---> lRet

PARÂMETROS

Nome	Tipo	Descrição	Default	Obrigatório	Referência
aParamIXB	Vetor	Vetor com os dados para montagem do filtro de pesquisa, sendo: [ 1 ] - DAK_COD - Código - Tipo: String [ 2 ] - DAK_SEQCAR - Sequência da Carga - Tipo: String

RETORNO

Retorno	Tipo	Descrição	Obrigatório
IRet	Lógico	Retorna um tipo lógico, .T. ou .F.

03. DEMAIS INFORMAÇÕES

O ponto de entrada, foi criado dentro da rotina OMSA460B - Documento de saída Carga.

Exemplo de utilização:

#Include "PROTHEUS.ch"

User Function OS460BLQ()
    Local lRet          := .T.
    Local cDakCod       := AllTrim(PARAMIXB[1])
    Local cDakSeqCar    := AllTrim(PARAMIXB[2])
    Local cAliasDAK     := ''

	cAliasDAK := GetNextAlias()
	BeginSql Alias cAliasDAK
    	SELECT DAK.DAK_FEZNF
		FROM %Table:DAK% DAK 
		WHERE DAK.DAK_FILIAL = %xFilial:DAK%
		AND DAK.DAK_COD = %Exp:cDakCod%
        AND DAK.DAK_SEQCAR = %Exp:cDakSeqCar%
        AND DAK.DAK_FEZNF = "2"
	    AND DAK.%NotDel%
    EndSql    
    If (cAliasDAK)->(!Eof())
        lRet := .T.
    Else
        lRet := .F.            
    EndIf
    (cAliasDAK)->(DbCloseArea())

 Return lRet

04. ASSUNTOS RELACIONADOS

Não há.