Histórico da Página
6390319
OG009SLNF - Browse de seleção de Nota Fiscal de Saída a devolver.
Características do Requisito
Linha de Produto: | Protheus |
Segmento: | Agroindústria |
Módulo: | SIGAAGR |
Ponto de Entrada - OG009SLNF
Descrição: | Permitir intervir na busca dos romaneios a serem usados na devolução. | ||||||||||||||||
Localização: | Antes de realizar a busca dos romaneios. | ||||||||||||||||
Programa Fonte: | OGX009 | ||||||||||||||||
Parâmetros: |
| ||||||||||||||||
Retorno: |
| ||||||||||||||||
| Observação: | Não se aplica. |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#include 'protheus.ch'
#include 'parmtype.ch'
user function OG009SLNF()
Local cQuery := PARAMIXB[1]
Local cFiltro := PARAMIXB[2]
Local cOrder := PARAMIXB[3]
Local cCodCli := Posicione("NJ0",1,xFilial("NJ0")+ NJJ->NJJ_CODENT+NJJ->NJJ_LOJENT,"NJ0_CODCLI" )
Local cLojCli := Posicione("NJ0",1,xFilial("NJ0")+ NJJ->NJJ_CODENT+NJJ->NJJ_LOJENT,"NJ0_LOJCLI" )
Local aRet := {}
//Acrescenta o Cliente e a Loja no filtro de busca dos romaneios para devolução.
cFiltro += " AND SD2.D2_CLIENTE = '" + cCodCli + "' "
cFiltro += " AND SD2.D2_LOJA = '" + cLojCli + "' "
aAdd(aRet, cQuery)
aAdd(aRet, cFiltro)
aAdd(aRet, cOrder)
Return aRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas