RecalcularOCServico

Recalcular as ordens de compra com as quantidades sobressalentes.

Sintaxe: Funcao RecalcularOCServico(Alfa pParam, Alfa End Retorno);

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

Nome Tipo Descrição
CodEmp Alfa Empresa da ordem de compra.
CodOri Alfa Origem do produto da OP.
NumOrp Alfa Número da OP que gerou a OC.
CodEtg Alfa Código do estágio.
SeqRot Alfa Sequência do roteiro.
SeqSop Alfa Sequência (opcional).
QtdSbr Alfa Quantidade sobressalente da quantidade que gerou a OC.
TipRec Alfa Define se o tipo de recalculo é "P" (Positivo, aumenta OC Serviço) ou "N" (Negativo, diminui OC Serviço).

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 no exemplo abaixo.

Exemplo:

pParam = "CodOri="+VSCodOri+",NumOrp="+stralfNumOrp+",codetg="+stralfCodEtg+",seqrot="+stralfSeqRot+",codpro=" +vscodpro+",\"codder="+vscodder+"\",qtdsbr="+striqtdexc;
RecalcularOCServico(pParam,Retorno);
se (Retorno <> "OK")
geralog ( "não alterou OC serviço" );

Este artigo ajudou você?