Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 16

changes.mady.by.user Joao Marcos Martins de Souza

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Joao Marcos Martins de Souza

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

 Ponto de Entrada: STIMotSa -  Sangria/Suprimento - TOTVS PDV

Descrição:

Este Ponto de Entrada é executado após a realização de Sangria ou Suprimento no caixa, permitindo ao usuário realizar gravações ou outras ações customizadas à Sangria/Suprimento de caixa, e também acionado via execução do botão Abre Caixa, possibilitando validações que permitam ou não a abertura do caixa.

Programa Fonte:

StwSupplyBleeding.prw e STWOpenCash.prw

Observação: É necessário atualização dos fontes pertencentes a rotina de recebimento de títulos do TOTVS PDV.

Função:

A função recebe como parâmetro o retorno da ação de Sangria/Suprimento, indicando se houve sucesso (.T.) ou não (.F.). 

PARAMIXB[1] Logico - Retorno da ação de Sangria/Suprimento, indicando se houve sucesso (.T.) ou não (.F.). 
PARAMIXB[2] Array - Valores informados no fechamento do caixa.
PARAMIXB[3]Logico -Se .T.  Indica que foi acionado pela Abertura de caixa, caso .F. indica que foi acionado pelas rotinas de Suprimento e Sangria
PARAMIXB[3]

Array - Contendo as seguintes informações:

[01] - Caractere - Código do operador de Caixa

[02] - Caractere - Código da estação

[03] Caractere - Série da estação

[04] Caractere - PDV

[05] Caractere - Série não fiscal da estação

[06] Caractere - Nome do Usuário logado

Retorno:

Retorno lógico se procede ou não.

 

Exemplo:

UserFunctionSTIMotSa()


LocallRet              := .T.
LocallRtSupSang :=PARAMIXB[1]  // Retorno da ação de Sangria/Suprimento, indicando se houve sucesso (.T.) ou não (.F.). 
LocalaVlFcheCx   :=PARAMIXB[2] // Valores informados no fechamento do caixa
LocallAbreCx      := PARAMIXB[3] // Acionado via Abertura de Caixa
LocalaDadosEst   := PARAMIXB[4] // Dados da Estacao

IflAbreCx // Se acionado via botao Abre Caixa
    IfUPPER(aDadosEst[1]) =="CX1"
        lRet:=   /*  acao do usuario */    
    EndIf
Else
    IfIsincallstack("STIConfirmBleeding")  // Foi chamado da tela de sangria / suprimentos
           /*  acao do usuario */    
    ElseIfIsincallstack("STWOpenSupply") // Foi chamado da abertura do caixa
          /*  acao do usuario */
    Else                  // Chamado do estorno do recebimento de titulos
         /*  acao do usuario */
    EndIf
EndIf

ReturnlRet