Tempo aproximado para leitura: 00:01:40 min
Dúvida
O Ponto de Entrada após confirmação do romaneio. Como funciona?
Ambiente
TOTVS Agro - TOTVS Agro - Comercialização (Linha Protheus) - Originação de Grãos (OG) - Versão 12
Solução
Características do Requisito:
|
Linha de Produto: |
Microsiga Protheus |
||||
|
Segmento: |
Agroindústria |
||||
|
Módulo: |
SIGAAGR |
||||
|
Rotina: |
|
||||
|
País(es): |
Todos |
Ponto de Entrada:
|
Localização: |
Ao confirmar um romaneio. |
||||
|
Programa Fonte: |
OGX008 |
||||
|
Nome do PE: |
|
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.
0 Comentários