Histórico da Página

...

Totvs custom tabs box

tabs	Inclusão Com Pesagem, Inclusão Sem Pesagem, Alteração, Exclusão, Atualização, Confirmação
ids	passo1,passo2,passo3,passo4,passo5,passo6

Totvs custom tabs box items

default	yes
referencia	passo1

Bloco de código

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

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

nopasso2

Totvs custom tabs box items

default	no
referencia	passo2

Bloco de código

title	Alteração Romaneio com PesagemExemplo de código - Inclusão Romaneio sem Pesagem(simbólico)
linenumbers	true

User Function zAltRomPzIncRomS()
	Local lRet := .F.
    Local oModel := Nil
    
    dbSelectAreaSetFunName("NJJOGA251")
    DbSetOrder(1)
    If DbSeek(xFilial("NJJ") + '0000000447')
        
		 //para definir que deve ser considerado a chamada pelo OGA251(Romaneio sem pesagem)
	//chamada da função acima necessário para algumas validações, importante seu uso somente nos romaneio com o campo NJJ_TIPENT='2' 

    oModel	:= FWLoadModel('OGA250')
        oModel:SetOperation(MODEL_OPERATION_UPDATEINSERT) //Alteração
    oModel:Activate()
    
    oModel:Activate()
		
		//### Modelos de dados: NJJUNICO, NJKUNICO, NK4UNICO, NJMUNICO ###
		//Setando valores nos campos
    :GetModel('NJJUNICO'):SetValue('NJJ_TIPENT', '2') //SEM 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_LOCALTPFORM', '021')
        oModel:GetModel('NJJUNICO'):SetValue('NJJ_LOCAL', '01')
	oModel:GetModel('NJJUNICO'):SetValue('NJJ_PSSUBTTABELA', 1500'000001')
        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.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_TESITEROM', '50101')    

        If oModel:VldData()	
//valida os   dados
        oModel:CommitData()
 //realiza a gravação do registro
        MsgInfo("Registro alteradoincluído com sucesso")	
            lRet := .T.
        	Else	
            		VarInfo("",oModel:GetErrorMessage())
            		MsgAlert("Erro ao alterarincluir o registro")
        EndIf 	EndIf  
    Else
        MsgAlert("Registro não localizado!")
    EndIf

return lRet

Totvs custom tabs box items

default

referencia
yes

Exemplo de código - Inclusão Romaneio sem Pesagem(simbólico)

passo3

Bloco de código

title

linenumbers	true

User Function

zIncRomS

zAltRomP()
	Local lRet := .F.
    Local oModel := Nil

SetFunName

dbSelectArea("

OGA251

NJJ")

//para

definir

que deve ser considerado a chamada pelo OGA251(Romaneio sem pesagem) //chamada da função acima necessário para algumas validações, importante seu uso somente nos romaneio

 DbSetOrder(1)
    If DbSeek(xFilial("NJJ") + '0000000447')
        
		SetFunName("OGA251") //importante definir para o romaneio sem pesagem com o campo NJJ_TIPENT='2'

		oModel	:= FWLoadModel('OGA250')
        oModel:SetOperation(MODEL_OPERATION_

INSERT

UPDATE) //Alteração

oModel:Activate()

oModel:

GetModel

Activate(

'NJJUNICO'):SetValue('NJJ_TIPENT', '2') //SEM 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')

)
		
		//### Modelos de dados: NJJUNICO, NJKUNICO, NK4UNICO, NJMUNICO ###
		//Setando valores nos campos
        oModel:GetModel('NJJUNICO'):SetValue('NJJ_LOCAL', '

01

02')

oModel:GetModel('NJJUNICO'):SetValue('NJJ_TABELA', '000001')

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

TES', '

01

501')    

        If oModel:VldData()

//valida os dados


            oModel:CommitData()

//realiza

a

gravação

do

registro

        MsgInfo("Registro

incluído

alterado com sucesso")


            lRet := .T.

        Else

            VarInfo("",oModel:GetErrorMessage())

            MsgAlert("Erro ao

incluir

alterar o registro")

EndIf

        EndIf   
    Else
        MsgAlert("Registro não localizado!")
    EndIf

return lRet

03. TELA XXXXX

Outras Ações / Ações relacionadas

...

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão 7

Chave

03. TELA XXXXX