Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • FA080EST - Permite realizar procedimento -- 11891

Ponto-de-Entrada: FA080EST - Permite realizar procedimento
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
O ponto de entrada FA080EST permite realizar algum procedimento antes da montagem da tela e solicitação da confirmação do cancelamento da baixa a pagar.
Programa Fonte 
FINA080.PRX
Sintaxe

FA080EST - Permite realizar procedimento ( )

Retorno
    ()
Exemplos 
#INCLUDE "PROTHEUS.CH"User Function FA080EST()local aarea:=getarea()//por exemplo para posicionar em algum arquivo de usuario//que contem os titulos que podem ser cancelados//que sera utilizado no pontos de entrada FA080OWNdbSelectArea("SZX")dbSetOrder(1)dbSeek(xFilial("SZX"+SE2->E2_PREFIXO+SE2->E2_NUM+SE2->E2_PARCELA+SE2->E2_TIPO+SE2->E2_FORNECE+SE2->E2_LOJArestarea(aarea)Return //----------------------------------------------------------------------------------------------////POR EXEMPLO NO PONTO DE ENTRADA FA080OWN #INCLUDE "PROTHEUS.CH"User Function FA080OWN()Local lRetIf ( SZX->ZX_PODECANC == "1" .And. Aviso("Atencao","Confirma Cancelamento ?", {"Sim", "Nao"})==1	lRet := .T.Else	lRet := .F.EndIfReturn(lRet)