Histórico da Página
Descrição | XGFE070A - Permitir realizar alteração/verificação antes do vínculo dos conhecimentos à fatura. | Exemplos |
---|---|---|
Idioma | Português(Brasil) | |
Versões | Microsiga_Protheus11 | |
Sistemas Operacionais Suportados | Todos | |
Compatível com as Bases de Dados | Todas | |
Parâmetros | PARAMIXB[1]: cFilial | |
Retorno | Lógico | |
Programa Fonte | GFEA070A |
Exemplo
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
User Function XGFE070A() Local cFilial := PARAMIXB[1] Local cEmiFat := PARAMIXB[2] Local cSerFat := PARAMIXB[3] Local cNrFat := PARAMIXB[4] Local cDtEmis := PARAMIXB[5] Local cAliGW3 := PARAMIXB[6] local aRotina := .T. Local aAreaGW3 := (cAliGW3)->(getArea()) dbSelectArea("GW6") |
...
GW6->( dbSetOrder(1) ) |
...
If GW6->(dbSeek(cFilial + cEsp + cEmisDf + cSerie + cNrDc + DTOS(dDtEmis))) |
...
// Se documento não está aprovado no ECM não permite vincular na fatura |
...
aRotina := .F. |
...
EndIf
Return aRotina
...
Idioma
...
Português(Brasil)
...
Versões
...
Microsiga_Protheus11
...
Sistemas Operacionais Suportados
...
Todos
...
Compatível com as Bases de Dados
...
Todas
...
Parâmetros
...
PARAMIXB[1]: cFilial
PARAMIXB[2]: cEmisFat
PARAMIXB[3]: cSerie
PARAMIXB[4]: cNrDc
PARAMIXB[5]: dDtEmis
...
Retorno
...
Lógico
...
Programa Fonte
...
EndIf
dbSelectArea(cAliGW3)
(cAliGW3)->( dbSetOrder(1) )
(cAliGW3)->( dbGoTop() )
While !(cAliGW3)->( Eof() )
If (cAliGW3)->OK == cMarca
Alert("Registro marcado")
aRotina := .F.
EndIf
(cAliGW3)->( dbSkip() )
EndDo
RestArea(aAreaGW3)
Return aRotina
|