01. VISÃO GERAL
...
No cadastro de fornecedores (MATA020), há o recurso em tela para relacionar as Chaves PIX (FINA885), que armazenará esse vinculo através da tabela F72.
Porém, quando esse vinculo tiver que ser feito de forma automática (sem interface), o mesmo deve ser feito através de comandos MVC (FwLoadModel) para a rotina FINA885.
02. EXEMPLOS
Expandir |
---|
title | Incluindo chave PIX em um fornecedor existente |
---|
|
Bloco de código |
---|
language | vb |
---|
theme | Midnight |
---|
firstline | 1 |
---|
linenumbers | true |
---|
| #INCLUDE "TBICONN.CH"
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDef.CH"
//-----------------------------------------------------------------
//Função de usuário para inclusão de chave PIX para fornecedor via execauto (MVC)
//-----------------------------------------------------------------
User Function F885AMVC()
Local oModel := Nil
Local cFornec := '000050'
Local cForLoja := '01'
PREPARE ENVIRONMENT EMPRESA "01" FILIAL "0101" MODULO "FIN" TABLES "SA2", "F72"
DbSelectArea("SA2")
SA2->(DbSetOrder(1))
If SA2->(DBSeek(xFilial("SA2") + cFornec + cForLoja))
oModel := FwLoadModel ("FINA885")
oModel:SetOperation(MODEL_OPERATION_INSERT)
oModel:Activate()
oModel:SetValue("FORMCAB","F72_FILIAL", xFilial("SA2"))
oModel:SetValue("FORMCAB","F72_COD" , cFornec)
oModel:SetValue("FORMCAB","F72_LOJA" , cForLoja)
oModel:SetValue("FORMCAB","F72_NOME" , SA2->A2_NOME)
oModel:SetValue("FORDETAIL", "F72_TPCHV" , "02")
oModel:SetValue("FORDETAIL", "F72_CHVPIX", "[email protected]")
oModel:SetValue("FORDETAIL", "F72_ACTIVE", "1")
If oModel:VldData()
oModel:CommitData()
MsgInfo("Registro INCLUÍDO!", "Atenção")
Else
VarInfo("",oModel:GetErrorMessage())
EndIf
oModel:DeActivate()
oModel:Destroy()
oModel := NIL
EndiF
RESET ENVIRONMENT
Return Nil
|
|
Expandir |
---|
title | Incluindo um novo fornecedor c/ chave PIX |
---|
|
Bloco de código |
---|
language | vb |
---|
theme | Midnight |
---|
firstline | 1 |
---|
linenumbers | true |
---|
| #INCLUDE "TBICONN.CH"
#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDef.CH"
|
|
...
As transferências ocorrem diretamente da conta do usuário pagador para a conta do usuário recebedor, sem a necessidade de intermediários, o que propicia custos de transação menores.
O PIX poderá ser transacionado de forma on-line e alguns bancos também estão disponibilizando a forma de comunicação do PIX através do modelo CNAB. O processo está preparado para trabalhar com o modelo de QR CODE Dinâmico.
...
02. EXEMPLO EXECAUTO
Expandir |
---|
title | Exemplo de Execauto (MATA020) |
---|
|
#INCLUDE "TBICONN.CH" #INCLUDE "PROTHEUS.CH" #INCLUDE "FWMVCDef.CH" //----------------------------------------------------------------- |
//Função de usuário para inclusão de fornecedor via execauto (MVC) |
//----------------------------------------------------------------- |
FORPIX
PREPARE ENVIRONMENT EMPRESA " | T1D MG 010101" MODULO "FIN" TABLES "SA2", "F72" |
oModel := FwLoadModel ("MATA020") |
oModel:SetOperation(MODEL_OPERATION_INSERT) |
oModel:SetValue("SA2MASTER","A2_COD" , cFornec) |
oModel:SetValue("SA2MASTER","A2_LOJA" , cForLoja) |
oModel:SetValue("SA2MASTER","A2_NOME" , "FORN TESTE PIX") |
oModel:SetValue("SA2MASTER","A2_NREDUZ", "F TESTE PIX") |
oModel:SetValue("SA2MASTER","A2_END" , "RUA FORN PIX ") |
oModel:SetValue("SA2MASTER","A2_EST" , "SP") |
oModel:SetValue("SA2MASTER","A2_MUN" , "SAO PAULO") |
oModel:SetValue("SA2MASTER","A2_TIPO" , "F") |
INCLUIDO
VarInfo("",oModel:GetErrorMessage()) |
U_F885MVC(cFornec,cForLoja) |
//----------------------------------------------------------------- |
//Função de usuário para inclusão de chave PIX para fornecedor via execauto (MVC) |
//----------------------------------------------------------------- |
User Function F885MVC(cFornec As Character, cForLoja As Character) |
If SA2->(DBSeek(xFilial("SA2") + cFornec + cForLoja)) |
oModel := FwLoadModel ("FINA885") |
oModel:SetOperation(MODEL_OPERATION_INSERT) |
oModel:SetValue("FORMCAB","F72_FILIAL" |
oModel:SetValue("FORMCAB","F72_COD" |
oModel:SetValue("FORMCAB","F72_LOJA" |
oModel:SetValue("FORMCAB","F72_NOME" |
oModel:SetValue("FORDETAIL", "F72_TPCHV" , "02") |
oModel:SetValue("FORDETAIL", "F72_CHVPIX", "email_ | fornec@emailpix
oModel:SetValue("FORDETAIL", "F72_ACTIVE", "1") |
INCLUIDO
VarInfo("",oModel:GetErrorMessage()) |
|
HTML |
---|
<!-- esconder o menu -->
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
</style>
|