Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada após confirmação do romaneio.

Linha de Produto:

Microsiga Protheus

Segmento:

Agroindústria

Módulo:

SIGAAGR

Rotina:

Rotina

Nome Técnico

OGX008

Função para geração do documento de saída

País(es):

Todos

Ponto de Entrada 

Localização:

Ao confirmar um romaneio.

Programa Fonte:

OGX008

Nome do PE:

Nome

Descrição

OGX008PG

Permitir que o usuário possa intervir logo após a inclusão do romaneio e antes do lançamento da Nota Fiscal.
OBS: O retorno do PE não interfere em nada na continuação da rotina. 

  • Recebe a filial e número do pedido gerado.

 

Exemplo:

#include 'protheus.ch'
#include 'parmtype.ch'

//A execução deste PE não influencia na rotina, ou seja, independente do que este
// PE retorne, a emissão de nota do pedido de venda, que já foi gravado antes deste
// PE ser executado, será feita.
user function OGX008PG()

Local cFilPed := PARAMIXB[1]
Local cNumPed := PARAMIXB[2]

        DbSelectArea( "SC5" )
        DbSetOrder( 1 )
        If SC5->( DbSeek( cFilPed + cNumPed ) )
                alert("Achou o pedido")
        endIf

        DbSelectArea( "SC6" )
        DbSetOrder( 1 ) //C6_FILIAL+C6_NUM+C6_ITEM+C6_PRODUTO
        If SC6->( DbSeek( cFilPed + cNumPed ) )
                alert("Achou o item do pedido")
        endIf

Return .T.