Integração entre Gestão Empresarial | ERP e Tracking de Pedidos

@ Variáveis passadas para a regra @
Definir Numero VSCodEmp;
Definir Numero VSCodFil;
Definir Numero VSNumero;

Definir Alfa VSPedCli;
Definir Alfa VSPedBlo;
Definir Alfa VSEstado;
Definir Alfa VSTelaOrigem;

@ Variáveis auxiliares da regra @
Definir Numero NCodigoFase;
Definir Numero NCodigoPlano;

Definir Alfa AStatus;
Definir Alfa AMensagemErro;
Definir Alfa ATipoDocumento;
Definir Alfa ASerieDocumento;
Definir Alfa ANumeroDocumento;
Definir Alfa AEncerrarTracking;
Definir Alfa AMensagemNotificacao;

inicio
  se ((VSTelaOrigem = "F120GPD")) {
    NCodigoPlano = 4;  
    ATipoDocumento = "Pedido";
    IntParaAlfa(VSNumero, ANumeroDocumento);  

    se (VSEstado = "INSERINDO") {      
      Tracking_RegistrarDocumento(VSCodEmp, VSCodFil, ATipoDocumento, ANumeroDocumento, ASerieDocumento, VSPedCli, NCodigoPlano, AStatus, AMensagemErro);
      
      se (AStatus = "OK") {
        NCodigoFase = 1;
        AEncerrarTracking = "N";
  
        Tracking_RegistrarFase(VSCodEmp, VSCodFil, ANumeroDocumento, NCodigoFase, AMensagemNotificacao, AEncerrarTracking, AStatus, AMensagemErro);
      }
    }            
  }
fim

// Some comments here
@ Variáveis passadas para a regra @
Definir Numero VenNEmpresa;
Definir Numero VenNFilialNovo;
Definir Numero VenNPedidoNovo;

@ Variáveis auxiliares da regra @
Definir Alfa ATipoDocumento;
Definir Alfa ANumeroDocumento;
Definir Numero NCodigoPlano;  
Definir Alfa ASerieDocumento;
Definir Numero NCodigoFase;
Definir Alfa AEncerrarTracking;
Definir Alfa AMensagemNotificacao;

Definir Alfa AStatus;
Definir Alfa AMensagemErro;

inicio
  NCodigoPlano = 4;
  ATipoDocumento = "Pedido";
  IntParaAlfa(VenNPedidoNovo, ANumeroDocumento);
  
  Tracking_RegistrarDocumento(VenNEmpresa, VenNFilialNovo, ATipoDocumento, ANumeroDocumento, ASerieDocumento, "", NCodigoPlano, AStatus, AMensagemErro);
  se (AStatus = "OK") {
    NCodigoFase = 1;
    AEncerrarTracking = "N";
  
    Tracking_RegistrarFase(VenNEmpresa, VenNFilialNovo, ANumeroDocumento, NCodigoFase, AMensagemNotificacao, AEncerrarTracking, AStatus, AMensagemErro);
  }
fim

@ Variáveis passados para regra @
Definir Numero VenNCodEmp;
Definir Numero VenNCodFil;
Definir Numero VenNCodCli;
Definir Numero VenNNumPed;
Definir Numero VenNCodRep;
Definir Alfa VenAPedAca;

@ Variáveis auxiliares da regra @
Definir Alfa ANumeroDocumento;
Definir Numero NCodigoFase;
Definir Alfa AEncerrarTracking;
Definir Alfa AMensagemNotificacao;

Definir Alfa AStatus;
Definir Alfa AMensagemErro;

inicio
  se (VenAPedAca = "L") {
    NCodigoFase = 2;
    AEncerrarTracking = "N";
    IntParaAlfa(VenNNumPed, ANumeroDocumento);
  
    Tracking_RegistrarFase(VenNCodEmp, VenNCodFil, ANumeroDocumento, NCodigoFase, AMensagemNotificacao, AEncerrarTracking, AStatus, AMensagemErro);
  }                       
fim

@ Variáveis passados para regra @
Definir Alfa VSCancelado;

@ Variáveis auxiliares da regra @
Definir Alfa AStatus;
Definir Alfa AMensagemErro;
Definir Alfa ANumeroDocumento;

inicio  
  se (VSCancelado = "SIM") {  
    IntParaAlfa(E120PED.NumPed, ANumeroDocumento);
    Tracking_Cancelar(E120PED.CodEmp, E120PED.CodFil, ANumeroDocumento, AStatus, AMensagemErro);
  }                        
fim

@ Variáveis passadas para a regra @
Definir Numero IntNEmpresa;
Definir Numero IntNFilial;
Definir Numero IntNNumeroDocumento;
Definir Numero IntNSequenciaDocumento;
Definir Numero IntNTipoDocumento;
Definir Numero IntNEnviar;

@ Variáveis auxiliares da regra @
Definir Alfa AStatus;
Definir Alfa AMensagemErro;
Definir Alfa ATipoDocumento;
Definir Alfa ANumeroDocumento;
Definir Alfa ASerieDocumento;

inicio
  se ((IntNTipoDocumento = 2) E (IntNEnviar = 1)) {
    ATipoDocumento = "Pre-fatura";
    IntParaAlfa(IntNNumeroDocumento, ANumeroDocumento);
    IntParaAlfa(IntNSequenciaDocumento, ASerieDocumento);
  
    Tracking_Transferir(IntNEmpresa, IntNFilial, ATipoDocumento, ANumeroDocumento, ASerieDocumento, AStatus, AMensagemErro);  
  }
fim

@ Variáveis passadas para a regra @
Definir Numero IntNEmpresa;
Definir Numero IntNFilial;
Definir Numero IntNNumeroDocumento;
Definir Numero IntNSequenciaDocumento;
Definir Numero IntNTipoDocumento;

@ Variáveis auxiliares da regra @
Definir Alfa AStatus;
Definir Alfa AMensagemErro;
Definir Alfa ATipoDocumento;
Definir Alfa ANumeroDocumento;
Definir Alfa ASerieDocumento;

inicio
  se (IntNTipoDocumento = 2) {
    ATipoDocumento = "Pre-fatura";  
    IntParaAlfa(IntNNumeroDocumento, ANumeroDocumento);
    IntParaAlfa(IntNSequenciaDocumento, ASerieDocumento);
  
    Tracking_CancelarTransferido(IntNEmpresa, IntNFilial, ATipoDocumento, ANumeroDocumento, ASerieDocumento, AStatus, AMensagemErro);
  }
fim