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).