Histórico da Página
Descrição | XGFE070A - Permitir realizar alteração/verificação antes do vínculo dos conhecimentos à fatura. |
---|
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 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 |
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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas