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.

02. EXEMPLO DE UTILIZAÇÃO

  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