PE JA070SOEX Processa a alteração do Sócio e do Executor no cadastro de Processos na tela de pesquisa

01. DADOS GERAIS

02. DESCRIÇÃO

03. DEMAIS INFORMAÇÕES

User Function JA070SOEX(oModel)    
Local aAreaGer  := GetArea()
Local aAreaNsz  := NSZ->(GetArea())
Local aAreaRd0  := RD0->(GetArea())
Local oXModel   := ParamIxb[1]
Local cXNumCas  := oXModel:GetValue("NVEMASTER","NVE_NUMCAS")
Local cXCodSoc  := oXModel:GetValue("NVEMASTER","NVE_CPART1")
Local cXCodExe  := oXModel:GetValue("NVEMASTER","NVE_CPART2")
Local cXSigSoc  := Posicione("RD0", 1, xFilial("RD0") + cXCodSoc, "RD0_SIGLA")
Local cXSigExe  := Posicione("RD0", 1, xFilial("RD0") + cXCodExe, "RD0_SIGLA")
Local cNszNPro  := ""
Local cZb3Sequ  := StrZero(1,TamSX3("ZB3_SEQUEN")[1])  
                                                                             
DbSelectArea("NSZ")
DbSetOrder(4)
If NSZ->(DbSeek(xFilial("NSZ") + cXNumCas))
    cNszNPro        := NSZ->NSZ_COD
    RecLock("NSZ",.F.)
    NSZ->NSZ_SIGSOC := cXSigSoc
    NSZ->NSZ_SIGEXE := cXSigExe
    NSZ->( dbCommit() )
    NSZ->( MsUnlock() )
   
EndIf

//Grava Codigo do Socio e do Executor na tabela ZB3
DbSelectArea("ZB3")
DbSetOrder(1)
If DbSeek(xFilial("ZB3") + cNszNPro + cZb3Sequ)  
    RecLock("ZB3", .F.)  
Else
    RecLock("ZB3", .T.)
    ZB3->ZB3_FILIAL := xFilial("ZB3")      
    ZB3->ZB3_CODPRO := cNszNPro
    ZB3->ZB3_SEQUEN := cZb3Sequ
EndIf                            
ZB3->ZB3_CODSOC     := cXCodSoc
ZB3->ZB3_CODEXE     := cXCodExe
ZB3->( dbCommit() )
ZB3->( MsUnLock() )
                           
RestArea(aAreaGer)
RestArea(aAreaRd0)
RestArea(aAreaNsz)
                           
Return Nil

04. ASSUNTOS RELACIONADOS

• Casos - JURA070