Automação de Orçamentos na Rotina ExecAuto do LOJA701 (Venda Assistida)

Precisa de ajuda sobre este assunto em seu ERP?

A rotina ExecAuto no contexto da Venda Assistida pelo sistema LOJA701 oferece um método eficiente para automatizar o processo de criação de orçamentos, facilitando etapas de pré-venda e preparação para futuras finalizações. Ao usar essa rotina, as empresas conseguem maior agilidade na geração de orçamentos que podem ser manipulados ou personalizados antes da confirmação da venda, sendo um recurso especialmente útil para processos de pré-venda e atendimento ao cliente.

Principais Características da Rotina ExecAuto

A ExecAuto foi projetada para ser flexível e permite incluir um orçamento no sistema de forma automatizada, com possibilidade de ajustes nos registros antes de uma finalização definitiva. Por meio dela, o usuário pode gerar orçamentos e definir seus dados essenciais, como o cliente, o valor total, o desconto, entre outros, tornando o processo mais eficiente e menos sujeito a erros manuais. Essa inclusão ocorre com um controle de execução, sendo especificado com o parâmetro 3, o que garante que a rotina seja utilizada exclusivamente para orçamentos e não para finalização de vendas.

Configuração e Manipulação dos Dados

A configuração da rotina ExecAuto no LOJA701 é flexível, possibilitando ajustes de acordo com as necessidades do negócio. Isso significa que, após a inclusão inicial do orçamento, registros gerados podem ser manipulados, inclusive para fins de personalização, através de um processo chamado explosão no GrvBatch. Este recurso permite ao sistema lidar com orçamentos complexos, que necessitem de cálculos adicionais ou de uma customização específica antes de serem convertidos em vendas definitivas.

Restrição de Homologação e Limitações de Integração

É importante observar que a rotina ExecAuto no LOJA701 não é homologada para a finalização direta de vendas, o que significa que o sistema não está validado para concluir o processo de venda através deste recurso. O segundo parâmetro no código deve ser configurado como 3, assegurando que a rotina funcione exclusivamente para inclusão de orçamentos e não para vendas efetivas.

Outra limitação da ExecAuto é que ela não possui homologação para integração com o SIGACRD (Sistema de Crédito). Isso implica que os processos de crédito ou de verificação de limite financeiro do cliente devem ser realizados de outra maneira, e que a integração automática entre essas duas rotinas não está garantida.

Exemplo de código:

USER Function FBLOJ01
   Local _aCab := {}          // Array do Cabeçalho do Orçamento
   Local _aItem := {}         // Array dos Itens do Orçamento
   Local _aParcela := {}      // Array das Parcelas do Orçamento
   Private lMsHelpAuto := .T. // Variável de controle interno do ExecAuto
   Private lMsErroAuto := .F. // Variável que informa a ocorrência de erros no ExecAuto
   Private INCLUI := .T.      // Identificação de inclusão para o ExecAuto
   Private ALTERA := .F.      // Identificação de alteração para o ExecAuto

   // Indica inclusão
   lMsHelpAuto := .T.
   lMsErroAuto := .F.

   // Monta cabeçalho do orçamento (_aCab)
   _aCab := {
      {"LQ_VEND", "VEN001", NIL},
      {"LQ_COMIS", 0, NIL},
      {"LQ_CLIENTE", "C00001", NIL},
      {"LQ_LOJA", "01", NIL},
      {"LQ_TIPOCLI", "F", NIL},
      {"LQ_VLRTOT", 216, NIL},
      {"LQ_DESCONT", 0, NIL},
      {"LQ_VLRLIQ", 216, NIL},
      {"LQ_NROPCLI", " ", NIL},
      {"LQ_DTLIM", dDatabase, NIL},
      {"LQ_DINHEIR", 216, NIL},
      {"LQ_EMISSAO", dDatabase, NIL},
      {"LQ_NUMCFIS", "003011 ", NIL},
      {"LQ_VLRDEBI", 0, NIL},
      {"LQ_HORA", "", NIL},
      {"LQ_NUMMOV", "1 ", NIL}
   }

   // Monta itens do orçamento (_aItem)
   aAdd(_aItem, {
      {"LR_PRODUTO", "1 ", NIL},
      {"LR_QUANT", 1, NIL},
      {"LR_UM", "CX", NIL},
      {"LR_DESC", 0, NIL},
      {"LR_VALDESC", 0, NIL},
      {"LR_DOC", "003011 ", NIL},
      {"LR_SERIE", "01 ", NIL},
      {"LR_PDV", "0001 ", NIL},
      {"LR_TABELA", "1", NIL},
      {"LR_DESCPRO", 0, NIL},
      {"LR_FILIAL", "01", NIL},
      {"LR_VEND", "000001", NIL}
   })

   aAdd(_aItem, {
      {"LR_PRODUTO", "2 ", NIL},
      {"LR_QUANT", 1, NIL},
      {"LR_UM", "CX", NIL},
      {"LR_DESC", 0, NIL},
      {"LR_VALDESC", 0, NIL},
      {"LR_DOC", "003011 ", NIL},
      {"LR_SERIE", "01 ", NIL},
      {"LR_PDV", "0001 ", NIL},
      {"LR_TABELA", "1", NIL},
      {"LR_DESCPRO", 0, NIL},
      {"LR_FILIAL", "01", NIL},
      {"LR_VEND", "000001", NIL}
   })

   // Monta o cabeçalho das parcelas do orçamento (_aParcela)
   aAdd(_aParcela, {
      {"L4_DATA", dDatabase, NIL},
      {"L4_VALOR", 216, NIL},
      {"L4_FORMA", "R$ ", NIL},
      {"L4_ADMINIS", " ", NIL},
      {"L4_FORMAID", " ", NIL},
      {"L4_MOEDA", 0, NIL}
   })

   // Executa o ExecAuto
   SetFunName("LOJA701")
   MSExecAuto({|a, b, c, d, e, f, g, h| Loja701(a, b, c, d, e, f, g, h)}, .F., 3, "", "", {}, _aCab, _aItem, _aParcela)

   // Verifica o resultado do ExecAuto
   If lMsErroAuto
      Alert("Erro no ExecAuto")
      DisarmTransaction() // Libera sequencial RollBackSx8()
   Else
      Alert("Sucesso na execução do ExecAuto")
   EndIf

