Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Rudinei Rosa

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Rudinei Rosa

Gravado em

Chave

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


01. DADOS GERAIS

Produto:

Solucoes_totvs
SolucaoTOTVS OMS

Solucoes_totvs_cross
SolucaoCross

Solucoes_totvs_parceiros
SolucaoParceiros

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVS

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoLogística

Módulo:

Modulos_cross_segmentos

Modulos_framework

Modulos_totvs_construcao

Modulos_totvs_juridico

Modulos_totvs_logistica
ModulosTOTVSLogisticaTOTVS OMS - Gestão de Distribuição (SIGAOMS)

Modulos_totvs_manufatura

Modulos_totvs_rh

Modulos_totvs_saude

Modulos_totvs_prestadores_de_servicos

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:

Bloco de código
languageapplescript
themeMidnight
titleOMSA460
linenumberstrue
collapsetrue
#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á.



Templatedocumentos