BaixarComponentes

Baixar componentes de OPs.

Sintaxe: Funcao BaixarComponentes(Alfa pParametros,Alfa End pRetorno);

Parâmetros:O parâmetro pParametros é um valor alfanumérico onde devem ser concatenados os valores listados na tabela abaixo:

Nome	Tipo	Descrição
CodOri	Alfa	Código da origem da OP.
NumOrp	Alfa	Número da OP.
CodEtg	Alfa	Estágio da OP.
CodCmp	Alfa	Código do componente.
CodDer	Alfa	Derivação do componente.
QtdUti	Alfa	Quantidade utilizada/quantidade a baixar (separador decimal deve ser ponto e não vírgula).
CodLot	Alfa	Lote do componente.
LotDes	Alfa	Lote do produto da OP para o qual o componente foi utilizado.
QtdMnc	Alfa	Quantidade de material não-conforme.
QtdCdr	Alfa	Quantidade somada a quantidade já informada no componente.
QtdUn2	Alfa	Quantidade de acordo com a segunda unidade de medida.
DatMov	Alfa	Data do movimento.
NumSep	Alfa	Separadores numéricos.
SepDes	Alfa	Número de série do produto.
CodTns	Alfa	Código da transação. Se a transação de baixa não for informada na função, a transação será obtida do componente da OP (tabela F900CMO). Caso não exista transação informada na tabela, será buscada a transação no cadastro da origem e, por último, no cadastro da filial. Observação: se o identificador de regras CHA-900SDPBC01 estiver ativo, será considerado prioritariamente a transação informada nele, desde que a transação não seja informada na função.
CodCcu	Alfa	Centro de Custos (este valor será utilizado para fazer o movimento de estoque, mesmo quando o componente já estiver na O.P.)

Por esta razão, todos os itens acima estão listados como "Alfa". Estes valores devem estar entre aspas duplas e ser separados por vírgula. O uso destes parâmetros pode ser visto nos exemplos abaixo.

Tipo de retorno: pTipo de retorno: variável alfanumérica que retorna OK caso a baixa tenha sido realizada com sucesso.

Exemplo 1:

Definir Alfa vParametros;
Definir Alfa vRetorno;
Definir Alfa vNumOrp;
Definir Alfa VACodEtg;
Definir Alfa vQtdUti;
Definir Numero VXCodEmp;

VXCodEmp = CodEmp;
Definir Cursor Cur_E900Cmo;

Cur_E900Cmo.SQL "SELECT * FROM E900CMO, E900COP WHERE E900CMO.CODEMP = :VXCodEmp AND \E900CMO.CODEMP = E900COP.CODEMP AND E900CMO.CODORI = E900COP.CODORI AND \E900CMO.NUMORP = E900COP.NUMORP AND (E900COP.SITORP = 'A'OR E900COP.SITORP = 'L') AND \E900CMO.CODCMP = '2101' AND E900COP.CODORI = '80' ";

Cur_E900Cmo.AbrirCursor();

Se (Cur_E900Cmo.Achou)

inicio

IntParaAlfa(Cur_e900Cmo.NumOrp,vNumOrp);
IntParaAlfa(Cur_e900Cmo.CodEtg,vaCodEtg);
IntParaStr(Cur_e900Cmo.QtdPrv,vQtdUti);

SubstAlfa(",", ".", vQtdUti); @ se tiver vírgula, trocar por ponto @ vParametros = "CodOri=" + Cur_E900Cmo.CodOri + ",NumOrp="+vNumOrp + ",CodCmp="+Cur_ E900Cmo.CodCmp;@ vParametros = vParametros + ",CodDer="+Cur_E900Cmo.CodDer+",CodEtg="+vaCodEtg+",QtdUti="+vQtdUti +",LotDes=12345-111,CodLot=123";@ vParametros = vParametros + ",CodDer="+Cur_E900Cmo.CodDer+",CodEtg="+vaCodEtg+",QtdUti=1,LotDes=12345-111,CodLot=123";

