Histórico da Página
TSLFR1_DT_AF380VLIN_VALIDA_LINHA_ACERTO_VLR_RECUPERÁVEL
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||
Segmento: | Servicos | ||||||||||
Módulo: | Ativo Fixo | ||||||||||
Rotina: |
| ||||||||||
Cadastros Iniciais: | Relacione os cadastros necessários que precisam ser preenchidos antes da utilização desse requisito. | ||||||||||
Parâmetro(s): | Informe os parâmetros utilizados. | ||||||||||
Ponto de Entrada: | AF380VLIN | ||||||||||
Chamados Relacionados | TSLFR1 | ||||||||||
Requisito (ISSUE): | Informe o requisito relacionado (Issue). | ||||||||||
País(es): | Todos | ||||||||||
Banco(s) de Dados: | Todos | ||||||||||
Tabelas Utilizadas: | SNI/SNJ | ||||||||||
Sistema(s) Operacional(is): | Todos | ||||||||||
Versões/Release: | 11.80 | ||||||||||
Versão Corrigida: | Versão na qual está sendo feita a manutenção deste programa. | ||||||||||
Versão Expedida: | Versão em que o programa será oficialmente expedido. |
Descrição
Ponto de entrada para validação da linha da grade na rotina de acerto do valor recuperável.
Ponto de Entrada
Descrição: | Ponto de entrada para validação da linha da grade de acerto do valor recuperável. | ||||||||||||||||||||||||
Localização: | É uma rotina customizada, portanto não faz parte do menu padrão | ||||||||||||||||||||||||
Eventos: | AF380VLIN | ||||||||||||||||||||||||
Programa Fonte: | ATFA380.PRW | ||||||||||||||||||||||||
Função: | Af380GrvWz() | ||||||||||||||||||||||||
Retorno: |
| ||||||||||||||||||||||||
Parametro: |
|
Exemplo:
#Include 'Protheus.ch'
//Exemplo de ponto de entrada para validar linha na exportacao ou importacao
User Function
CN120ALTAF380VLIN()
Local
aHeader__ :=
PARAMIXB[1]ParamIXB[1]
Local aCols__ := ParamIXB[2]
Local nLinAt__ := ParamIXB[3]
Local nOpcAux__ := ParamIXB[4]
Local lEfetiva_ := ParamIXB[5]
Local lRet := .T.
Local cQuery := ""
Local aArea := GetArea()
Local cAliasQry := CriaTrab(,.F.)
Local nPosBem := aScan( aHeader__, {|x| Upper( AllTrim( x[2] ) ) == "NJ_BEM" } )
Local nPosItBem := aScan( aHeader__, {|x| Upper( AllTrim( x[2] ) ) == "NJ_ITBEM" } )
If nOpcAux__ == 7 .And. lEfetiva_ .And. nPosBem > 0 .And. nPosItBem > 0
//importacao com efetivacao tem que validar se bem ja nao esta em outra simulacao
cQuery := " SELECT NI_STATUS FROM "
cQuery += RetSqlName("SNI")+" SNI, "+RetSqlName("SNJ")+" SNJ "
cQuery += " WHERE "
cQuery += " NI_FILIAL = '"+xFilial("SNI")+"' "
cQuery += " AND NI_STATUS = '1' "
cQuery += " AND SNI.D_E_L_E_T_ = ' ' "
cQuery += " AND NI_FILIAL = NJ_FILIAL "
cQuery += " AND NI_PROC = NJ_PROC "
cQuery += " AND NJ_BEM = '"+aCols__[nLinAt__, nPosBem]+"'"
cQuery += " AND NJ_ITBEM = '"+aCols__[nLinAt__, nPosItBem]+"'"
cQuery += " AND SNJ.D_E_L_E_T_ = ' ' "
dbUseArea(.T., "TOPCONN", TcGenQry(,, cQuery ), cAliasQry, .T.,.F. )
If (cAliasQry)->( !Eof() ) //se encontrado retorna .F. para chamador
(cAliasQry)->( DbCloseArea() )
MsgInfo("Bem : "+aCols__[nLinAt__, nPosBem]+"/"+aCols__[nLinAt__, nPosItBem]+" - encontrado em outra simulacao, Arquivo nao pode ser importado.")
lRet := .F.
EndIf
EndIf
RestArea(aArea)
Return(lRet)
Local cTipo:= PARAMIXB[2]
If cTipo == '1'
aCab[4][2]:= 'NF' //Validações do usuário
EndIf
Return aCab