CriarEstoque    

Ligar o produto a vários depositos.

Nota

Se o sistema estiver parametrizado para a geração do bloco K, algumas consistências e bloqueios podem ser realizadas nessa função, garantindo a correta geração de informações do arquivo, conforme guia prático. Confira estas consistências na tela Parâmetros e consistências da empresa (F070ECN).

Sintaxe: Função CriarEstoque(Alfa End Produto, Alfa End Derivacao, Alfa End Deposito);

Parâmetros:

Nome Tipo Descrição
Produto Alfa  
Derivacao Alfa  
Deposito Alfa  

Exemplo:

definir alfa VSEstado;
definir alfa VSCodPro;
definir alfa VSCodDer;
definir numero VSCodEmp;

se (VSEstado = "INSERINDO")
inicio
definir cursor Cur_Dep;
definir alfa vCodDep;

Cur_Dep.Sql "SELECT CODDEP,TIPDEP FROM E205DEP WHERE CODEMP = :VSCodEmp";
Cur_Dep.AbrirCursor();
Enquanto (Cur_Dep.Achou)
inicio
se (Cur_Dep.TipDep <> 2)
inicio
vCodDep = Cur_Dep.CodDep;
CriarEstoque(VSCodPro, VSCodDer, vCodDep);
fim;
Cur_Dep.Proximo();
fim;
Cur_Dep.FecharCursor();
fim;

Este artigo ajudou você?