Linha Microsiga Protheus

Árvore de páginas

 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:

User Function STIMotSa()


Local lRet              := .T.
Local lRtSupSang := PARAMIXB[1]  // Retorno da ação de Sangria/Suprimento, indicando se houve sucesso (.T.) ou não (.F.). 
Local aVlFcheCx   := PARAMIXB[2] // Valores informados no fechamento do caixa
Local lAbreCx       := PARAMIXB[3] // Acionado via Abertura de Caixa
Local aDadosEst   := PARAMIXB[4] // Dados da Estacao

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

Return lRet