Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS OMS

Linha de Produto:

Linha Protheus

Segmento:

Logística

Módulo:

TOTVS OMS - Gestão de Distribuição (SIGAOMS)

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

aParamIXBVetorVetor 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

IRetLógicoRetorna 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:

OS460BLQ 
#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á.