Sistema permite excluir fornecedor com título vínculado vinculado quando o compartilhamento da SA2 e SE2 está igual a C-C-E. Verificar query no fonte MATA020. If lRetorno
cQuery := "SELECT COUNT(*) QTDSE2 "
cQuery += "FROM " + RetSQLName("SE2") + " SE2 "
If !Empty(xFilial("SE2"))
cQuery += "WHERE SE2.E2_FILIAL " + cFiliais + " AND "
Else
cQuery += "WHERE SE2.E2_FILIAL = '"+xFilial("SE2")+"' AND "
EndIf
cQuery += "SE2.E2_FORNECE = '"+SA2->A2_COD+"' AND "
cQuery += "SE2.E2_LOJA = '"+SA2->A2_LOJA+"' AND "
cQuery += "SE2.D_E_L_E_T_ = ' '"
cAliasQry := GetNextAlias()
dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),cAliasQry,.F.,.T.)
If (cAliasQry)->QTDSE2 > 0
Help(" ",1,"MA020TEMCP",,"Filial: " + xFilial("SE2"),3,0)
lRetorno := .F.
EndIf |
