Agro - Linha Protheus - AGR - Exemplo de Utilização em Rotina Automática MVC - Romaneio OGA250/OGA251 – Central de Atendimento TOTVS

Tempo aproximado para leitura: 00:01:00 min

Dúvida
Como procedimento num Exemplo de Utilização em Rotina Automática MVC - Romaneio OGA250/OGA251?

Ambiente
TOTVS Agro - TOTVS Agro - Comercialização (Linha Protheus) - Originação de Grãos (OG) - Versão 12

Solução
Para solucionar essa dúvida, siga o seguinte procedimento:

Exemplo de código - Inclusão Romaneio com Pesagem




User Function zIncRomP()
    Local lRet := .F.
    Local oModel := Nil
     
    oModel  := FWLoadModel('OGA250')   
    oModel:SetOperation(MODEL_OPERATION_INSERT) //INCLUSÃO
    oModel:Activate()
     
    //### Modelos de dados: NJJUNICO, NJKUNICO, NK4UNICO, NJMUNICO ###
    //Setando valores nos campos
    oModel:GetModel('NJJUNICO'):SetValue('NJJ_TIPENT', '0') //COM PESAGEM
    oModel:GetModel('NJJUNICO'):SetValue('NJJ_TIPO', '4') //SAIDA POR VENDA
    oModel:GetModel('NJJUNICO'):SetValue('NJJ_CODCTR', '000116') //NUMERO DO CONTRATO
    oModel:GetModel('NJJUNICO'):SetValue('NJJ_TPFORM', '1')
    oModel:GetModel('NJJUNICO'):SetValue('NJJ_LOCAL', '01')
    oModel:GetModel('NJJUNICO'):SetValue('NJJ_TABELA', '000001')
    oModel:GetModel('NJJUNICO'):SetValue('NJJ_PESO1', 1000)
    oModel:GetModel('NJJUNICO'):SetValue('NJJ_PESO2', 2000)
    oModel:GetModel('NJJUNICO'):SetValue('NJJ_PSSUBT', 1000)
  
    //modelo de dados da aba Classificação(Grid)  
    oModel:GetModel('NJKUNICO'):GoLine( 1 ) //posicionando na linha
    oModel:GetModel('NJKUNICO'):SetValue('NJK_PERDES', 1) 
    oModel:GetModel('NJKUNICO'):GoLine( 2 ) //posicionando na linha           
    oModel:GetModel('NJKUNICO'):SetValue('NJK_PERDES', 0.8) 
 
    //modelo de dados da aba Comercialização(Grid) 
    oModel:GetModel( "NJMUNICO" ):GoLine( 1 ) //posicionando na linha          
    oModel:GetModel('NJMUNICO'):SetValue('NJM_ITEROM', '01')   
 
    If oModel:VldData() //valida os dados
        oModel:CommitData() //realiza a gravação do registro
        MsgInfo("Registro incluído com sucesso")   
        lRet := .T.
    Else   
        VarInfo("",oModel:GetErrorMessage())
        MsgAlert("Erro ao incluir o registro")
    EndIf 
 
return lRet

Olá,

Agro - Linha Protheus - AGR - Exemplo de Utilização em Rotina Automática MVC - Romaneio OGA250/OGA251

0 Comentários

Olá ,

Olá ,

Olá ,

Olá,