Histórico da Página

...

Totvs custom tabs box

tabs	Com Pesagem, Sem Pesagem
ids	passo1,passo2

Totvs custom tabs box items

default	yes
referencia	passo1

Bloco de código

title	Inclusão
linenumbers	true
collapse	true

User Function zIncRomP(  )
	Local lRet := .F.
	Local oModel := Nil
    
	oModel	:= FWLoadModel('OGA250')    
	oModel:SetOperation(MODEL_OPERATION_INSERT) //INCLUSÃO
	oModel:Activate()
	//NJJUNICO
	//NJKUNICO
	//NK4UNICO
	//NJMUNICO
	//N9EUNICO
	//N9DUNICO### 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 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
        ConOutMsgInfo("Registro incluidoincluído com sucesso", "Inclusão")	
        lRet := .T.
	Else	
		VarInfo("",oModel:GetErrorMessage())
		MsgInfo("Erro ao incluir o registro", "Inclusão")
	EndIf  

return lRet

Bloco de código

title	Alteração
linenumbers	true
collapse	true

User Function zIncRomP()
	Local lRet := . Time Commit:"+Time())	
F.
    Local oModel := Nil
    
    dbSelectArea("NJJ")
    DbSetOrder(1)
    If DbSeek(xFilial("NJJ") + '0000000447')
        
		oModel	:= FWLoadModel('OGA250')
        oModel:SetOperation(MODEL_OPERATION_UPDATE) //Alteração
        oModel:Activate()
		
		//### Modelos de dados: NJJUNICO, NJKUNICO, NK4UNICO, NJMUNICO ###
		//Setando valores nos campos
        oModel:GetModel('NJJUNICO'):SetValue('NJJ_LOCAL', '02')
        oModel:GetModel('NJJUNICO'):SetValue('NJJ_PSSUBT', 1500)
        
        //modelo de dados da aba Classificação(Grid)     
        oModel:GetModel( "NJKUNICO" ):GoLine( 1 )   
        oModel:GetModel('NJKUNICO'):SetValue('NJK_PERDES', 1.1)  
        
        //modelo de dados da aba Comercialização(Grid)   
        oModel:GetModel( "NJMUNICO" ):GoLine( 1 )            
        oModel:GetModel('NJMUNICO'):SetValue('NJM_TES', '501')    

        If oModel:VldData()	
            oModel:CommitData()
            MsgInfo("Registro alterado com sucesso")
            lRet := .T.
	        Else	
		            VarInfo("",oModel:GetErrorMessage())
	EndIf  )
            MsgAlert("Erro ao alterar o registro")
        EndIf   
    Else
        MsgAlert("Registro não localizado!")
    EndIf

return lRet

03. TELA XXXXX

...

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão 3

Chave

03. TELA XXXXX