Bem Vindo, Visitante	Todos os Fórums   ADVPL		Imprimir  Enviar Para um Amigo Precisa estar Logado
Assunto: O que é o A030Inclui() Versão: 12.1.33 Plataforma: Microsoft Complemento: DB: SQL Server Complemento: A030Inclui().jpg (anexo)
Tweet

Mensagem do HEITOROF em 12/07/2024, 17:26 h Local: MG  Registro: 03/09/2009  Postagens: 20 Boa tarde, Tenho um fonte customizado que não está funcionando da forma como deveria, e estou tentando corrigir. No fonte tenho uma linha com o seguinte termo: A030Inclui() Não encontrei nenhuma referência sobre o termo. Seria uma função ou ponto de entrada? Se alguém puder me ajudar, agradeço desde já. Atte,

Mensagem do HEITOROF em 12/07/2024, 17:27 h Local: MG  Registro: 03/09/2009  Postagens: 20 Segue um print do código. Grato.

Mensagem do ROBERTOMEN em 12/07/2024, 20:27 h Local: PR  Registro: 04/07/2017  Postagens: 544 A030inclui() Função para inclusão de clientes.

Mensagem do HEITOROF em 13/07/2024, 11:59 h Local: MG  Registro: 03/09/2009  Postagens: 20 Bom dia Roberto, Obrigado pela informação. Não encontrei nada sobre essa função. Indica algum local que tenha informações sobre? Agradeço. Atte,

Mensagem do ILIDIO em 13/07/2024, 12:35 h Local: SP  Registro: 13/11/2009  Postagens: 9 Ilidio Abreu Consultor TOTVS Protheus Essa rotina pertence ao mata030 que foi descontinuada. Experimenta usar a função mta030Inclui().

Mensagem do ILIDIO em 13/07/2024, 12:59 h Local: SP  Registro: 13/11/2009  Postagens: 9 Ilidio Abreu Consultor TOTVS Protheus Dá uma olhada nesse link. Talvez ajude. https://centraldeatendimento.totvs.com/hc/pt-br/articles/360000146128-Cross-Segmento-TOTVS-Backoffice-Linha-Protheus-ADVPL-Ponto-de-entrada-MVC-CRMA980

Mensagem do ROBERTOMEN em 14/07/2024, 10:39 h Local: PR  Registro: 04/07/2017  Postagens: 544 Bom dia. Para substituir a a030inclui vc poderá criar sua própria função via execauto assim: Static Funcion fIncluiCli() Local aSA1Auto := {} Local aAI0Auto := {} Local nOpcAuto := 3 //MODEL_OPERATION_INSERT (3-Inclusão, 4-Alteração, 5-Exclusão) Local lRet := .T.     Private lMsErroAuto := .F.         //----------------------------------     // DADOS DO CLIENTE     //----------------------------------     aAdd(aSA1Auto,{"A1_COD"    ,"XBX141"            ,Nil}) // Codigo     aAdd(aSA1Auto,{"A1_LOJA"   ,"01"               ,Nil}) // Loja     aAdd(aSA1Auto,{"A1_NOME"   ,"ROTINA AUTOMATICA",Nil}) // Nome     aAdd(aSA1Auto,{"A1_END"    ,"BRAZ LEME"        ,Nil}) // Endereco     aAdd(aSA1Auto,{"A1_NREDUZ","ROTAUTO"           ,Nil}) // Nome Fantasia     aAdd(aSA1Auto,{"A1_TIPO"   ,"F"                 ,Nil}) // Tipo     aAdd(aSA1Auto,{"A1_EST"    ,"SP"               ,Nil}) // Estado     aAdd(aSA1Auto,{"A1_MUN"    ,"SAO PAULO"        ,Nil}) // Municipio     //---------------------------------------     // DADOS DO COMPLEMENTO DO CLIENTE     //---------------------------------------     //aAdd(aAI0Auto,{"AI0_SALDO" ,30 ,Nil})     MSExecAuto({|a,b,c| CRMA980(a,b,c)},aSA1Auto,nOpcAuto,aAI0Auto)            If lMsErroAuto        lRet := lMsErroAuto         MostraErro() // Nao funciona na execucao via JOB     EndIf             return lRet

Mensagem do ROBERTOMEN em 14/07/2024, 12:53 h Local: PR  Registro: 04/07/2017  Postagens: 544 * Function

Para postar no Fórum você precisa efetuar o seu login ou se registrar