| Produto: | TOTVS Backoffice |
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Backoffice |
| Módulo: | SIGACRM - Customer Relationship Management |
| Função: | FATA600 - Proposta Comercial |
| Abrangências: | Microsiga Protheus 12 |
| Versões: | Microsiga Protheus 12 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível com as Bases de Dados: | Todos |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
| Idiomas: | Todos |
Por
M521LpSD9({cDoc, cSerie}) ---> lRet
Nome | Tipo | Descrição | Default | Obrigatório | Referência |
|---|---|---|---|---|---|
| aParamIXB | Vetor | Vetor com os dados identificadores do Documento de Saída que esta sendo excluído, sendo: [ 01 ] - cDoc - Tipo: Caracter - String contendo a numeração da nota [ 02 ] - cSerie - Tipo: Caracter - String contendo a série da nota |
Retorno | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| lRet | Lógico | Variável logica indicando se deve ser feita a limpeza de dados na SD9 devido a exclusão, sendo: .T. - Realiza a limpeza. .F. - Não realiza a limpeza. | Sim |
Neste exemplo validamos se para a nota em questão houve alguma comunicação com Sefaz através do campo de Flag de Impressão (F2_FIMP)
#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"
User Function M521LpSD9()
Local aArea := GetArea() //Armazena o ambiente ativo para restaurar ao fim do processo
Local aParam := PARAMIXB
Local cDoc := aParam[1]
Local cSerie := aParam[2]
Local lRet := .F.
DbSelectArea("SF2")
SF2->(DbSetOrder(1))
If SF2->(DbSeek(xFilial("SF2") + cDoc + cSerie))
If Empty(SF2->F2_FIMP) //Verifica se para esta nota houve alguma comunicação com Sefaz
lRet := .T.
EndIf
EndIf
RestArea(aArea) //Restaura o ambiente ativo no início da chamada
Return lRet |