BaixarComponentes(vParametros,vRetorno);

fim;

Nota:

Caso contenha algum espaço no cadastro do produto, seja de código de componente, derivação, origem e outros, as variáveis devem ser passadas conforme exemplo abaixo ( no exemplo abaixo somente o componente tinha espaço em seu cadastro):

Exemplo 2:

Definir Alfa Param;
Definir Alfa aRet;
Param = "CodOri=XX,NumOrp=111,CodEtg=YYY,SeqCmp=0,CodCmp=1111,CodDer=1,QtdUti=0,QtdUn2=1";
BaixarComponentes(Param,aRet);

Observações:

Os parâmetros CodOri, NumOrp, CodEtg, CodCmp, CodDer e QtdUti são obrigatórios.
Os parâmetros CodLot e LotDes são opcionais.
O valor passado no parâmetro LotDes será gravado no movimento de saída do componente no campo LotDes da tabela E210Mvp, porém, o sistema não fará nenhuma consistência deste valor, como por exemplo para verificar se este lote existe ou não para o produto da O.P. ou coisa parecida, isto é, o valor simplesmente é gravado na base, ficando todas as consistências por conta do usuário na regra.
O valor informado na variável QtdMnc será somado ao valor já existente na coluna "Qtde Não-Conforme", ou seja, se o componente possuía o valor 1 nessa coluna na tela de consulta e na regra também foi passado o valor 1, então ao consultar novamente após a execução, deverá constar o valor 2 nesta coluna.
O valor informado na variável QtdCdr, se for diferente de zero, irá substituir o valor da coluna "Qtde Destin. Refugo", isto é, se o componente possuía o valor 2 nessa coluna na tela de consulta e na regra foi passado o valor 5, então ao consultar novamente deverá constar o valor 5.
O valor informado na variável QtdCdr, se for diferente de zero, irá substituir o valor da coluna "Qtde Destin. Refugo", isto é, se o componente possuía o valor 2 nessa coluna na tela de consulta e na regra foi passado o valor 5, então ao consultar novamente deverá constar o valor 5.
Ao informar um valor para a variável "NumSep" e o componente em questão não tiver controle por série, o valor desta variável será ignorado e a baixa será feita, sem gerar críticas.
Ao informar um valor para a variável "SepDes" e o produto da O.P. não tiver controle por série, o valor desta variável será ignorado e a baixa será feita sem gerar críticas.
Não será feito nenhuma consistência com relação ao valor informado na variável "SepDes", ou seja, pode ser informado um número de série que ainda não tenha dado entrada no estoque e não será gerado nenhuma crítica.
O valor do parâmetro SepDes será gravado no movimento de baixa de estoque do componente, no campo SepDes da tabela "E210MVP"(Estoques -Movimentos).
Não é possível realizar a baixa de componentes que tiveram o status alterado para "Inativo", após a criação da O.P. Quando houver algum componente nesta situação no momento da baixa, ele é desconsiderado e será gerada uma observação, nas observações da OP, informando que a baixa não foi realizada, pois o componente estava inativo.
Quando não informada a quantidade utilizada na regra da função, o sistema assume o saldo previsto do componente como sendo a quantidade utilizada. É uma característica da função.
Quando a quantidade a baixar do componente não for igual a quantidade disponível em estoque, será realizado a baixa da quantidade disponível (por exemplo, se a quantidade prevista for 5 e a quantidade disponível for 2, apenas 2 serão baixados). Nesse caso, a quantidade restante ficará como pendente de baixa e a função não emitirá uma mensagem de advertência informando que a quantidade total não foi baixada. Somente quando o saldo de estoque do componente disponível para baixa for igual a zero é que uma mensagem será exibida, impedindo assim a baixa do componente.

Utilização da Função (dependentes): Nenhuma.

Identificadores utilizados:

CHA-900SDPBC01

PRD-000ARFDP01

PORTAL DE DOCUMENTAÇÃO
Gestão Empresarial \| ERP - versão 5.10.2 (XTended)