Home

Linha Microsiga Protheus

Páginas filhas
  • ACDA100I - Filtra Itens na geração de Ordens de Separação -- 25045

Ponto-de-Entrada: ACDA100I - Filtra Itens na geração de Ordens de Separação
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição:
O ponto de entrada ACDA100I é utilizado para filtrar os itens que serão considerados ao gerar ordens de separação.
Esse ponto é utilizado para validar se o item será considerado na geração da ordem de separação.
Eventos

Chamado na leitura dos registros filtrados conforme parametrização, durante o processamento dos itens para a geração de OS. Por exemplo:

É executado no laço dos itens das tabelas de pedidos liberados (SC9) quando gerada ordem de separação por pedidos, ordens de produção (SC2) quando gerada ordem de separação por ordem de produção e itens da nota fiscal (SD2) quando gerada ordem de separação por nota fiscal de saída.

Programa Fonte
ACDA100.PRW
Sintaxe

ACDA100I - Filtra Itens na geração de Ordens de Separação ( ) --> lRet

Retorno
    lRet(logico)
  • lRet = .T. - Item será considerado na geração da O.S. / lRet = .F. - Item não será considerado na geração da O.S.
Observações

Para identificar qual opção foi selecionada, pode-se utilizar a variável privada "nOrigExp", onde:

Se nOrigExp = 1, selecionada opção por Ped.Venda;

Se nOrigExp = 2, selecionada opção por Nota Fiscal;

Se nOrigExp = 3, selecionada opção por Ordem de Produção.

 

Exemplos
USER FUNCTION ACDA100ILocal lRet := .T.                                     // Customizações do cliente. O exemplo abaixo, para opcao por Ordem de Produção, ao retornar .F. (falso), é para não gerar OS se já foi efetuada anteriormente a separação para a OP.If nOrigExp == 3  //  Opção de gerar OS por Ordem de Produção    CB8->(DbSetOrder(6))    lRet := !(CB8->(DbSeek(xFilial("CB8")+SC2->C2_NUM+SC2->C2_ITEM+SC2->C2_SEQUEN)))EndIf       Return lRet