Return

USER Function FBLOJ01

Local _aCab := {} // Array do Cabeçalho do Orçamento

Local _aItem := {} // Array dos Itens do Orçamento

Local _aParcela := {} // Array das Parcelas do Orçamento

Private lMsHelpAuto := .T. // Variável de controle interno do ExecAuto

Private lMsErroAuto := .F. // Variável que informa a ocorrência de erros no ExecAuto

Private INCLUI := .T. // Identificação de inclusão para o ExecAuto

Private ALTERA := .F. // Identificação de alteração para o ExecAuto

// Indica inclusão

lMsHelpAuto := .T.

lMsErroAuto := .F.

// Monta cabeçalho do orçamento (_aCab)

_aCab := {

{"LQ_VEND", "VEN001", NIL},

{"LQ_COMIS", 0, NIL},

{"LQ_CLIENTE", "C00001", NIL},

{"LQ_LOJA", "01", NIL},

{"LQ_TIPOCLI", "F", NIL},

{"LQ_VLRTOT", 216, NIL},

{"LQ_DESCONT", 0, NIL},

{"LQ_VLRLIQ", 216, NIL},

{"LQ_NROPCLI", " ", NIL},

{"LQ_DTLIM", dDatabase, NIL},

{"LQ_DINHEIR", 216, NIL},

{"LQ_EMISSAO", dDatabase, NIL},

{"LQ_NUMCFIS", "003011 ", NIL},

{"LQ_VLRDEBI", 0, NIL},

{"LQ_HORA", "", NIL},

{"LQ_NUMMOV", "1 ", NIL}

}

// Monta itens do orçamento (_aItem)

aAdd(_aItem, {

{"LR_PRODUTO", "1 ", NIL},

{"LR_QUANT", 1, NIL},

{"LR_UM", "CX", NIL},

{"LR_DESC", 0, NIL},

{"LR_VALDESC", 0, NIL},

{"LR_DOC", "003011 ", NIL},

{"LR_SERIE", "01 ", NIL},

{"LR_PDV", "0001 ", NIL},

{"LR_TABELA", "1", NIL},

{"LR_DESCPRO", 0, NIL},

{"LR_FILIAL", "01", NIL},

{"LR_VEND", "000001", NIL}

})

aAdd(_aItem, {

{"LR_PRODUTO", "2 ", NIL},

{"LR_QUANT", 1, NIL},

{"LR_UM", "CX", NIL},

{"LR_DESC", 0, NIL},

{"LR_VALDESC", 0, NIL},

{"LR_DOC", "003011 ", NIL},

{"LR_SERIE", "01 ", NIL},

{"LR_PDV", "0001 ", NIL},

{"LR_TABELA", "1", NIL},

{"LR_DESCPRO", 0, NIL},

{"LR_FILIAL", "01", NIL},

{"LR_VEND", "000001", NIL}

})

// Monta o cabeçalho das parcelas do orçamento (_aParcela)

aAdd(_aParcela, {

{"L4_DATA", dDatabase, NIL},

{"L4_VALOR", 216, NIL},

{"L4_FORMA", "R$ ", NIL},

{"L4_ADMINIS", " ", NIL},

{"L4_FORMAID", " ", NIL},

{"L4_MOEDA", 0, NIL}

})

// Executa o ExecAuto

SetFunName("LOJA701")

MSExecAuto({|a, b, c, d, e, f, g, h| Loja701(a, b, c, d, e, f, g, h)}, .F., 3, "", "", {}, _aCab, _aItem, _aParcela)

// Verifica o resultado do ExecAuto

If lMsErroAuto

Alert("Erro no ExecAuto")

DisarmTransaction() // Libera sequencial RollBackSx8()

Else

Alert("Sucesso na execução do ExecAuto")

EndIf

Return

Conclusão

A rotina ExecAuto do LOJA701 é uma ferramenta poderosa para automação e simplificação do processo de criação de orçamentos. Ela permite que as empresas otimizem suas etapas de pré-venda e mantenham a flexibilidade necessária para personalizar dados antes da confirmação da venda. Porém, deve-se observar suas limitações, como a falta de homologação para finalização de vendas e integração com o SIGACRD, o que exige ajustes manuais ou processos adicionais para integrar essas rotinas de forma completa.

Sobre
Últimos Posts

Siga na rede

Fernando Bueno

Consultor em FBSOLUTIONS

Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.

Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.

Siga-me no Linked In

Siga na rede

Últimos posts por Fernando Bueno (exibir todos)

Indicadores Logísticos para Gestão de Transportadoras - 4 de dezembro de 2024
O Papel Estratégico do Setor Logístico na Cadeia de Suprimentos - 20 de novembro de 2024
Logística Reversa: Estratégia Sustentável e Lucrativa para Empresas - 20 de novembro de 2024