Histórico da Página
01. VISÃO GERAL
O ponto de entrada UBSC61NR() esta disponível na rotina Gerar termo aditivo(UBSC061). Este ponto de entrada permite customizar a numeração do termo aditivo, sendo este opcional, permite definir as informações referente ao tratamento de sementes que devem ser impressos obrigatóriamente no termo aditivo de sementes tratadas, e validar informações podendo cancelar a geração do termo aditivo.
É passado para o ponto de entrada um array contendo o numero do termo aditivo gerado pelo sistema, o tipo do termo aditivo gerado, e o array de dados do lote do termo aditivo. O retorno do ponto de entrada deverá ser um array com um valor logico, o codigo do termo aditivo e um array com as informações de tratamento do lote de sementes. Devido as informações para geração dos dados de tratamento de sementes ser customizadas(campos, parametros) faz-se necessario o uso deste ponto de entrada para busca das informações para ser impresso no termo aditivo, sendo estas informações obrigatórias para termos aditivos do tipo T=Tratado;C=Reembalado/Tratado.
Localização: | UBSC61NR() | ||||||||
Programa Fonte: | UBSC061 - Gerar Termo Aditivo | ||||||||
Função: | Ponto de Entrada para a manipulação do código do termo aditivo, validação, e busca das informações referente ao tratamento de sementes que deve ser impresso no termo aditivo par sementes tratadas. | ||||||||
Retorno: |
|
02. EXEMPLO DE UTILIZAÇÃO
Bloco de código |
---|
User function UBSC61NR() Local cCodTerm := PARAMIXB[1] Local cTipTerm := PARAMIXB[2] Local aDadosLote := PARAMIXB[3] Local aObsTrat := {} Local lValid := .T. Local aRet := {lValid,cCodTerm,aObsTrat} Local cTexto := "" //pode gerar validações para o retorno lValid // pode gerar customização para alterar o codigo do termo aditivo cCodTerm //AQUI FAZ A LOGICA PARA BUSCAR OS DADOS REFERENTE AO TRATAMENTO DO LOTE, // O NUMERO DO LOTE ESTA NO ARRAY aDadosLote cTexto := "formaul XX : 100 KG, formaul YY : 200 KG, Produto AB : 36 KG" //uma string com os dados para o array de tratamento e semente aObsTrat := {cTexto} aRet := {lValid,cCodTerm,aObsTrat} //retorno com os dados do ponto de entrada Return aRet |