Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Elisabete Magalhaes dos Santos Silva

Gravado em

comparado com

Nova versão 2

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

Gravado em

Chave

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

 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.

Programa Fonte:

StwSupplyBleeding.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 com valores - 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:

#Include 'Protheus.ch'

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

Return

.T.

lRet