Exemplo: Totvs custom tabs box items |
---|
| Bloco de código |
---|
language | actionscript3 |
---|
linenumbers | true |
---|
| User Function MyTmk070() |
|
Local aContato := {}
Local aEndereco := {}
Local aTelefone := {}
Local aAuxDados := {} |
|
Private lMsErroAuto
Local aArea := {}
Local nOpc := 3
Private lMsErroAuto := .F.
RPCSetEnv("T1", "D MG 01", NIL, NIL, "TMK", NIL, {"SUS", "AGB"})
aArea := GetArea()
AAdd(aContato,{"U5_FILIAL", xFilial("SU5"),Nil}) |
|
AAdd(aContato,{"U5_CODCONT","000020", Nil}) |
|
AAdd(aContato,{"U5_CONTAT","Nome do contato inclusão", Nil}) |
|
AAdd(aContato,{"U5_EMAIL","[email protected]", Nil})
AAdd(aAuxDados,{"AGB_TIPO", "1", Nil})
AAdd(aAuxDados,{"AGB_PADRAO", "1", Nil})
AAdd(aAuxDados,{"AGB_DDI", "55", Nil})
AAdd(aAuxDados,{"AGB_DDD", "11", Nil})
AAdd(aAuxDados,{"AGB_TELEFO", "12349874", Nil})
AAdd(aTelefone, aAuxDados)
aAuxDados := {}
AAdd(aAuxDados,{"AGA_TIPO", "1", Nil})
AAdd(aAuxDados,{"AGA_PADRAO", "1", Nil})
AAdd(aAuxDados,{"AGA_END", "R. Totvs", Nil})
AAdd(aAuxDados,{"AGA_CEP", "12345123", Nil})
AAdd(aAuxDados,{"AGA_BAIRRO", "Bairro Totvs", Nil})
AAdd(aAuxDados,{"AGA_MUNDES", "Cidade Totvs", Nil})
AAdd(aAuxDados,{"AGA_EST", "SP", Nil} |
| )
)
AAdd(aEndereco, aAuxDados)
MSExecAuto({|x,y,z,a,b|TMKA070(x,y,z,a,b)},aContato |
| ,3) If lMsErroAuto
,nOpc,aEndereco,aTelefone, .F.)
If lMsErroAuto
MsgStop("Erro na |
| gravação MostraErro() Else Incluidocontato EndIf Return Parâmetros: | Nome | | | Tipo | | | Descrição | | | Default | | | Obrigatório | | | Referência | | | aRotAuto | | | Array of Record | | | Array contendo os campos a serem preenchidos. | | | | | | | | | | |
EndIf
RestArea(aArea)
RPCClearEnv()
Return |
|
Totvs custom tabs box items |
---|
| Bloco de código |
---|
language | actionscript3 |
---|
linenumbers | true |
---|
| User Function MyTmk070()
Local aContato := {}
Local aEndereco := {}
Local aTelefone := {}
Local aAuxDados := {}
Local aArea := {}
Local nOpc := 4
Private lMsErroAuto := .F.
RPCSetEnv("T1", "D MG 01", NIL, NIL, "TMK", NIL, {"SUS", "AGB"})
DbSelectArea("SUS")
DbSetOrder(1)
DbSeek(xFilial("SUS")+"000020"+"")
aArea := GetArea()
AAdd(aContato,{"U5_FILIAL", xFilial("SU5"),Nil})
AAdd(aContato,{"U5_CODCONT","000020", Nil})
AAdd(aContato,{"U5_CONTAT","Nome do contato alteração", Nil})
AAdd(aContato,{"U5_EMAIL","[email protected]", Nil})
AAdd(aAuxDados,{"AGB_TIPO", "1", Nil})
AAdd(aAuxDados,{"AGB_PADRAO", "1", Nil})
AAdd(aAuxDados,{"AGB_DDI", "55", Nil})
AAdd(aAuxDados,{"AGB_DDD", "11", Nil})
AAdd(aAuxDados,{"AGB_TELEFO", "12349874", Nil})
AAdd(aTelefone, aAuxDados)
aAuxDados := {}
AAdd(aAuxDados,{"AGA_TIPO", "1", Nil})
AAdd(aAuxDados,{"AGA_PADRAO", "1", Nil})
AAdd(aAuxDados,{"AGA_END", "R. Totvs", Nil})
AAdd(aAuxDados,{"AGA_CEP", "12345123", Nil})
AAdd(aAuxDados,{"AGA_BAIRRO", "Bairro Totvs", Nil})
AAdd(aAuxDados,{"AGA_MUNDES", "Cidade Totvs", Nil})
AAdd(aAuxDados,{"AGA_EST", "SP", Nil})
AAdd(aEndereco, aAuxDados)
MSExecAuto({|x,y,z,a,b|TMKA070(x,y,z,a,b)},aContato,nOpc,aEndereco,aTelefone, .F.)
If lMsErroAuto
MsgStop("Erro na alteração do contato")
Else
MsgAlert('Contato alterado com sucesso.')
EndIf
RestArea(aArea)
RPCClearEnv()
Return |
|
Totvs custom tabs box items |
---|
| Bloco de código |
---|
language | actionscript3 |
---|
linenumbers | true |
---|
| User Function MyTmk070()
Local aContato := {}
Local aEndereco := {}
Local aTelefone := {}
Local aAuxDados := {}
Local aArea := {}
Local nOpc := 5
Private lMsErroAuto := .F.
RPCSetEnv("T1", "D MG 01", NIL, NIL, "TMK", NIL, {"SUS", "AGB"})
DbSelectArea("SUS")
DbSetOrder(1)
DbSeek(xFilial("SUS")+"000020"+"")
aArea := GetArea()
AAdd(aContato,{"U5_FILIAL", xFilial("SU5"),Nil})
AAdd(aContato,{"U5_CODCONT","000020", Nil})
AAdd(aContato,{"U5_CONTAT","Nome do contato exclusão", Nil})
AAdd(aContato,{"U5_EMAIL","[email protected]", Nil})
AAdd(aAuxDados,{"AGB_TIPO", "1", Nil})
AAdd(aAuxDados,{"AGB_PADRAO", "1", Nil})
AAdd(aAuxDados,{"AGB_DDI", "55", Nil})
AAdd(aAuxDados,{"AGB_DDD", "11", Nil})
AAdd(aAuxDados,{"AGB_TELEFO", "12349874", Nil})
AAdd(aTelefone, aAuxDados)
aAuxDados := {}
AAdd(aAuxDados,{"AGA_TIPO", "1", Nil})
AAdd(aAuxDados,{"AGA_PADRAO", "1", Nil})
AAdd(aAuxDados,{"AGA_END", "R. Totvs", Nil})
AAdd(aAuxDados,{"AGA_CEP", "12345123", Nil})
AAdd(aAuxDados,{"AGA_BAIRRO", "Bairro Totvs", Nil})
AAdd(aAuxDados,{"AGA_MUNDES", "Cidade Totvs", Nil})
AAdd(aAuxDados,{"AGA_EST", "SP", Nil})
AAdd(aEndereco, aAuxDados)
MSExecAuto({|x,y,z,a,b|TMKA070(x,y,z,a,b)},aContato,nOpc,aEndereco,aTelefone, .F.)
If lMsErroAuto
MsgStop("Erro na exclusão do contato")
Else
MsgAlert('Contato excluído com sucesso.')
EndIf
RestArea(aArea)
RPCClearEnv()
Return |
| |