IncluirServicoOP

Permitir inserir uma operação externa na OP sem ao menos esta operação constar no roteiro.

Sintaxe:  Funcao IncluirServicoOP(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 (exceto o parâmetro Retorno):

Nome Tipo Descrição
CodOri Alfa Código da origem da OP.
NumOrp Alfa Número da OP.
CodEtg Alfa Código do estágio de produção.
SeqRot Alfa Sequência da operação no roteiro de produção.
TipPos Alfa Tipo de posicionamento.
CodOpr Alfa Código da operação.
CodCre Alfa Centro de recursos.
CodSer Alfa Código do serviço.
CodFor Alfa Código do fornecedor.
QtdSer Alfa Quantidade do consumo unitário do 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.

Tipo de retorno: parâmetro Retorno do tipo alfa que recebe "OK" caso tenha processado com sucesso.

Exemplo:

Definir alfa Parametros;
Definir Alfa Retorno;
Definir Alfa strnumorp;
Definir Alfa strcodetg;
Definir Alfa strseqrot;
Definir Alfa strcodfor;
Definir Alfa strtippos;
Definir Alfa strqtdser;
Definir Alfa codopr;
Definir Alfa codcre;
Definir Alfa codser;
Definir Alfa codori;

codori = "11";
strnumorp = "222";
strcodetg = "333";
strseqrot = "01";
codopr = "XX";
codcre = "YYY";
codser = "ZZZ";
strcodfor = "1";
strtippos = "1";
strqtdser = "1";

 

Parametros = "CodOri="+codori+",NumOrp="+strnumorp+",codetg="+strcodetg+",seqrot="+strseqrot+",CodOpr="+codopr+",CodCre="+codcre+",CodSer="+codser+

",CodFor="+StrCodFor+",TipPos="+StrTipPos+",QtdSer="+StrQtdSer;
IncluirServicoOP(Parametros,Retorno);
Se (Retorno <> "OK")
Geralog(Retorno);

Utilização da Função (dependentes): Nenhum dependente.

Observação: o parâmetro QtdSer é o consumo unitário do serviço na OP. Isso se faz necessário já que o serviço não está no modelo (para
buscar o consumo).

Este artigo ajudou você?