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 |