|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
Alteração via MsMGet |
|
Versão: |
12.1.25 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
Mensagem do
LUCASLOTT
em 19/01/2021, 08:42 h
Local: SP Registro: 21/05/2020 Postagens: 49 |
Bom dia à todos.
Estou desenvolvendo uma rotina onde vou precisar alterar 3 campos no contas a pagar e no contas a receber mesmo que título já tenha sido baixado pois vai precisar desses casos novos atualizados para DRE que está sendo implantado no empresa.
Estou adicionando o botão no P.E FA750BRW da seguinte forma:
aAdd(aRotina, {"Ajuste Competencia", "U_750ALTE", 0, 4, 0, NIL})
Quando eu chamo a rotina ela abre em modo de visualização (mesmo em títulos em aberto) não deixando eu alterar nada, comparei um fonte que temos aqui que está fazendo algo parecido, e está igual.
User Function 750ALTE()
Local cAlias := "SE2"
Local nOpcA := 0
Local aSize := {}, aObjects := {}, aInfo := {}, aPObjs := {}
Local nFor := 0
Local cCampo := ""
Local aCpoMostra := {"E2_PREFIXO", "E2_TIPO" , "E2_NUM" , "E2_PARCELA", "E2_FORNECE", "E2_LOJA", "E2_NOME" , "E2_NOMFOR", "E2_VALOR", "E2_VALLIQ", "E2_SALDO" ,;
"E2_EMISSAO", "E2_VENCTO" , "E2_HIST" , "E2_SITUACA", "E2_NATUREZ", "E2_XNAT", "E2_VENCREA", "E2_VLCRUZ", "E2_MOEDA", "E2_XOBS" , "E2_ORIGEM",;
"E2_TXMOEDA", "E2_CODAPRO", "E2_XTPBX", "E2_XCMES" , "E2_XCANO" , "E2_XCOMP"}
Local aCpoEdit := {"E2_XCMES" , "E2_XCANO" , "E2_XCOMP"}
Private aTela := {}, aGets := {}
Private oEnch1
// Private aCpoDadPed := {}
If !FwIsAdmin()
MsgAlert("Rotina restrita a administradores!")
Return
EndIf
aSize := MsAdvSize(.T.)
aObjects := {}
aAdd(aObjects, {100, 015, .T., .T.})
aAdd(aObjects, {100, 085, .T., .T.})
aInfo := {aSize[01], aSize[02], aSize[03], aSize[04], 0, 0}
aPObjs := MsObjSize(aInfo, aObjects, .T.)
RegToMemory(cAlias, .F., .F.)
For nFor := 1 To Len(aCpoMostra)
cCampo := aCpoMostra[nFor]
If (cAlias)->(FieldPos(cCampo)) > 0
M->&(cCampo) := &(cAlias + "->" + cCampo)
EndIf
Next nFor
aAdd(aCpoMostra, "NOUSER")
DEFINE MSDIALOG oDlg TITLE "Info.Adicionais CP: " + M->E2_NUM + "/" + M->E2_PARCELA From aSize[7], 0 To aSize[6], aSize[5] Of oMainWnd Pixel
oEnch1 := MsMGet():New(cAlias, &(cAlias)->(Recno()), 4, , , ,aCpoMostra ,aPObjs[1], aCpoEdit, , , , ,oDlg)
oEnch1:oBox:Align := CONTROL_ALIGN_ALLCLIENT
ACTIVATE MSDIALOG oDlg CENTER ON INIT EnchoiceBar(oDlg, {||nOpcA := 1, IIF(Obrigatorio(aGets, aTela), oDlg:End(), nOpcA == 0)}, {||nOpcA := 0, oDlg:End()})
Return
Lucas Lott
Desenvolvedor ADVPL
lucas@domaagropecuaria.com |
|
|
Mensagem do
LUCASLOTT
em 19/01/2021, 10:46 h
Local: SP Registro: 21/05/2020 Postagens: 49 |
Alterei o MsMGet no terceiro parametro para 3 ele liberou a alteração, porém 3 seria inclusão. E quando passo 4 não da certo fica apenas visual.
Lucas Lott
Desenvolvendor
lucas@domaagropecuaria.com |
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|