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)