Histórico da Página

Descrição

Ponto de entrada criado com o intuito do usuário realizar a separação de solicitação de compras de acordo com o tipo de produto, sem a utilização da solicitação de armazém.

O Ponto de Entrada também pode ser utilizado para verificar quais registros foram incluídos na tabela SC1, através do array aCampo.
Parâmetros passados para o array aCampo:
1º - Numero da Solic.de Compra.
2º - Item da Solicitacao.
3º - Codigo do Produto.
4º - Quantidade da SC.

Observações

Exemplos

User Function NGSEPARASCNGSEPASC(aCampo)

MsgInfo("Número da Solicitação de Compra: "SC1->C1_NUM" Produto: "+SC1->C1_PRODUTO)

nNumero := PARAMIXB[1][1] //Numero da Solic.de Compra.
nItem := PARAMIXB[1][2] //Item da Solicitacao.
nProduto := PARAMIXB[1][3] //Codigo do Produto.
nQuant := PARAMIXB[1][4] //Quantidade da SC.

dbSelectArea( "SC1" ) //Seleciona a tabela de Solicitacoes de Compra.
dbSetOrder( 01 ) //C1_FILIAL+C1_NUM+C1_ITEM
If dbSeek( xFilial( "SC1" )+nNumero+nItem ) //Se encontrar o registro.
RecLock( "SC1",.F. ) //Altera os registros.
SC1->C1_PRODUTO := nProduto
SC1->C1_QUANT := 10
SC1->(MsUnlock())
EndIf

Return .T.