Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagecpp
titleExemplo de Rotina Para Utilizar o ExecAuto do OMSA200
#include "tbiconn.ch"
#Include "protheus.ch"

User Function MyOMS200()
Local aCab      := {}   // Array do Cabeçalho da Carga
Local aItem     := {}   // Array dos Pedidos da Carga
Local _cEmpresa := "99" // Código da Empresa que deseja incluir a carga
Local _cFilial  := "01" // Código da Filial que deseja incluir a carga
Local cTransp   := ""
Local cPedido   := ""

PREPARE ENVIRONMENT EMPRESA _cEmpresa FILIAL _cFilial MODULO "OMS"

   Private lMsHelpAuto := .T. //Variavel de controle interno do ExecAuto
   Private lMsErroAuto := .F. //Variavel que informa a ocorrência de erros no ExecAuto

   aCab := {;    
      {"DAK_FILIAL", xFilial("DAK"),             Nil},;
      {"DAK_COD"   , GETSX8NUM("DAK","DAK_COD"), Nil},; //Campo com inicializador padrão para pegar GESX8NUM 
      {"DAK_SEQCAR", "01",                       Nil},;
      {"DAK_ROTEIR", "999999",                   Nil},;
      {"DAK_CAMINH", "",                         Nil},;
      {"DAK_MOTORI", "",                         Nil},;
      {"DAK_PESO"  , 0,                          Nil},; // Calculado pelo OMSA200
      {"DAK_DATA"  , DATE(),                     Nil},;
      {"DAK_HORA"  , TIME(),                     Nil},;
      {"DAK_JUNTOU", "Manual",                   Nil},;
      {"DAK_ACECAR", "2",                        Nil},;
      {"DAK_ACEVAS", "2",                        Nil},;
      {"DAK_ACEFIN", "2",                        Nil},;
      {"DAK_FLGUNI", "2",                        Nil},; //Campo com inicializador padrão  - 2
      {"DAK_TRANSP", cTransp,                    Nil};
   }
   // Posiciona no primeiro pedido de venda
   cPedido := "000038"
   SC5->(DbSetOrder(1))
   SC5->(DbSeek(xFilial("SC5")+cPedido))
   // Posiciona no cliente do primeiro pedido
   SA1->(DbSetOrder(1))
   SA1->(DbSeek(xFilial("SA1")+SC5->C5_CLIENTE))
   // Informações do primeiro pedido
   // Este array não tem o formato padrão de execuções automáticas
   Aadd(aItem, {;
      aCab[2,2],; // 01 - Código da carga
      "999999" ,; // 02 - Código da Rota - 999999 (Genérica)
      "999999" ,; // 03 - Código da Zona - 999999 (Genérica)
      "999999" ,; // 04-  Código do Setor - 999999 (Genérico)
      SC5->C5_NUM   ,; // 05 - Código do Pedido Venda
      SA1->A1_COD   ,; // 06 - Código do Cliente
      SA1->A1_LOJA  ,; // 07 - Loja do Cliente
      SA1->A1_NOME  ,; // 08 - Nome do Cliente
      SA1->A1_BAIRRO,; // 09 - Bairro do Cliente
      SA1->A1_MUN   ,; // 10 - Município do Cliente
      SA1->A1_EST   ,; // 11 - Estado do Cliente
      SC5->C5_FILIAL,; // 12 - Filial do Pedido Venda
      SA1->A1_FILIAL,; // 13 - Filial do Cliente
      0             ,; // 14 - Peso Total dos Itens
      0             ,; // 15 - Volume Total dos Itens
      "08:00"       ,; // 16 - Hora Chegada
      "0001:00"     ,; // 17 - Time Service
      Nil           ,; // 18 - Não Usado
      dDatabase     ,; // 19 - Data Chegada
      dDatabase     ,; // 20 - Data Saída
      Nil           ,; // 21 - Não Usado
      Nil           ,; // 22 - Não Usado
      0             ,; // 23 - Valor do Frete
      0             ,; // 24- Frete Autonomo
      0             ,; // 25 - Valor Total dos Itens (Calculado pelo OMSA200)
      0             ,; // 26 - Quantidade Total dos Itens (Calculado pelo OMSA200)
	  Nil           ,; // 27 - Não usado
	  "000004"      }) // 2628 - QuantidadeTransportadora Total dosredespachante Itens

   // Posiciona no segundo pedido de venda
   cPedido := "000039"
   SC5->(DbSetOrder(1))
   SC5->(DbSeek(xFilial("SC5")+cPedido))
   // Posiciona no cliente do segundo pedido
   SA1->(DbSetOrder(1))
   SA1->(DbSeek(xFilial("SA1")+SC5->C5_CLIENTE))
   // Informações do segundo pedido
   // Este array não tem o formato padrão de execuções automáticas
   Aadd(aItem, {;
      aCab[2,2],; // 01 - Código da carga
      "999999" ,; // 02 - Código da Rota - 999999 (Genérica)
      "999999" ,; // 03 - Código da Zona - 999999 (Genérica)
      "999999" ,; // 04-  Código do Setor - 999999 (Genérico)
      SC5->C5_NUM   ,; // 05 - Código do Pedido Venda
      SA1->A1_COD   ,; // 06 - Código do Cliente
      SA1->A1_LOJA  ,; // 07 - Loja do Cliente
      SA1->A1_NOME  ,; // 08 - Nome do Cliente
      SA1->A1_BAIRRO,; // 09 - Bairro do Cliente
      SA1->A1_MUN   ,; // 10 - Município do Cliente
      SA1->A1_EST   ,; // 11 - Estado do Cliente
      SC5->C5_FILIAL,; // 12 - Filial do Pedido Venda
      SA1->A1_FILIAL,; // 13 - Filial do Cliente
      0             ,; // 14 - Peso Total dos Itens (Calculado pelo OMSA200)
      0             ,; // 15 - Volume Total dos Itens (Calculado pelo OMSA200)
      "08:00"       ,; // 16 - Hora Chegada
      "0001:00"     ,; // 17 - Time Service
      Nil           ,; // 18 - Não Usado
      dDatabase     ,; // 19 - Data Chegada
      dDatabase     ,; // 20 - Data Saída
      Nil           ,; // 21 - Não Usado
      Nil           ,; // 22 - Não Usado
      0             ,; // 23 - Valor do Frete
      0             ,; // 24 - Frete Autonomo // 24 - Frete Autonomo
      0             ,; // 25 - Valor Total dos Itens (Calculado pelo OMSA200)
      0             ,; // 2526 - ValorQuantidade Total dos Itens (Calculado pelo OMSA200)
	  Nil    0       ,; // 27 - Não usado
	  "000004"      }) // 2628 - Quantidade Total dos Itens (Calculado pelo OMSA200)Transportadora redespachante 

   SetFunName("OMSA200")

   MSExecAuto( { |x, y, z| OMSA200(x, y, z) }, aCab, aItem, 3 )

   If lMsErroAuto
      Alert("Erro no ExecAuto do OMSA200")
      cMsgErro := MostraErro()
      DisarmTransaction()
      Alert(cMsgErro) 
   Else
      Alert("Sucesso na execução do ExecAuto OMSA200")
   EndIf

RESET ENVIRONMENT

Return

...